Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
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.