Ekrana gelen mesaj kutusu

[ASLAN7410]

Merhaba arkadaşlar hayırlı geceler.


Ekte gönderdiğim excel sayfasındaki butona bastığımda ekrana gelen mesaj kutusuna evet dediğimde 2.mesaj kutusu geliyor, bu mesaja evet dediğimde veriler siliniyor, 2.mesaj kutusuna hayır'a bastığımda veriler silinmedi mesajı geliyor.

Benim istediğim 1.mesaj kutusundaki hayır'a bastığımdada veriler silinmedi mesajının gelmesinide istiyorum.

Çok denedim ancak bir türlü başaramadım, yardım edecek arkadaşlara şimdiden teşekkür ederim.

 

[tascimehmet]

merhabalar bu şekilde sorun düzeliyor

Sub sil()
Dim a
a = MsgBox("Veriler silinecek.", vbYesNo, "ASLAN")
If a = vbYes Then
Dim b
b = MsgBox("Silmek için EMİN MİSİN?", vbYesNo, "ASLAN")
ElseIf b = vbYes Then

Range("B1:E50") = Delete
Else
MsgBox "Veriler silinmedi.", vbInformation, "ASLAN"
End If
End Sub

 

[ASLAN7410]

Sayın Mehmet Bey ilginiz için çok teşekkür ediyorum.

Sizin gönderdiğiniz kodda bu sefer 2.mesajda uyarıyı vermiyor.

 

[ASLAN7410]

Arkadaşlar yani aşağıdaki gibi olmasını istiyorum.

1.Mesaja Evet dediğimde 2.mesaj gelmeli.
1.Mesaja Hayır dediğimde Veriler silinmedi mesajı gelmeli.

2.Mesaja Evet dediğimde Veriler silindi mesajı gelmeli.
2.Mesaja Hayır dediğimde Veriler silinmedi mesajı gelmeli.

 

[muygun]

Merhaba;

Sub msg_yes_no()
sorgu1 = MsgBox("Veriler silinecek.?", vbYesNo)
If sorgu1 = vbYes Then
sorgu2 = MsgBox("Silmek için EMİN MİSİN?", vbYesNo)
If sorgu2 = vbYes Then
rem silme kodları...
MsgBox ("sorgu2 onaylandı.veriler silindi")
End If
End If
If sorgu2 = vbNo Then
MsgBox ("sorgu2 de iptal seçildi.")
End If
If sorgu1 = vbNo Then
MsgBox ("sorgu1 de iptal seçildi.")
End If

End Sub

Şeklinde deneyin.
Not: mesaj fazlalığı varsa gereken yerleri iptal edin.
İyi çalışmalar.

 

[ASLAN7410]

Sayın Muygun ilginiz için çok teşekkür ediyorum, tam istediğim gibi oldu, ellerinize sağlık.

Hayırlı geceler diliyorum.

 

[ASLAN7410]

Sayın Muygun bu konu ile küçük bir soru sorabilir miyim?

Ekrana gelen mesaj kutusunun içerisindeki yazıları bir kaç punto büyütmek için ne yapmam gerekir?

 

[Emir Hüseyin Çoban]

Msgbox daki puntoları değiştirmek için windows görünüm yazarlarını değiştirmeniz gerekir.
Bu işlem tabiki tüm bilgisayardaki işlemleri etkiler ve sadece tek bilgisayarda geçerli olur.

İsteğe göre değişik yazı ve puntolar kullanacaksanız userformda msgbox görünümlü formlar çizerek onları kullanabilirsiniz. Ancak kodlaması değişecektir...

.

 

[muygun]

Merhaba;
msgbox özelliklerini sistemden alır.
Hüseyin Bey'in önerilerine katılıyorum. Userform kullanın.
İyi çalışmalar.

 

[ASLAN7410]

Sayın Hüseyin Bey ve Sayın muygun ilginize çok teşekkür ederim.
Hayırlı çalışmalar.