[ indicator1 @ 27.01.2007. 17:07 ] @
Potrebno je razvrstati podatke koji su u sheet1 u druge sheet-ove.Znaci u prvom sheet-u u prvoj koloni je tekst podatak cija prva rec definise ime odgovarajuceg sheet-a, npr "STRUJA rac januar" i sve podatke iz tog reda treba prekopirati (izuzev ako takav red vec ne postoji) u novi red u sheet-u STRUJA (i kreirati takav sheet ako ne postoji). Ono sto me muci je da postoje podaci koji se unose direktno u sheet STRUJA a ne postoje u osnovnom sheet1 i macro takve podatke ne sme da dira tj da ih prebrise. Ima li neko neki predlog kako ovo odraditi?
[ Jpeca @ 28.01.2007. 07:29 ] @
Ako je problem samo
Citat:
da postoje podaci koji se unose direktno u sheet STRUJA a ne postoje u osnovnom sheet1 i macro takve podatke ne sme da dira tj da ih prebrise.

Možeš ga rešiti tako što uzmeš odrediš prvi prazan red na listu i u njega kopiraš vrednosti

Prvi prazan red odredićeš polazeći od najdonje ćelije neke kolone pa krećući se nagore - tako nađeš poslednji popunjeni red pa dodaš jedan.
Code:

rw = Sheets("NazivLista").Range("A65535").End(xlUp).Row + 1

Kompletno rešenje zahteva malo više vremena.