I have a template spreadsheet that does a number of things using VBA.
One of the columns in the spreadsheet is formatted as Number with
decimal places. The problem that I am having is the user copies dat
from another spreadsheet which does not have the same format. When th
data is pasted into the template spreadsheet the column/cell has th
Number stored as Text Error. How would I fix this error via VBA befor
saving the file? In other words, how can I reformat the column back t
Number with 8 decimal places? I currently have the following, but i
does not change all of the cells (some are still stord as text).

Columns("J:K").Select
Selection.NumberFormat = "0.00000000"

Thanks

--
Message posted from http://www.ExcelForum.com

Hi
try the following:
with range("J1:K1000")
.NumberFormat = "0.00000000"
.value=.value
end with

--
Regards
Frank Kabel
Frankfurt, Germany


I have a template spreadsheet that does a number of things using VBA.
One of the columns in the spreadsheet is formatted as Number with 8
decimal places. The problem that I am having is the user copies
data
from another spreadsheet which does not have the same format. When
the data is pasted into the template spreadsheet the column/cell has
the Number stored as Text Error. How would I fix this error via VBA
before saving the file? In other words, how can I reformat the
column back to Number with 8 decimal places? I currently have the
following, but it does not change all of the cells (some are still
stord as text).

Columns("J:K").Select
Selection.NumberFormat = "0.00000000"

Thanks.


---
Message posted from http://www.ExcelForum.com/

That did it. I changed it a bit to do the entire column. Thanks
lot.

with range("J:K")
.NumberFormat = "0.00000000"
.value=.value
end wit

--
Message posted from http://www.ExcelForum.com