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.
Nije to loše Rembrante, samo što ne bi dodao još malo boje?