aynı değeri iki yerden görebilmek ve değiştirebilmek

[acarselcuk1]

merhaba arkadaşlar: sayfa1 ve sayfa ikide birebir aynı tablomuz var ve bu tablodaki değerleri her ikisindede hemgörmek hemde değiştirmek istiyorum. bağ yağıştırı denedim ve görme her ikisindede oluyor ama değişikliği sadece birinden yapmak zorunda oluyorum. bunun bir çözümü varmı. şimdiden ilgilenen arkadaşlara teşekkür ediyorum.....

 

[mehmett]

Veri girişi için kullanacağınız üçüncü bir tablo oluşturun ve bu tabloyu bağ yapıştır yöntemiyle diğer iki tabloya bağlayın.

 

[acarselcuk1]

konuyu tam anlatamadım galiba ekte bir örnekle beraber anlattım. (sayfa1 ve sayfa2 deki aynıdeğeri taşıyan tabloyu herikisinde görebilmek ve herhangi birindeki değişikliği yine her ikisinde uygulayabilmek.

 

[omerceri]

Sayfa1'in modül sayfasına aşağıdaki kodu;
Private Sub Worksheet_Change(ByVal Target As Range)
Sayfa2.Range(Target.Address).Value = Target
End Sub

Sayfa2'in modül sayfasına ise aşağıdaki kodu;
Private Sub Worksheet_Change(ByVal Target As Range)
Sayfa1.Range(Target.Address).Value = Target
End Sub
yazarsanız.
Düzeltme "sayfa1 ve sayfa ikide birebir aynı tablomuz var" deyince yukardaki çözümü sunmuştum, örneğinize bakınca pek öyle olmadığını gördüm.

 

[omerceri]

Sayfa1'in modülündeki kod
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AS$6" Then
Sheets("Sayfa2").Range("I2").Value = Target
End If
If Target.Address = "$AS$7" Then
Sheets("Sayfa2").Range("I3").Value = Target
End If
If Target.Address = "$AS$8" Then
Sheets("Sayfa2").Range("I4").Value = Target
End If
If Target.Address = "$AS$9" Then
Sheets("Sayfa2").Range("I5").Value = Target
End If
End Sub
Sayfa 2 de ise
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "I2" Then
Sheets("Sayfa1").Range("$AS$6").Value = Target
End If
If Target.Address = "I3" Then
Sheets("Sayfa1").Range("$AS$7").Value = Target
End If
If Target.Address = "I4" Then
Sheets("Sayfa1").Range("$AS$8").Value = Target
End If
If Target.Address = "$AS$9" Then
Sheets("Sayfa1").Range("$AS$9").Value = Target
End If
End Sub
olursa işinizi görür

 

[omerceri]

Sayfa 2'deki kod yanlış olmuş aşağıdaki gibi değiştirin
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$2" Then
Sheets("Sayfa1").Range("$AS$6").Value = Target
End If
If Target.Address = "$I$3" Then
Sheets("Sayfa1").Range("$AS$7").Value = Target
End If
If Target.Address = "$I$4" Then
Sheets("Sayfa1").Range("$AS$8").Value = Target
End If
If Target.Address = "$I$5" Then
Sheets("Sayfa1").Range("$AS$9").Value = Target
End If
End Sub

 

[acarselcuk1]

ilginize teşekkür ederim. fakat sayfa1 deki ve sayfa2 deki modül derken ? çalışmasayfasına değilde sayfaya ait bir modülmü açıyoruz ve nasıl.

 

[omerceri]

Excel açık iken alttaki sayfa sekmelerinin üzerinde (hangi sayfanın modülüne ulaşmak istiyorsan) sağ tıkla "Kod Görüntüle"yi seç o sayfanın modülü açılır.

 

[acarselcuk1]

teşekkür ederim. çok sağolun sayın: omerceri

 

[acarselcuk1]

sayın : omerceri beye terrar teşekkür ederek yukarıdaki hazırladığı makroyu bu seferde 3 tablo için nasıldeğiştirebilirim pek fazla makro bilgim olmadığından ben güncelleyemiyorum. yardımlarınızı bekliyorum. teşekkürler.....
ben makroyu şu şekilde düzenledim ve 3 tablo için düzenlemesi yapılacak sadece
1.sayfa makrosu
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AS$6" Then
Sheets("YTLŞAHSA").Range("AS6").Value = Target
End If
If Target.Address = "$AS$7" Then
Sheets("YTLŞAHSA").Range("AS7").Value = Target
End If
If Target.Address = "$AS$8" Then
Sheets("YTLŞAHSA").Range("AS8").Value = Target
End If
If Target.Address = "$AS$9" Then
Sheets("YTLŞAHSA").Range("AS9").Value = Target
End If
End Sub
2.sayfa makrosu
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AS$6" Then
Sheets("YTLHESABA").Range("$AS$6").Value = Target
End If
If Target.Address = "$AS$7" Then
Sheets("YTLHESABA").Range("$AS$7").Value = Target
End If
If Target.Address = "$AS$8" Then
Sheets("YTLHESABA").Range("$AS$8").Value = Target
End If
If Target.Address = "$AS$9" Then
Sheets("YTLHESABA").Range("$AS$9").Value = Target
End If
End Sub

 

[acarselcuk1]

tembellik yaptım galiba biraz mantıklı düşündüğümde buldum. tüm yardımı olan arkadaşlara teşekkürlerimi sunuyorum

 

[acarselcuk1]

düşündüğüm yöntem olmadı lütfen bi fikri olan varsa iletebilirmi?