Bir hücreye girilen bilgileri kalıcı olarak depolamak

[BARGENX]

Örneğin sekme1 a1 hücresine ali yazıldı bunu sekme2 a1'e yazacak. Sekme1 A1'deki veri Ahmet olarak değişince Sekme2 A1 Ali kalacak, A2'ye Ahmet yazacak. Bunu başarabilir miyiz dostlar

 

[ÖmerFaruk]

Aşağıdaki kodu Sayfa1 kod sayfasına direkt yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Son = Worksheets("Sayfa2").Range("A" & Rows.Count).End(xlUp).Row + 1
    If Worksheets("Sayfa2").Range("A1") = "" Then Son = 1
    Worksheets("Sayfa2").Range("A" & Son) = Range("A1")
End Sub

 

[BARGENX]

Cevabınızı yeni gördüm. Çokteşekkür ederim yanıtınız için.