MsgBox'da 0 sorunu

[NEMAKSAN]

Selamlar herkese

[A1] hücresine 0 girince msgbox'da 0 Puan yazdırmak istiyorum
ama "Hatalı puan tekrar deneyiniz..." yazdırıyor
nasıl yapabiliriz

Option Explicit
Sub Puan()
Dim Puan As Byte
On Error Resume Next
Puan = [A1]
If Puan <> False Then
MsgBox Puan & " Paundasınız..."
Else
MsgBox "Hatalı puan tekrar deneyiniz..."
End If
End Sub

 

[uzmanamele]

merhaba

bu şekilde işinizi görür mü?

Sub Puan()
Dim Puan As Byte
On Error Resume Next
Puan = [A1]
If Puan >= 0 Then
MsgBox Puan & " Paundasınız..."
Else
MsgBox "Hatalı puan tekrar deneyiniz..."
End If
End Sub

 

[NEMAKSAN]

Sayın Uzman Amele;

İşimi görmedi.

A1 hücresine metin var yada hücre boş ise
msgbox'a "Hatalı puan tekrar deneyiniz..." yazacak
değilse
MsgBox Puan & " Paundasınız..." yazacak (0'da dahil)

kolay gelsin

 

[uzmanamele]

merhaba

bu şekilde dener misiniz?

Sub Puan()
Dim Puan As Byte
On Error Resume Next
Puan = [A1]
If Not IsNumeric([A1]) = True Or [A1] = "" Then
MsgBox "Hatalı puan tekrar deneyiniz..."
Else
MsgBox Puan & " Paundasınız..."
End If
End Sub

 

[NEMAKSAN]

Sayın Uzmanamele;

Çok teşekkür ederim.