bir sayfada ki verileri başka bir sayfada saklama

[du643]

Selamlar
Bir sayfaya girdiğim bilgileri başka bir sayfaya depolamak istiyorum.
yani 1.sayfada a1 hücresine girdiğim değer veya yazıyı başka bir sayfada saklamak istiyorum fakat birinci sayfadaki değerleri her seferinde sileceğim diğer sayfada silinmeden alt alta depolamak istiyorum

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
Dim son As Integer
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
son = Sheets("Sayfa2").Cells(65536, "a").End(3).Row + 1
Sheets("Sayfa2").Cells(son, "a") = [a1]
Target = Empty
End Sub

 

[du643]

olmuyor

çalıştıramadım üsdat