Hi all,

How can I check the value of a Column whether string or integer?

Thanks
TLee

If all the values in a column are text or all the values in a column are
number, then pick a cell and test it:

Sub WellWhatIsIt()
n = Cells(Rows.Count, "Z").End(xlUp).Row
v = Range("Z" & n)
If Application.WorksheetFunction.IsNumber(v) Then
MsgBox ("numbers")
Else
MsgBox ("text")
End If
End Sub

For column Z
--
Gary''s Student - gsnu2007L


"tlee" wrote:

Hi all,

How can I check the value of a Column whether string or integer?

Thanks
TLee

Hi Gray,

Thanks for your help.

If I would like to check all the cells in Column D such that D2 to D9999,
how can I code it?

TLee



If all the values in a column are text or all the values in a column are
number, then pick a cell and test it:

Sub WellWhatIsIt()
n = Cells(Rows.Count, "Z").End(xlUp).Row
v = Range("Z" & n)
If Application.WorksheetFunction.IsNumber(v) Then
MsgBox ("numbers")
Else
MsgBox ("text")
End If
End Sub

For column Z
--
Gary''s Student - gsnu2007L


"tlee" wrote:

Hi all,

How can I check the value of a Column whether string or integer?

Thanks
TLee

Hi Gray,

Please let me refine my question.

I suppose all cells data in Column D is number. If checked it contains
string(even only one cell), then it shows the message ("text")

Thanks
TLee


Hi Gray,

Thanks for your help.

If I would like to check all the cells in Column D such that D2 to D9999,
how can I code it?

TLee



If all the values in a column are text or all the values in a column are
number, then pick a cell and test it:

Sub WellWhatIsIt()
n = Cells(Rows.Count, "Z").End(xlUp).Row
v = Range("Z" & n)
If Application.WorksheetFunction.IsNumber(v) Then
MsgBox ("numbers")
Else
MsgBox ("text")
End If
End Sub

For column Z
--
Gary''s Student - gsnu2007L


"tlee" wrote:

Hi all,

How can I check the value of a Column whether string or integer?

Thanks
TLee