Uzamčeno - nelze přidávat nové příspěvky.
Samozrejme to jde makrem.
Toto makro vlozte do modulu ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Radek As Long, Sloupec As Long, i As Long
Dim Hodnota As Double
Dim List As String
Hodnota = 0.5
List = "List1"
Radek = Worksheets(List).Cells(Rows.Count, 1).End(xlUp).Row
Sloupec = Worksheets(List).Cells(Radek, Columns.Count).End(xlToLeft).Column
'pricteni hodnoty ke vsem hodnotam v poslendim radku
For i = 1 To Sloupec
Worksheets(List).Cells(Radek, i) = Worksheets(List).Cells(Radek, i) + Hodnota
Next i
End Sub
Problemy tam samozrejme muzou byt, kdyz nevidim, jak ten posledni radek vypada, jestli tam treba neni v nekterem sloupci text nebo jestli tam nejsou prazdne sloupece apod...ale bez prilohy to jinak asi neumim
(samozrejme, ze by to slo napsat lip, ale nechtel jsem na tom travit vic casu...
)citovat
Toto makro vlozte do modulu ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Radek As Long, Sloupec As Long, i As Long
Dim Hodnota As Double
Dim List As String
Hodnota = 0.5
List = "List1"
Radek = Worksheets(List).Cells(Rows.Count, 1).End(xlUp).Row
Sloupec = Worksheets(List).Cells(Radek, Columns.Count).End(xlToLeft).Column
'pricteni hodnoty ke vsem hodnotam v poslendim radku
For i = 1 To Sloupec
Worksheets(List).Cells(Radek, i) = Worksheets(List).Cells(Radek, i) + Hodnota
Next i
End Sub
Problemy tam samozrejme muzou byt, kdyz nevidim, jak ten posledni radek vypada, jestli tam treba neni v nekterem sloupci text nebo jestli tam nejsou prazdne sloupece apod...ale bez prilohy to jinak asi neumim
(samozrejme, ze by to slo napsat lip, ale nechtel jsem na tom travit vic casu...
)citovat
RSS nejnovější články