IF Blank, copy above text ???

[monkeyharris]

Please help. I've being trying an IF statement which is getting messy. In the below example i need look if there is a blank cell it needs to find the last name mentioned above then copy it to the blank cells. The table is A1:R5000 and this column is in H.


CHARLOTTE.HERBER
MARK.RUBY
MARK.RUBY


MARK.RUBY

MARK.RUBY



MARK.RUBY
MARK.RUBY
CORINNA.KELLY
CORINNA.KELLY
CORINNA.KELLY
CORINNA.KELLY

 

[mfexcel]

Are you talking about to fill in the blank cell with the name above?
If so, check this out:
Fill in the blanks – quickly | wmfexcel

Please help. I've being trying an IF statement which is getting messy. In the below example i need look if there is a blank cell it needs to find the last name mentioned above then copy it to the blank cells. The table is A1:R5000 and this column is in H.


CHARLOTTE.HERBER
MARK.RUBY
MARK.RUBY


MARK.RUBY

MARK.RUBY



MARK.RUBY
MARK.RUBY
CORINNA.KELLY
CORINNA.KELLY
CORINNA.KELLY
CORINNA.KELLY

 

[XLRATOR]

Try:

Application.ScreenUpdating = False 'Comment this out if you want to see the changes happen
Dim rng As Range
For Each rng In Range("A1:R5000").Cells
If rng.Value = "" Then
rng.Value = rng.End(xlUp).Value
End If
Next

Karim