[ neptuncokg @ 16.09.2009. 23:04 ] @
| U okviru radne knjige imam sheet koji je kreiran kao zakonom propisan dokument - trgovacka knjiga. U njega se upisuju podaci iz drugog sheeta i sve je o.k. osim jedne stvari. Naime, zakonom je propisano da svaka stranica trgovacke knjige mora da bude numerisana i da na kraju ima MEDJUZBIR. Unos podataka u prvi prazan red sam resio uz pomoc naredbe: Range("H5").Select Selection.Copy Sheets("TK").Select r = Range("F10000").End(xlUp).Offset(1, 0).Row ' cuva se pocetni broj reda ActiveSheet.Cells(r, 6).Select Selection.PasteSpecial i.t.d Da nema nigde medjuzbira ne bi bilo problema, jer se podatak upisuje u prvi prazan red. Medjutim, posto na kraju svake stranice imam MEDJUZBIR, a na pocetku svake PRENETO STANJE SA PRETHODNE, ova moja funkcija gubi smisao, jer se podatak upisuje umesto u npr. red 12 (prvi slobodan odozgo) - u npr. 9920. red jer je na 9919. - medjuzbir. Nadam se da nisam bio preopsiran sa objasnjenjem. Pala mi je napamet ideja da MEDJUZBIR definisem kao Footer, a PRENETO STANJE kao Header, ali jednostavno ne umem da naredim Headeru i footeru da vrse funkcije sabiranja i preuzimanja podataka koje bi trebalo. Ili mozda postoji naredba da se jednostavno "preskoce" redovi MEDJUZBIRA I PRENETOG STANJA i da se podatak upise u zaista prvi prazan red, ne racunajuci ove vec pomenute (medjuzbir i preneto stanje)? Samo jos da napomenem da sam vec kreirao obrazac i da ima oko 150 strana (10000 redova). Hvala unapred na svakom savetu. |