Avtomatsko nastavitev za PrintArea

Pomoč pri izdelavi makrov
Odgovori
mb
Prispevkov: 57
Pridružen: Sr Okt 26, 2005 7:40 pm

Avtomatsko nastavitev za PrintArea

Odgovor Napisal/-a mb »

Pozdravljeni,

kako je potrebno zapisati kodo, da bo nastavitev za PrintArea avtomatska glede na število polnih celic.

Glede na izbrane filtre mi makro na list1 prepiše vedno različno število podatkov (različno št. vrstic). Zato bi zelel v makru za printanje podatkov nastaviti Print Area vedno glede na stevilo podatkov-vrstic. Spodaj imate del kode kjer ne znam določiti, da naj natisne področje od C1 in do zadnje polne vrstice, ki vsebuje podatek v stolpcu N. Kako to narediti?

Koda: Izberi vse

.....
.....
vrsta1 = Range("N65536").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$C$1:$N$vrsta1" 'TUKAJ SE POJAVI NAPAKA.
Hvala za vaš odgovor in LP
Boštjan
mb
Prispevkov: 57
Pridružen: Sr Okt 26, 2005 7:40 pm

Odgovor Napisal/-a mb »

Sem že našel rešitev v starem forumu pod št. 44 in sicer rešitev je:

Koda: Izberi vse

ActiveSheet.PageSetup.PrintArea = "$C$1:$N$" & vrsta1
LP Boštjan
Odgovori