VBA IsNumeric selects blank cell

Diego_Garcia · Dec 6th 2004

When B13 is blank (No value, no formula and formatted as General) this code still selects and copies, instead of selecting B12 and copying. Where is my error ?

Code

Windows("Premier Current.xls").Activate
     If IsNumeric(Range("B13").Value) Then
    Range("B13").Copy
        Windows("Premier1").Activate
        Range("B12").PasteSpecial Paste:=xlValues, Operation:=xlPasteSpecialOperationAdd
    Else
        Range("B12").Copy
        Windows("Premier1").Activate
        Range("B12").PasteSpecial Paste:=xlValues, Operation:=xlPasteSpecialOperationAdd
        End If

**Batman** · Dec 6th 2004

Re: VBA IsNumeric selects blank cell

Hi Diego,

VBA will return a value of True if you test a blank cell for IsNumeric. You need to change your second line of code to measure the length of the field as well:

Code

If IsNumeric(Range("B13").Value) And Len(Range("B13").Value) > 0 Then

Hope this helps.

Regards,
Batman.

Diego_Garcia · Dec 6th 2004

Re: VBA IsNumeric selects blank cell

Hola Batman

Estupendo. Splendid this now goes to the Else statement.

Thank you

VBA IsNumeric selects blank cell

Participate now!

Share