Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
code dropping zeros in number strand
I'm moving numbers from one column to another and using the below code. When
the number is being moved by the code from column H to column I it drops the zeros at the beginning of the number. How can I fix this? Also I need to change the criteria to move any number that is greater than 8 characters. I tried changing the 13 to 8 or but that did not work for m. Thanks Set rng = Range(Cells(2, "H"), Cells(Rows.Count, "H").End(xlUp)) For Each cell In rng If Len(cell) = 13 Then cell.Offset(0, 1).Value = cell.Value cell.ClearContents End If Next |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
code dropping zeros in number strand
If you format the detination cells as Text beforerunning the macro, the
leading zeros will be preserved.. also: if len(cells.value) 8 then -- Gary''s Student "SITCFanTN" wrote: I'm moving numbers from one column to another and using the below code. When the number is being moved by the code from column H to column I it drops the zeros at the beginning of the number. How can I fix this? Also I need to change the criteria to move any number that is greater than 8 characters. I tried changing the 13 to 8 or but that did not work for m. Thanks Set rng = Range(Cells(2, "H"), Cells(Rows.Count, "H").End(xlUp)) For Each cell In rng If Len(cell) = 13 Then cell.Offset(0, 1).Value = cell.Value cell.ClearContents End If Next |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Dropping Zeros | Excel Worksheet Functions | |||
Formula Dropping Leading Zeros | Excel Programming | |||
Excel file saved as csv - dropping zeros | Excel Discussion (Misc queries) | |||
Trailing zeros are dropping off | Excel Programming | |||
Dropping leading zeros in character fields. | Excel Programming |