If not numeric

[Luapo]

I would like to know if its possible to have an If statement saying something like this in VBa

If the active cell is not numeric (or is alpha, doesnt matter which) Then

move the active cell to the right one square

end if

Thankyou very much

 

[Andrew Poulsom]

It's:

If Not IsNumeric(ActiveCell.Value) Then

 

[Scott Huish]

Perhaps:

Sub test()
If Not (IsNumeric(ActiveCell)) And ActiveCell.Column <> 256 Then ActiveCell.Offset(, 1).Select
End Sub

 

[Luapo]

Thankyou both HOTPEPPER and Andrew, but I used Andrew's code as I found it much simpler.

 

[Luapo]

Another question now. If I have been moving the active cell about by using offset, if I want to find out where the cell is, how do I do that. Whether it is in A1 form or 1, 1 it doesn't matter.

Cheers again

 

[Andrew Poulsom]

Another question now. If I have been moving the active cell about by using offset, if I want to find out where the cell is, how do I do that. Whether it is in A1 form or 1, 1 it doesn't matter.

Cheers again

Like this?

MsgBox ActiveCell.Address

 

[Luapo]

yeah that is great, now is there a way to separate the row number so I can use it as a variable?

 

[Zack Barresse]

Question is, why are you moving the activecell about using offset.. To what purpose? Is there an underlying issue we need to address here?

 

[Andrew Poulsom]

yeah that is great, now is there a way to separate the row number so I can use it as a variable?

Like this:

MsgBox ActiveCell.Row

 

[Zack Barresse]

Or, let's say you actually declare your variables ...

Dim myVar as Long
'... other code ...
myVar = Activecell.Row

I'm still rather curious as to what you're trying to do..