Conditional statement

[Hawk]

I would like an IF statement to return TRUE if the value
in a cell is a number greater than 0. I would like to do
it in one statement, but I am having troubgle since VBA
does not do short circuit evaluation. I realize that I
can do:

If Isnumeric(Range("A1")) then
If Range("A1")> 0 then

However, it would be nice to do it in one statement. If I
try:

If Isnumeric(Range("A1")) and Range("A1")> 0 then

I get an error when the user enters a non-numeric value
due to the second half of the conditional. Any ideas
would be greatly appreciated (and NO I cannot use Excel's
built-in Data Validation). TIA...

 

[Tom Ogilvy]

This was a problem in XL97/VBA5 (and possibly earlier versions), but works
in XL2000 and later (VBA6)

Sub AACTester1()
If IsNumeric(Range("A1")) And Range("A1") > 0 Then
MsgBox "Cell OK"
Else
MsgBox "Cell not OK"
End If
End Sub

 

[Bob Phillips]

Can't think why you insist it is on one line, so this might not be what you
want

On Error Resume Next
If IsNumeric(Range("A1")) And Range("A1") > 0 Then
MsgBox "yes"
Else
MsgBox "no"
End If
On Error GoTo 0

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Hawk]

I unfortunately am using XL97...I guess I am outta luck?

 

[Tom Ogilvy]

I guess, but in the world of deals, this shouldn't be such a big one.