A sayfası değişince B, C, D sayfalarının silinmesi

[gnorar]

A sayfasında herhangi bir hücre içeriği değişince B, C, D sayfaları silinecek. Ancak A sayfasında devamlı veri değiştirmesi yapılacağından A sayfasında yapılacak ilk değişiklikte anılan sayfalar silinecek daha sonra A sayfası deaktif olana kadar silme makrosu çalışmayacak. Excel sayfa tetikliyicilerinden change'i kullanmayı düşündüm ama makro A sayfasının her değişikliğinde çalışacağından işime yaramayacak. Başka bir çözüm bulunabilir mi?

 

[Korhan Ayhan]

Selamlar,

Boolean bir değişken tanımlayarak bu sorunu çözebilirsiniz. Aşağıdaki kodu "A" isimli sayfanızın kod bölümüne uygulayıp denermisiniz.

Option Explicit
Dim Kontrol As Boolean
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Kontrol = True Then Exit Sub
    
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets(Array("B", "C", "D")).Delete
    Kontrol = True
    Application.DisplayAlerts = True
    On Error GoTo 0
End Sub
 
Private Sub Worksheet_Deactivate()
    Kontrol = False
End Sub

 

[gnorar]

Sn. Korhan Ayhan hazırladığınız makro mükemmel çalışıyor. Teşekkür ederim