Herhangi bir sınır belirtmediğiniz için genel birşeyler yapmaya çalıştım. Aşağıdaki kodları Sayfa2 ve Sayfa3'ün kod bülümüne kopyalayınız.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Sayfa1").Cells(Target.Row, Target.Column) = Cells(Target.Row, Target.Column)
End Sub
Yada Aşağıdaki kodları sadece ThisWorkbook'un kod bölümüne kopyalayınız.
Kod:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "Sayfa2" Or ActiveSheet.Name = "Sayfa3" Then
Sheets("Sayfa1").Cells(Target.Row, Target.Column) = Cells(Target.Row, Target.Column)
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.