[ superr @ 17.03.2013. 12:36 ] @
Pozdrav,

Pokušavam da sa otvorene (userform) pritiskom na (komandno dugme):
iskopiram raspon($A$3:$Q$3) iz (sheet1)
na (sheet2) u isti raspon ($A3:$Q3) s'tim da se pronađe prva slobodna ćelija kolone "A"
vrednost nalepiti kao (text)!!!
poenta je da izbegnem korišćenje iskaza (Activesheet)!!!
[ Jpeca @ 17.03.2013. 21:30 ] @
Za listove jednostavno koristi nazive umesto ActiveSheet. Prilikom kopiranja nije neophodno da se menja selektovani opseg. O pronalaženju poslednje popunjene ćelije već je bilo reči više puta pa možeš da potražiš objašnjenje na forumu a kod je u nastavku

Code:
Sub Kopiraj()
' Kopiranje bez selekcije
' P. Jovanovic za elitesecurity.org
'
 ThisWorkbook.Sheets("Sheet1").Range("A3:Q3").Copy
 ThisWorkbook.Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
 Application.CutCopyMode = False
End Sub

[ superr @ 21.03.2013. 18:47 ] @
hvala Peco!