macro yardım

DrLecter

Altın Üye
Katılım
20 Nisan 2016
Mesajlar
8
Excel Vers. ve Dili
Türkçe
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
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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:

PHP:
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:

PHP:
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

Altın Üye
Katılım
20 Nisan 2016
Mesajlar
8
Excel Vers. ve Dili
Türkçe
teşekkürler elinize sağlık
 
Üst