Identify if cell in the range does not equal to number

[ThrottleWorks]

If OSht.Cells(i, MyCol (SumSht.Range("a1")).Column) <> "" And OSht.Cells(i, MyCol (SumSht.Range("a9")).Column).Value <> not a number Then

OSht.Cells(i, MyCol (SumSht.Range("a9")).Column).clear

End If

Hi,

I am running an if condition in a range. I am facing problem while deciding the value is ‘Not Numeric.


Please see below example for your reference.


If Range A1 value = “Honda” (any text) and Range B1 value = 100 (any number) then do nothing


If Range A1 value = “Honda” (any text) and Range B1 value <> 100 (any number) then take action.


I tried Is Numeric but somehow it’s not working



Can someone please help me regarding how to write this condition

 

[Luke M]

Does this give a good example?

Sub CheckThings()
If IsNumeric(Range("B1").Value) And Not (IsNumeric(Range("A1").Value)) And Range("B1").Value <> "" Then
    MsgBox "do nothing"
Else
    MsgBox "do something"
End If
End Sub

 

[ThrottleWorks]

Hi Luke Sir,


Thanks a lot for the help, I am checking this and will share the results shortly.


Good night.

 

[ThrottleWorks]

Good afternoon Luke Sir,


The code is working prefect ! thanks a lot for the help.


Have a nice day ahead.