• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

İşlemi yapmadan önce sorsun

  • Konbuyu başlatan Konbuyu başlatan serqet
  • Başlangıç tarihi Başlangıç tarihi
Katılım
20 Ağustos 2009
Mesajlar
520
Excel Vers. ve Dili
2010 - Türkçe
arkadaslar rahatsız ediyorum kusura bakmayın cepten nete girdim bu nedenle forumda arama yapamadım.benim bir tablom var aynı sayfaya bir buton koydum basınca sayfadaki belli yerleri siliyor ve geri al disable oluyor, bazen yanlıslıkla basıyorum benim istedigim butona basınca bir msgbox gelsin eminmisin desin evet dedigimde islemi yapsın hayır dedigimde bisi yapmasın.yarmdımlarınız icin cok tesekkür ederim.
 
Merhaba,

Bu şekilde kullanabilirsiniz..

Kod:
Sub Temizle()
Say = WorksheetFunction.CountA(Range("A1:A10"))
    If Say > 0 Then
    Onay = MsgBox("Silmek İstediğinize Emin misiniz?", _
    vbCritical + vbYesNo, "Dikkat !")
        If Onay = vbYes Then
            Range("A1:A10").ClearContents
        End If
    End If
End Sub

.
 
cok tesekkur ederim.
 
Geri
Üst