Satırları silerken Açılan Menüleri siliyor

[htsumer]

Aşağıdaki kod satırları siliyor. Tümünü sildiğinde önce bulunan ve tanımlanan Veri Doğrulamayı da siliyor. Silindikten sonra Bu açılır butonlar kayboluyor. Bunu nasıl engelleriz.

Sub tumunuSil()
Dim Bolge As Range

If MsgBox("Sayfadaki öğretmenlere ait tüm bilgiler silinecek." & vbLf & _
    vbLf & "Onaylıyor musunuz?" & vbLf & vbLf & vbLf & _
    "UYARI: Silinen bilgiler geri alınamayacağından, bu işlemden önce çalışma kitabını kaydetmeniz veya yedeklemeniz önerilir.", vbYesNo + vbCritical, "Tümünü sil") = vbYes Then
    Set Bolge = Range(Range("A3:H3"), Range("H3").End(xlDown))
    Bolge.EntireRow.Delete
    MsgBox "Tüm bilgiler başarıyla silindi." & vbLf & vbLf & "NOT: Bu işlemi yanlışlıkla yaptıysanız, çalışma kitabını kaydetmeden kapatıp, tekrar açın.", , "Tümünü sil"
End If
End Sub

 

[Trilenium]

bende hata vermedi halen daha datavalidation devam ediyor, örnek dosya verirseniz daha iyi olacaktır

 

[htsumer]

Tamam bende de düzeldi teknik bir hata yapmışım. K.Bakmayın

 

[Trilenium]

estağfurullah kolay gelsin