MsgBox Yes/no ?

[gdemir]

arkadaslar boyle bır kodum var ama sılmesı ıcın emınmısınız
bır msgbox koyup emin olup olmadıgını sormak ıstedım ama basaramadım
nasıl yapa bilirim



Private Sub cmd_sil_Click()
Dim say As Integer
Dim i As Integer
Dim bos As Range
Dim sil
Dismi = ActiveWorkbook.Name
For Each bos In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
If cbAd.Value = "" Or bos = "" Or ActiveCell = "" Then
MsgBox "Ã?nce aradığınız veriyi BUL ile bulmalısınız"
Exit Sub


End If
'''''''''''''''''''''''''''''''''
MsgBox "eminmisiniz", vbYesNo


Next bos
Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 9).Address(False, False)).Delete Shift:=xlUp
say = WorksheetFunction.CountA(Range("A2:A65000"))
For i = 1 To say
Cells(i + 1, 1) = i
Next i
Workbooks(Dismi).Save
MsgBox "kayıtniz Silindi", , "KAYIT"
cmd_temizle_Click
cbAd.RowSource = "kayıt!c2:c" & say + 1
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub

 

[Mahmut Bayram]

If MsgBox("Silmek istediğinize emin misiniz?", vbYesNo + vbQuestion) = vbYes Then

 

[Mahmut Bayram]

devamını yazmayı unutmuşum
...... ' kodlarınız
Else: Exit Sub
End If

 

[gdemir]

saolun ilginiz icin teşekkür ederim
ama bır sorun cıktı hayır butonuna bastıgımda hersey guzel devam edıyor
ama evet butonuna bastıgım zaman bır kac kez soruyor

 

[Mahmut Bayram]

...... ' kodlarınız
Else: Exit Sub
End If
kodlarını eklediniz mi?

eğer olmadıysa
çalışmanızı siteye ekleyebilir misiniz?

 

[gdemir]

evet tabıkı

 

[gdemir]

g_demir
sifremiz

 

[Mahmut Bayram]

çözümlü örnek ekte

 

[gdemir]

teşekkür ederim

 

[Mahmut Bayram]

rica ederim