macro yardım

[DrLecter]

Merhaba,

Veri sayfasındaki Kod ,Ad Soyad ve kişi sayısına yeni bir ismi eklediğimde ya da herhangi bir ismi çıkardığımda diğer sayfalarda da eklensin ya da çıkarılsın istiyorum.
Yardımlarınızı bekliyorum

iyi Çalışmalar

 

[YUSUF44]

Aşağıdaki kodları Veri sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırırsanız Veri sayfasının A4:C100 aralığında yaptığınız değişiklikler diğer sayfalarda da aynen gerçekleşir:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A4:C100]) Is Nothing Then Exit Sub
Application.EnableEvents = False
    Application.ScreenUpdating = False
        a = Target.Row
        b = Target.Column
        For i = 1 To Sheets.Count
            If Sheets(i).Name <> ActiveSheet.Name Then
                Sheets(i).Cells(a, b) = Target
                Sheets(i).Cells(a, "D").FormulaR1C1 = "=R2C4/R2C5*RC[-1]"
            End If
        Next
    Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Satır silme için de aynı mantıkla aşağıdaki kodları hazırladım ama istediğim gibi çalışmıyor maalesef:

Private Sub Worksheet_BeforeDelete()
If Intersect(Target, [A4:C100]) Is Nothing Then Exit Sub
Application.EnableEvents = False
    Application.ScreenUpdating = False
        a = Target.Row
        For i = 1 To Sheets.Count
            If Sheets(i).Name <> ActiveSheet.Name Then
                Sheets(i).Rows(a).Delete shift:=xlUp
            End If
        Next
    Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

[DrLecter]

teşekkürler elinize sağlık