Selection.AutoFill = HELP

[spcalan]

I have a column that needs to filling in.

Row 1 may have a number
Rows 2-100 are empty but need row 1's data to be in it.
Then row 101 has something
but row 102-105 are empty.

basically I need to fill in the empty rows with data from a previous row.
( Selection.AutoFill )???

 

[Jonmo1]

See how this works for you...

With Range("A2:A" & Cells(Rows.Count,"A").End(xlup).Row).SpecialCells(xlCellTypeBlanks)
.Formula = "=A1"
.Value = .Value
End With

 

[spcalan]

See how this works for you...

With Range("A2:A" & Cells(Rows.Count,"A").End(xlup).Row).SpecialCells(xlCellTypeBlanks)
.Formula = "=A1"
.Value = .Value
End With

This just took the first 2 rows with data and pasted them down the range of column A.

Hmm, filled it yes,, but not selection autofill, lol.

 

[spcalan]

I am thinking that it might be a ----

Cells(1,1) = value

if cells(2,1) is empty then copypaste "value"
if cells ( 3,1) is empty then copypaste "value"

 

[Case_Germany]

Hi,

perhaps with this code?

Sub fill_rows_A()
    Dim arrTmp As Variant
    Dim lngRow As Long
    With Worksheets("Sheet1") 'adapt
        arrTmp = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
        For lngRow = 1 To UBound(arrTmp)
            If arrTmp(lngRow, 1) = "" Then arrTmp(lngRow, 1) = arrTmp(lngRow - 1, 1)
        Next
        .Range(.Cells(1, 1), .Cells(UBound(arrTmp), 1)) = arrTmp
    End With
End Sub

Case_Germany