Kod bi mogao da bude sledeći
Code:
Sub Prepisi()
' Prepisuje unete podatke
' na kraj drugog lista
' 16/10/2007
' P.Jovanovic za elitesecurity.org
Dim shDest As Worksheet
Dim shSource As Worksheet
Dim rw As Long
Set shSource = ThisWorkbook.Sheets(1)
Set shDest = ThisWorkbook.Sheets(2)
' Nadji prvi prazan red
rw = shDest.Range("A65536").End(xlUp).Row + 1
' Prepis
shDest.Cells(rw, 1).Value = shSource.Cells(6, 1).Value
shDest.Cells(rw, 2).Value = shSource.Cells(6, 2).Value
shDest.Cells(rw, 3).Value = shSource.Cells(6, 3).Value
shDest.Cells(rw, 4).Value = shSource.Cells(6, 4).Value
' Ocisti
shSource.Rows(6).ClearContents
End Sub
Kod podrazumeva da si podatke uneo u susedne kolone - proširi kolne umesto što si ostavljamo prazne kolone između - i na prvom i na drugom listu imaš taj problem
Lako ćeš napraviti dugme i povezati ga sa makrom - vidi u top temi. Tu ćeš naći i dodatna uputstva vezano za ubacivanje i editovanje makroa.
Već postoje veoma slična rešenja uz pomoć VBA koda na forumu vidi:
http://www.elitesecurity.org/t...-podataka-pamcenje-unosa-reset