Bu kodda geçti veya kaldı mesajları gözükmüyor, mesaj kutusu boş geliyor, sebebi ne olabilir?

Katılım
18 Haziran 2020
Mesajlar
13
Excel Vers. ve Dili
Excel 2016 Vba
Sub nnot()

Dim a As Integer
Dim b As Integer
a = InputBox("sayı giriniz")
b = 50
Select Case b
Case Is > a
MsgBox "kaldı”"
Case Is <= a
MsgBox (geçti)
End Select

End Sub
 
Katılım
18 Haziran 2020
Mesajlar
13
Excel Vers. ve Dili
Excel 2016 Vba
Çözdüm,
silemediğim için cevapla belirtmek istedim.

Çalışan kod da aşağıda

Sub nnot()

Dim a As Integer
Dim b As Integer
a = InputBox("sayı giriniz")
b = 50
Select Case b
Case Is > a
MsgBox "kaldı”"
Case Is <= a
MsgBox "geçti"
End Select

End Sub
 
Üst