Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Sayfa1").Cells(Target.Row, Target.Column) = Cells(Target.Row, Target.Column)
End Sub
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