Determining cell format

[rpm]

I'm writing a macro that works its way down a column and stores the first non-blank cell, populates all blank cells with that value until it finds the next non-blank cell. It takes that value and poulates all blanks. The macro will continue to do this until it hits the bottom of the data. My problem is that if the non-blank value is alpha-numeric (e.g. "00123"), all non-blank cells are populated with a numeric value of 123. I want to retain the leading zeros. There are times when the non-blank value will be a numeric value or a date. In all cases I want to retain the format of non-blank cell.

Any suggestions?

Thanks,
Peter

 

[Zack Barresse]

Hi there Peter,

Maybe you can select the entire range where the blank cells would be, hit F5 | Special... | Blanks. Then type = and hit your up arrow (two keyboard storkes), then confirm with Ctrl + Enter at the same time (Ctrl first {holding} then Enter, two more strokes). To leave the values, select the entire range again, press Ctrl + C, then Alt +E, S, V, Esc (seven keyboard strokes). If you want this in code, do this while recording a macro (Tools | Macro | Record New Macro).

If you need more help, post back.

 

[Norie]

Peter

I would follow firefytr's instructions, but you might also want to format the whole column as Text.

Hopefully that will retain the leading zeroes.