Soru Excelde yerine yazarken otomatik değiştirme

[gokhanayaz]

Aynı çalışma kitabındaki birden çok sayfada aynı tablonun kullanıdığını düşünelim. Diyelim ki 1. Sayfada Ad Soyad sütununun herhangi bir sırasında Gökhan Ayazoğlu yazıyor olsun. 2. Sayfada bulunan Ad soyad sütununun herhangi bir satırında Gizem Gizem Dabanlı yazıyor olsun.

1. sayfada bulunan Gökhan Ayazoğlu yerine Gizem Dabanlı yazıldığında sistem otomatik olarak 2. Sayfadaki Gizem Dabanlı yerine Gökhan Ayazoğlu yazsın istiyorum. Tekrardan sayfaları değiştirmek zorunda kalmayayım. Böyle bir kod mümkün müdür?

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Sayfa2").[a1] = Sheets("Sayfa1").[a1]
End Sub

 

[gokhanayaz]

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Sayfa2").[a1] = Sheets("Sayfa1").[a1]
End Sub

Hocam çok teşekkür ederim. Vba dışında yapabileceğim bir kod var mıdır?

 

[hamitcan]

Sayfa2 de A1 hücresine = Sayfa1!A1 yazın.

 

[gokhanayaz]

Sayfa2 de A1 hücresine = Sayfa1!A1 yazın.

Bu seferde Sayfa 2 de A1 hücresine giriş yapamıyorum. Benim amacım ekte paylaştığım dosyadaki gibi iki tabloda birbirinin yerine yazdığımda yerler otomatik değişsin.

 

[hamitcan]

Ekteki dosyayı inceler misiniz ?