Hi, all:

I have the folloiwng code. If cell A1 is a numberical number 0, then
a value 1 will be returned in cell B1. However, if I enter a text
string into cell A1, it will still return a number 1 in cell B1. How
to list them as two different cases, i.e. return a different value in
cell B1 if cell A1 is text string? I appreciate your help! Thank you
so much!

Sub ReturnDifferentNumber()
Range("B1") = 0

If Range("A1").Value 0 Then
Range("B1").Value = 1
End If
End Sub

Try using something like this:

WorksheetFunction.IsNumber(Range("A1"))

Note that it returns false if the cell isempty

You may want to check
if not ISEMPTY(Range("A1")) then
IF WorksheetFunction.IsNumber(Range("A1")) and _
Range("A1").VALUE 0 then

rANGE("b1").VALUE = 1
END IF
END IF

HTH,
Barb Reinhardt


" wrote:

Hi, all:

I have the folloiwng code. If cell A1 is a numberical number 0, then
a value 1 will be returned in cell B1. However, if I enter a text
string into cell A1, it will still return a number 1 in cell B1. How
to list them as two different cases, i.e. return a different value in
cell B1 if cell A1 is text string? I appreciate your help! Thank you
so much!

Sub ReturnDifferentNumber()
Range("B1") = 0

If Range("A1").Value 0 Then
Range("B1").Value = 1
End If
End Sub

On May 22, 5:17 pm, Barb Reinhardt
wrote:
Try using something like this:

WorksheetFunction.IsNumber(Range("A1"))

Note that it returns false if the cell isempty

You may want to check
if not ISEMPTY(Range("A1")) then
IF WorksheetFunction.IsNumber(Range("A1")) and _
Range("A1").VALUE 0 then

rANGE("b1").VALUE = 1
END IF
END IF

HTH,
Barb Reinhardt



" wrote:
Hi, all:

I have the folloiwng code. If cell A1 is a numberical number 0, then
a value 1 will be returned in cell B1. However, if I enter a text
string into cell A1, it will still return a number 1 in cell B1. How
to list them as two different cases, i.e. return a different value in
cell B1 if cell A1 is text string? I appreciate your help! Thank you
so much!

Sub ReturnDifferentNumber()
Range("B1") = 0

If Range("A1").Value 0 Then
Range("B1").Value = 1
End If
End Sub- Hide quoted text -

- Show quoted text -

Thanks, it works as desired.