like a vlookup

  • Thread starter Thread starter project manager
  • Start date Start date
P

project manager

I have a list of name and data which is gapped and need filling in.

column a row 1 has name1 in it this needs copying down into all the empty
cells under it until the next populated cell. this will work until the
bottom row i guess where i dont want it to copy till the end of the sheet. so
i have a number in column J which is also the amount of empty rows till the
next populated cell below, can it run off this.

any help would be awesome.
 
Try this....

Sub InsertDataintoBlank()

lngLastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row

For lngRow = 1 To lngLastRow
If Trim(Range("A" & lngRow)) <> "" Then
strData = Range("A" & lngRow)
Else
Range("A" & lngRow) = strData
End If
Next
End Sub
 
Without using a macro you can achieve this..

If A2 is blank, type formula =A1. Copy the cell.

Select Col A. Press F5. From Goto window click Special and then select
Blanks which will select all the blank cells in Col A. Then try Paste special
--Formulas.

If this post helps click Yes
 
works a charm apart from (Rows.Count, "B").End...

should be "A"

thanks very much

p
 
Back
Top