Help with macros

Posted by Sebastian on November 14, 2001 2:23 AM

I need to make a macro in which if the cell in a column is empty, it should copy the value of above one.
Is there a way to do this?
Thanks.

Posted by Paul Akkermans on November 14, 2001 2:46 AM

sub full_selection()

For Each cl In Selection
If IsEmpty(cl) And cl.Row > 1 Then
cl.Value = cl.Offset(-1, 0).Value
End If
Next cl

end sub