Aynı Sayfada İŞlem Yapmak

[ormann]

Sayın arkadaşlar makro ile sayfa1 de e7 ve e8 hücrelerine veri girdiğim zaman sayfa 2 de de aynı işlem olabilirmi ?.yine sayfa2 de e7 ve e8 hücrelerine veri girdiğim zaman aynı işlem sayfa birde olabilir mi ?

 

[halit3]

Sayın arkadaşlar makro ile sayfa1 de e7 ve e8 hücrelerine veri girdiğim zaman sayfa 2 de de aynı işlem olabilirmi ?.yine sayfa2 de e7 ve e8 hücrelerine veri girdiğim zaman aynı işlem sayfa birde olabilir mi ?

Sayın ormann baya mesjınız var bunları kendinizinde yapabileceğinizi düşünüyorum.Bu kadar mesajdan sonra mutlaka birşeyler öğrenmiş olduğunuzu düşünüyorum.


Sayfa1 in kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Name = "Sayfa1" Then
If Intersect(Target, Range("e7:e8")) Is Nothing Then Exit Sub
Worksheets("Sayfa2").Range("e7").Value = Worksheets("Sayfa1").Range("e7").Value
Worksheets("Sayfa2").Range("e8").Value = Worksheets("Sayfa1").Range("e8").Value
End If
End Sub

Sayfa2 nin kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Name = "Sayfa2" Then
If Intersect(Target, Range("e7:e8")) Is Nothing Then Exit Sub
Worksheets("Sayfa1").Range("e7").Value = Worksheets("Sayfa2").Range("e7").Value
Worksheets("Sayfa1").Range("e8").Value = Worksheets("Sayfa2").Range("e8").Value
End If
End Sub

 

[ormann]

Sayın Halit kod bilgisayarı kastı hiçbir işlem yapmıyor.

 

[halit3]

Sayın Halit kod bilgisayarı kastı hiçbir işlem yapmıyor.

2 nolu mesajdaki kodu yeniden düzenledim sayfa tanımlaması yapıldı koda