Microsoft Excel VBA inputBox Uygulaması Nasıl Çalışır Konu Anlatım İleri Excel 29.Ders

[@ismailsar9266]

Hocam yine kral olmuş kodlamanın temeli bunlar

[@eschool1398]

Kesinlikle yapı aynı çok teşekkür ederim

[@osmanberbergil4180]

Private Sub CommandButton2_Click()
sayı = InputBox("Sınavdan kaç aldın", "Sorgu Sistemi")
Range("A1").Value = sayı
If sayı < 50 Then
MsgBox "Kaldın", vbCritical
Else
MsgBox "Tebrikler Geçtiniz Devam etmek istiyor musunuz ?", vbYesNo, "Seçim Menüsü"
If vbNo Then
MsgBox "Bol Şans"
Else
MsgBox "Tebrikler"
End If


End If
End Sub
Hocam iyi akşamlar burda kodun else kısmının içine girmiş olduğum ikinci if else yapısında bol şans yazdırırken Tebrikler yazdıramıyorum acaba sebebi nedir ?

[@TolgaAktolgali]

Bir de aşağıdaki gibi kodu düzenleyerek çalıştır :)
Private Sub CommandButton2_Click()
sayı = InputBox("Sınavdan kaç aldın", "Sorgu Sistemi")
Range("A1").Value = sayı
If sayı < 50 Then
MsgBox "Kaldın", vbCritical
Else
If MsgBox("Tebrikler Geçtiniz Devam etmek istiyor musunuz ?", vbYesNo, "Seçim Menüsü") = vbNo Then
MsgBox "Bol Şans"
Else
MsgBox "Tebrikler"
End If
End If
End Sub