letters in a number

[jigglypuff]

If Target.Row >= 5 Then
If Cells(Target.Row, 5).Value >= 1 Then Cells(Target.Row, 5).Interior.Color = vbGreen
If Cells(Target.Row, 5).Value < 1 Or Cells(Target.Row, 5).Value = "" Then Cells(Target.Row, 5).Interior.Color = xlNone
End If


I am having problems with this code, when I set a number with letter, e.g.: '899gg', a error appears on the screen. Any ideas of what could have causing it? I think I have to set another if sentence saying that if a number has letters then (target.roll, 5).value = "" but have no idea how to do so...

 

[AD_Taylor]

Can you tell us what the error says?

As far as I can tell that code should have no problems and the cell could contain any value.

 

[jigglypuff]

as soon as I set any number with letters (or just letters) this error appears: run-time error '13': type mismatch

 

[Jonmo1]

Works for me, I can only produce that error by entering an error value like #N/A or #VALUE!

But entering Blanks Numbers or Mixed values, it works fine.

 

[James Snyder]

Try this:

IsNumeric( expression )

Another thought is to check the types of the cells being looked at to see if there is a conversion needed (CStr).

 

[jigglypuff]

'celulas verdes'
If Target.Row >= 5 And IsNumeric(Cells(Target.Row, 3)) Then
If Cells(Target.Row, 5).Value >= 1 Then Cells(Target.Row, 5).Interior.Color = vbGreen
If Cells(Target.Row, 5).Value < 1 Or Cells(Target.Row, 5).Value = "" Then Cells(Target.Row, 5).Interior.Color = xlNone
End If

If Not IsNumeric(Cells(Target.Row, 3)) Then Cells(Target.Row, 5).Interior.Color = xlNone



I used it to solve the problem thanks everybody for the ideas