Hi group,



I want to repeat the contents of a cell to all cells below in the column
provided the cells below are blank.

This operation shall continue until a cell with contents is met. After this
the repetition to all new blanks shall continue with the contents of the new
cell.

Moreover, I want to specify the range in which I want the procedure to work.



I hope someone can help.



Regards

Kaj Pedersen

One way. Modify to suit.

Sub fillempties()
For Each c In [k1:k12]
If c = "" Then c.Value = c.Offset(-1)
Next
End Sub

"Kaj Pedersen" wrote in message
...
Hi group,



I want to repeat the contents of a cell to all cells below in the column
provided the cells below are blank.

This operation shall continue until a cell with contents is met. After
this
the repetition to all new blanks shall continue with the contents of the
new
cell.

Moreover, I want to specify the range in which I want the procedure to
work.



I hope someone can help.



Regards

Kaj Pedersen

Hi Kaj,

select the range and run this macro

Sub fill_empty_cells()
Selection.SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
Selection.Copy
Selection.PasteSpecial xlPasteValues
End Sub


Wolf
wlamik<atgmx.net<nospam
-----Original Message-----
Hi group,



I want to repeat the contents of a cell to all cells
below in the column
provided the cells below are blank.

This operation shall continue until a cell with contents
is met. After this
the repetition to all new blanks shall continue with the
contents of the new
cell.

Moreover, I want to specify the range in which I want the
procedure to work.



I hope someone can help.



Regards

Kaj Pedersen


.

Hi,
Thanks to both of you for your inputs.

Regards
Kaj Pedersen

Better than my offering but this might be a little shorter & quicker than
copy/paste

Sub fill_empty_cells1()
With Selection
.SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
.Formula = .Value
End With
End Sub

"wolf" wrote in message
...

Hi Kaj,

select the range and run this macro

Sub fill_empty_cells()
Selection.SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
Selection.Copy
Selection.PasteSpecial xlPasteValues
End Sub


Wolf
wlamik<atgmx.net<nospam
-----Original Message-----
Hi group,



I want to repeat the contents of a cell to all cells
below in the column
provided the cells below are blank.

This operation shall continue until a cell with contents
is met. After this
the repetition to all new blanks shall continue with the
contents of the new
cell.

Moreover, I want to specify the range in which I want the
procedure to work.



I hope someone can help.



Regards

Kaj Pedersen


.