Soru aynı anda diğer sayfaya da yazsın

[sirkülasyon]

Merhaba
Sayfa1 C4 : D50 aralığına yazılan aynı anda da Sayfa4 D4 : E50 aralığına yazılsın.
Eğer sayfa1 de değişirse Sayfa4' de de değişsin.
nasıl bir makro lazım. Yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.

Sayfa1 in kod kısmına yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C4:D50")) Is Nothing Then
        Application.EnableEvents = False
        Worksheets("Sayfa2").Range(Target.Address)(1, 2) = Target
        Application.EnableEvents = True
    End If
End Sub

 

[çıtır]

Sayfa1 kodu olarak kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C4:D50]) Is Nothing Then Exit Sub
Sheets("Sayfa4").Cells(Target.Row, Target.Column + 1) = Target.Value
End Sub

 

[sirkülasyon]

Yardımınızı esirgemediğiniz için hem dalgalıkur' a hem de çıtır' a teşekkür ederim. Kabul buyurun.