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
39
Excel Vers. ve Dili
Microsoft® Excel® Microsoft 365 için MSO (Sürüm 2309 Derleme 16.0.16827.20166) 64 bit
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
39
Excel Vers. ve Dili
Microsoft® Excel® Microsoft 365 için MSO (Sürüm 2309 Derleme 16.0.16827.20166) 64 bit
Çö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