evet hayır mesajı hakkında

[sozlersilah]

aşağıdaki koda silmeden önce uyarı mesajını nasıl verebiliriz örneklere baktım ama bulamadım tşkler


Sub gıda_Düğme3_Tıklat()
Sheets("GIDA").Range("a3:e1000").ClearContents
End Sub

 

[M3004]

MsgBox("Kayıt silinecektir. Onaylıyormusunuz?", 32 + 4, "Onay")

 

[sozlersilah]

sayın M304 ilginize tşk.ama hayır dediğimiz zaman da kaydı siliyor

 

[excelvba]

Aşağıdaki gibi deneyin.

[vb:1:9abe9c716f]Sub gıda_Düğme3_Tıklat()
sor=MsgBox("Kayıt silinecektir. Onaylıyormusunuz?", 36, "Onay")
if sor=vbyes then Sheets("GIDA").Range("a3:e1000").ClearContents
End Sub
[/vb:1:9abe9c716f]

 

[M3004]

general bölümüne bir değişken tanımlıyorsunuz (ben x dedim)
Dim x
-----
işlem bölümünede
X = MsgBox("kayıt silinecektir. Onaylıyormusunuz?", 32 + 4, "Onay")
If X = 6 Then (buraya kayıt silme işleminizi yazın)
MsgBox "Silindi", vbInformation, "Durum Bilgisi"
End If
If X = 7 Then
MsgBox "İşlem Yapılmadı ", vbInformation, "Durum Bilgisi"
End If
End Sub

 

[sozlersilah]

TÞK LER