What's wrong with my code?

dping222 · Apr 9th, 2002, 04:03 PM

Hi guys,

Range("B1").Select
again:
Selection.Copy
ActiveCell.Offset(1, 0).Select

While ActiveCell.Value = Null
ActiveCell.PasteSpecial xlPasteValues
ActiveCell.Offset(1, 0).Select
Wend

GoTo again

I'm basically trying to evaluate the cells in a column and do a FillDown on the empty cells. The column may look like the following:

11111
blank
blank
22234
blank
38288
blank
blank
blank

so on and so on. The blanks would be filled in with the closest number above the blank.

Any help is appreciated!

fght · Apr 9th, 2002, 04:13 PM

On Error Resume Next
With Range("B1:B20").SpecialCells(xlCellTypeBlanks) 'change range as required
.FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
On Error GoTo 0

[ This Message was edited by: fght on 2002-04-09 15:19 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 9th, 2002, 04:03 PM	#1
dping222 New Member Join Date: Apr 2002 Posts: 3	Hi guys, Range("B1").Select again: Selection.Copy ActiveCell.Offset(1, 0).Select While ActiveCell.Value = Null ActiveCell.PasteSpecial xlPasteValues ActiveCell.Offset(1, 0).Select Wend GoTo again I'm basically trying to evaluate the cells in a column and do a FillDown on the empty cells. The column may look like the following: 11111 blank blank 22234 blank 38288 blank blank blank so on and so on. The blanks would be filled in with the closest number above the blank. Any help is appreciated!

Apr 9th, 2002, 04:13 PM	#2
fght New Member Join Date: Apr 2002 Posts: 7	On Error Resume Next With Range("B1:B20").SpecialCells(xlCellTypeBlanks) 'change range as required .FormulaR1C1 = "=R[-1]C" .Value = .Value End With On Error GoTo 0 [ This Message was edited by: fght on 2002-04-09 15:19 ]