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
>>>
>>>
>>>