Is Integer

[Fire_Chief]

How can I tell if Cell G22 is an integer?

I have tried combinations of If Range("G22").value = integer ... ect.

Can't get it

Help

Marty

 

[texasalynn]

will this work?

=IF(MOD(G22,1)=0,"yes","no")

 

[iknowu99]

Sub foobar()
If CInt(Range("A1").Value) <> Range("A1").Value Then
    j = j
Else
    k = k
End If
End Sub

 

[Jonmo1]

maybe something like this...
On Error Resume Next
x = WorksheetFunction.Search(".", Range("A1"))
MsgBox IsEmpty(x)

 

[Fire_Chief]

ADVERTISEMENT

I need something that will work in code not in the cell....

 

[Fire_Chief]

This is the code I am using:

Sub CHECK_FOR_DUPLICATES()


lastrow = Range("Q34").End(xlUp).Row
For X = lastrow To 1 Step -1

If Application.WorksheetFunction.CountIf(Range("L5:Q33" & X), Range("Q" & X).Text) > 1 Then
If Range("Q" & X).Value = "" Then
GoTo JUMP3
ElseIf Range("Q" & X).Value = "CONSOLE" Then
GoTo JUMP3
ElseIf Range("Q" & X).Value = "PHONE" Then
GoTo JUMP3



'Here is where I want it to goto jump3 if it is an Integer



Stop
GoTo JUMP3


End If
Range("Q" & X).Activate
MsgBox "IT APPEARS YOU HAVE 2 PEOPLE ON " & ActiveCell.Value
STOP_SUB = "YES"
Exit Sub
'Range("E" & x).Interior.ColorIndex = 4
JUMP3:

End If
Next X
End Sub

 

[Fire_Chief]

ADVERTISEMENT

I tried iknow299 code and get a type mismatch because there may be other things typed in the cells that are not numbers.

 

[Richard Schollar]

Do an additional test to see if it is numeric before you run the type conversion ie:

If IsNumeric(Range("A1").Value) Then
   If CLng(Range("A1").Value) = Range("A1").Value Then 
'etc etc

 

[Norie]

You can test for a number using IsNumeric, then you could test if that number is an integer.

By the way I would recommend you restructure the code.

How exactly is hard to say as the way it is currently makes it hard to interpret.