< návrat zpět

MS Excel


Téma: změna hodnoty posledního řádku rss

Zaslal/a 22.8.2013 8:52

Dobrý den,
mám tabulku dat, do které se pravidelně přidává řádek s dalšími údaji. potřeboval bych před uzavřením listu, aby se k hodnotách přičetlo 0,5 a potom list zavřel.
díky za každou radu a i malé popostrčení.

stop Uzamčeno - nelze přidávat nové příspěvky.

icon #014808
Poki
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... 2 )citovat
#014820
avatar
děkuji, výborná práce.
moc mě to pomohlocitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09