Fill in between empty spaces macro

[jccrespo208]

Hi,

I'm trying to create a macro where I can automatically fill down the data between empty spaces.

Here's what I have to give you an idea:

GROUP	EE#	ID#	TID#
ABC	1234	1001	XXX-XX-1234
ABC
ABC
ABC
ABC
ABC	2345	1002	XXX-XX-0002
ABC
ABC
ABC	3456	1003	XXX-XX-1003
ABC
ABC

<tbody>
</tbody>

So basically what I'm trying to do is to use the macro to fill down the data with the information that I have for each employee.

thanks!

 

[HWL]

lastrow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row 'determines the dynamic last row for looping
for x = 2 to lastrow 'assume header is on row 1
'column B
if trim(cells(x,1))<>"" and trim(cells(x,2))="" then
cells(x,2) = cells(x-1,2)
endif
'column C
if trim(cells(x,1))<>"" and trim(cells(x,3))="" then
cells(x,3) = cells(x-1,3)
endif
'column D
if trim(cells(x,1))<>"" and trim(cells(x,4))="" then
cells(x,4) = cells(x-1,4)
endif

next x
msgbox "Done!"

 

[Rick Rothstein]

Here is another macro (a non-looping one) for you to try...

Sub FillInBlanks()
  On Error GoTo NoBlanks
  With Range("B3:D" & Cells(Rows.Count, "A").End(xlUp).Row)
    .SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
  End With
NoBlanks:
End Sub

 

[jccrespo208]

Thanks!!

Works like a charm!!

Here is another macro (a non-looping one) for you to try...

Sub FillInBlanks()
  On Error GoTo NoBlanks
  With Range("B3:D" & Cells(Rows.Count, "A").End(xlUp).Row)
    .SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
  End With
NoBlanks:
End Sub