pozitif tamsayı değilse uyarı ver

[uzmanamele]

merhaba

aşağıdaki kodu nasıl yazmam lazım?

Sub makro1()
..
..
If A1'e girilen değer pozitif tamsayı değilse
msgbox" A1 hücreye pozitif tamsayı giriniz"
[A1] = Empty
End Sub

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi deneyiniz.

Sub deneme()
If Range("a1") < 0 Or Range("a1") - Int(Range("a1")) > 0 Then
      MsgBox "Pozitif bir tamsayı girmelisiniz"
      Range("a1") = Empty
End If
End Sub

 

[uzmanamele]

merhaba
syn Ferhat Pazarçevirdi, aşağıdaki gibi uyarladım, istediğim sonucu altım. çok teşekkür ederim

Sub makro1()
..
..
ElseIf Range("D13") < 0 Or Range("D13") - Int(Range("D13")) > 0 Then
MsgBox " Hatal&#305; Giri&#351; Yapt&#305;n&#305;z, Pozifit Tamsay&#305; Giriniz!", vbCritical, "UYARI"
Target = Empty
Target.Select
..
..
End If
End Sub

 

[aekturk]

isterseniz uyar&#305; vermeden sadece say&#305; girebilece&#287;i &#351;ekilde de d&#252;zenleyebilirsiniz, bu daha kullan&#305;&#351;l&#305; olabilir (al&#305;nt&#305;d&#305;r; http://www.excel.web.tr/showthread.php?t=37449&highlight=sadece+tamsay&#37;FD )

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub