Hücre Değiştikçe Silme Onayı Gelsin

[sirkülasyon]

Abilerim C1 ve C2 hücresinde şu açılan liste şeklinde listem var.
Kullanıcı c1'i veya c2'yi tıklayıp listeden değiştirme yaptığı zaman D8:AH25 aralığı silinsin mi? EVET HAYIR çıksın. EVET ise D8:AH25 aralığını silsin. Listede bir değişiklik yapmazsa uyarı çıkmasın

Zamanınız varsa ilgilenir misiniz?

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C1:C2")) Is Nothing Then Exit Sub
    Onay = MsgBox("D8:AH25 aralığı silinsin mi?", vbCritical + vbYesNo)
    If Onay = vbNo Then Exit Sub
    Range("D8:AH25").ClearContents
End Sub

 

[sirkülasyon]

Korhan abi ilkönce bayramınızı kutlar, ellerinizden öperim.
Sorduğum soruma cevap verdiğiniz için ve cevabınızda sayfama cuk diye oturduğu için ayrıca teşekkür ederim
Varolasın abi