View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Gary''s Student Gary''s Student is offline
external usenet poster
 
Posts: 11,058
Default 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