copy numbers from previous row.

[donlincolnmre2]

Hello

I'm looking for a macro which has some number in Column D

If the Column D row contains a blank Cell then the macro should copy the value from the previous row into that current cell

like in the data below, row 2 contains the empty cell so it should copy the value from row 1 column D to row 2 column D

Any help would be greatly appreciated.

Thanks.



column C Column D
======= ========
PLEASANT HILL 544185
Pleasant Hill
OAKLAND 240000
LODI 272000
Lodi
DALY CITY 435000
COTO DE CAZA 1215000
RANCHO PALOS 1074500
RANCHO SANTA 844700
Unknown 7800000
RICHMOND 344491
Richmond
Richmond
Richmond
RICHMOND 371700
LODI 212000

 

[RonB1111]

Sub Macro1()
'
' Macro1 Macro
'

'
Columns("D:D").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
End Sub


Alternatively, you could manually do this by:
1. Select col D
2. Press F5 function key
3. click "Special" box
4. place a check next to "Blank" then click OK
5. Press the = sign, then press the up arrow once
6. Press CTRL-Enter keys together (don't just press the enter key)