Find non blank cell in range and fill the rest with that value
Select the range and then:
Sub FillRange()
v = ""
For Each r In Selection
If r.Value < v Then
v = r.Value
Exit For
End If
Next
Selection.Value = v
End Sub
--
Gary''s Student - gsnu200801
"LuisE" wrote:
There is only one non-blank cell in a given range; I need to populate the
rest of that range with that value. The cell containing the value could be
anywhere in that range so I cant use fill down, up, etc by default.
Thanks in advance
|