I am using the following array to obtain data from a worksheet:
zs_subldeger = (Range(Cells(row_set, 1), Cells(lastrow, 1)))
The value of the cell is 0001 however the data is read as a numeric value
of 1?
How do I retain the text value 001?

When I Dim zs_subldeger as string I get a type mismatch error .

Thanks

--
Ray

Ray wrote:
I am using the following array to obtain data from a worksheet:
zs_subldeger = (Range(Cells(row_set, 1), Cells(lastrow, 1)))
The value of the cell is 0001 however the data is read as a numeric value
of 1?
How do I retain the text value 001?

When I Dim zs_subldeger as string I get a type mismatch error .

Thanks


dim zs_subldeger as string
zs_subldeger = Format$((Range(Cells(row_set, 1), Cells(lastrow, 1))),"000")


Is it what you need?

witek wrote:
Ray wrote:

I am using the following array to obtain data from a worksheet:
zs_subldeger = (Range(Cells(row_set, 1), Cells(lastrow, 1)))
The value of the cell is 0001 however the data is read as a numeric
value of 1?
How do I retain the text value 001?

When I Dim zs_subldeger as string I get a type mismatch error .

Thanks


dim zs_subldeger as string
zs_subldeger = Format$((Range(Cells(row_set, 1), Cells(lastrow, 1))),"000")


Is it what you need?

or even better

zs_subldeger = Format$((Range(Cells(row_set, 1), Cells(lastrow,
1))),Range(Cells(row_set, 1), Cells(lastrow, 1)).NumberFormat)