hücredeki veriyi silerken sorsun?

[etakyol]

iyi günler,

hücrelerdeki verileri silerken veya değiştirirken sorarak onay almasını sağlayabilirmiyiz?

yani hücreyi silerken eminmisiniz deyip onay aldıktan sonra silecek veya değiştirirken eminmisin diyerek onay isteyecek. böyle bir uygulama mümkünmüdür?

teşekkür ederim şimdiden

 

[1Al2Ver]

Merhaba,

Çalışma kitabının bütün sayfalarında çalışır, SİLME işlemi onayı içindir,

Modül'e eklenmelidir,

Sub Düğme1_Tıklat()
Dim sor
sor = MsgBox("Silmek istediğinizden emin misiniz?", vbQuestion + vbYesNo, "Silme İşlemi")
Select Case sor
Case vbYes
ActiveSheet.Range("A6:A20,A22:A26,B6:B20,C5:C15").ClearContents
End Select
End Sub

Kolay gelsin,

 

[etakyol]

Merhaba,

Çalışma kitabının bütün sayfalarında çalışır, SİLME işlemi onayı içindir,

Modül'e eklenmelidir,

Sub Düğme1_Tıklat()
Dim sor
sor = MsgBox("Silmek istediğinizden emin misiniz?", vbQuestion + vbYesNo, "Silme İşlemi")
Select Case sor
Case vbYes
ActiveSheet.Range("A6:A20,A22:A26,B6:B20,C5:C15").ClearContents
End Select
End Sub

Kolay gelsin,

malesef hala delete dediğimde direk siliyor hücreyi malesef sormuyor :S modüle ekledim dediğiniz gibi ama çalıştıramadım :s

 

[Korhan Ayhan]

Deneyiniz.

 

[1Al2Ver]

Sayın etakyol, merhaba,

Önerdiğim kod, seçilen sayfadaki,

A6:A20,
A22:A26,
B6:B20,
C5:C15

aralığındaki hücreleri silmektedir,

Siz farklı bir alanı silecekseniz, aşağıdaki kod'da kırmızı olan yerleri düzenlemeli siniz,

ActiveSheet.Range("A6:A20,A22:A26,B6:B20,C5:C15").ClearContents

Kolay gelsin.