Farklı Sayfadaki Hücreye Değer Atama

[m.ensar]

Üstadlar hayırlı günler;
Çalışma kitabında sayfa 1' in A1 hücresine yazılan tarihi sayfa 2' nin A1 hücresine de yazdırmak istiyorum =Sayfa1!A1 bu şekilde ki kopyalama değil istediğim. Sorum şu Sayfa 1 A1 hücresine tarih girdiğimde sayfa2' nin A1 hücresine yazdırdığım tarihi Sayfa2' nin A1 hücresine girerek sayfa1 A1 hücresine de yazdırmak istiyorum. yani sayfa1 ve sayfa2 de A1 hücresine veri girdiğimde diğer sayfada ki A1 hücresine de aynı veri girilsin. Kod veya formülle bu mümkün mü?

 

[hasankardas]

Üstadlar hayırlı günler;
Çalışma kitabında sayfa 1' in A1 hücresine yazılan tarihi sayfa 2' nin A1 hücresine de yazdırmak istiyorum =Sayfa1!A1 bu şekilde ki kopyalama değil istediğim. Sorum şu Sayfa 1 A1 hücresine tarih girdiğimde sayfa2' nin A1 hücresine yazdırdığım tarihi Sayfa2' nin A1 hücresine girerek sayfa1 A1 hücresine de yazdırmak istiyorum. yani sayfa1 ve sayfa2 de A1 hücresine veri girdiğimde diğer sayfada ki A1 hücresine de aynı veri girilsin. Kod veya formülle bu mümkün mü?

ve dediğinize göre bu nasıl olacak? sayfa1a1 veya sayfa2a1 den herhangi birine girdiğinizde diğerine atmasını mı istiyorsunuz?

 

[m.ensar]

çok doğru hocam sayfa1 veya sayfa2 olacaktı şimdi dikkatimi çekti benimde siz uyarınca hocam

 

[dEdE]

Merhaba,
Ben böyle anladım.

Private Sub Worksheet_Change(ByVal Target As Range) 'Sayfa1 in kod bölümüne
  If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
  Sheets("Sayfa2").Range("A1") = Sheets("Sayfa1").Range("A1")
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'Sayfa2 in kod bölümüne
  If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
  Sheets("Sayfa1").Range("A1") = Sheets("Sayfa2").Range("A1")
End Sub

 

[m.ensar]

Hocam çok teşekkür ediyorum. harikasınız

 

[m.ensar]

Hocam başka bir işte kullanmak için soruyorum. bunu 1 hücre ile sınırlı değilde sayfanın tamamı yada atıyorum A sütunu ile Z sütunu arasında 100 satır için de yapabilir miyiz.

 

[dEdE]

Hocam başka bir işte kullanmak için soruyorum. bunu 1 hücre ile sınırlı değilde sayfanın tamamı yada atıyorum A sütunu ile Z sütunu arasında 100 satır için de yapabilir miyiz.

Üstatların daha sofistike çözümler bulacağından eminim. Benim çözümüm;
Bir modüle;

Public adr1, adr2

Sub Ekle1()
    Sheets("Sayfa2").Range(adr1).Value = Range(adr1).Value
End Sub

Sub Ekle2()
    Sheets("Sayfa1").Range(adr2).Value = Range(adr2).Value
End Sub

Sayfa1 koduna;

Private Sub Worksheet_Change(ByVal Target As Range) 'Sayfa1 in kod bölümüne
If Intersect(Target, Range("A1:Z100")) Is Nothing Then Exit Sub
    adr1 = Target.Address
    Ekle1
End Sub

Sayfa2 koduna;

Private Sub Worksheet_Change(ByVal Target As Range) 'Sayfa2 in kod bölümüne
If Intersect(Target, Range("A1:Z100")) Is Nothing Then Exit Sub
    adr2 = Target.Address
    Ekle2
End Sub

 

[m.ensar]

Hocam teşekkürler. emeğinize sağlık. ilk açılışta herhangi bir hücreye herhangi bir şey yazdığımda debug hatası veriyor end tıklayıp dikkate almadığımda sorunsuz çalışıyor. çok sağolasın.