Napravi na obrazcu dugme na čiji klik se startuje makro Snimi
Code:
Sub Snimi()
' Makro koji snima podatke iz opsega A1:D1 u prvi prazan red
' na sledecem listu
' Selektovanje i kopiranje opsega
Range("A1:D1").Select
Selection.Copy
' Prelazak u Sheet2
Sheets("Sheet2").Select
' Pozicioniranje na prvu praznu ćeliju u koloni A
Range("A65536").End(xlUp).Offset(1, 0).Select
' Kopiranje po vrednosti
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
' Povratak na Sheet1
Sheets("Sheet1").Select
End Sub
U prilogu je uploadovan primer excel tabele. Obrati pažnju da izmeniš opsege i nazive sheetova. Na kraju možeš dodati i kod za brisanje originalnog opsega
Code:
Range("A1:D1").Delete
[Ovu poruku je menjao Jpeca dana 16.02.2006. u 09:20 GMT+1]
Nije to loše Rembrante, samo što ne bi dodao još malo boje?