Macro: Auto Fill down on Col A & B base on cell

[harky]

The pic1 show original, and the marco will auto fill down as show in pic2 (yellow)

 

[My Aswer Is This]

Try this:

Sub Fill_Down()
'Modified 8/22/2019 12:30:48 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 4 To Lastrow
    If Cells(i, 1).Value = "" Then Cells(i, 1).Value = Cells(i, 1).Offset(-1).Value
    If Cells(i, 2).Value = "" Then Cells(i, 2).Value = Cells(i, 2).Offset(-1).Value
Next
Application.ScreenUpdating = True
End Sub

 

[lrobbo314]

Another option.

Sub FillDown()
With Range("A4:B" & Range("C" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
    For Each a In .Areas
        a.FormulaR1C1 = "=R[-1]C"
        a.Value = a.Value
    Next a
End With
End Sub

 

[salim hasan]

Please see this video on this URL
https://www.youtube.com/watch?v=iIKqeaFvltQ

 

[harky]

Thanks you so much!

Try this:

Sub Fill_Down()
'Modified 8/22/2019 12:30:48 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 4 To Lastrow
    If Cells(i, 1).Value = "" Then Cells(i, 1).Value = Cells(i, 1).Offset(-1).Value
    If Cells(i, 2).Value = "" Then Cells(i, 2).Value = Cells(i, 2).Offset(-1).Value
Next
Application.ScreenUpdating = True
End Sub

Thanks you so much!

Another option.

Sub FillDown()
With Range("A4:B" & Range("C" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
    For Each a In .Areas
        a.FormulaR1C1 = "=R[-1]C"
        a.Value = a.Value
    Next a
End With
End Sub

Thanks you so much!

Please see this video on this URL
https://www.youtube.com/watch?v=iIKqeaFvltQ

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thanks you so much!



Thanks you so much!



Thanks you so much!