VBA to fill in blanks

Bah73 · Feb 17th 2021

Hi,

I'm stuck on a problem and don't even know where to start.

I need to fill all the blank cells in Row A with the number between the highlighted rows.

The amount of rows varies per report

See before and after attachments

Thanks.

**norie** · Feb 17th 2021

Can you upload a workbook with some sample data?

Bah73 · Feb 17th 2021

Sure no problem,

I included the code I have so far but cant figure out where to go from there.

Draft.xlsm

**norie** · Feb 17th 2021

Give this a try, it works with the uploaded workbook.

Code

Option Explicit


Sub FillWorkOrderNos()
Dim rngWOs As Range
Dim rngWO As Range


    Set rngWOs = Sheets("Parts List").Columns(1).SpecialCells(XlSpecialCellsValue.xlTextValues)


    For Each rngWO In rngWOs.Cells
        If rngWO.Value <> "Work Order" Then
            rngWO.Copy rngWO.CurrentRegion.Columns(1)
        End If
    Next rngWO


End Sub

Display More

Bah73 · Feb 17th 2021

Thanks norie that works perfectly.

**Carim** · Feb 17th 2021

norie

Love your usage of CurrentRegion.Columns(1) ... in this context .... very handy

Cheers

VBA to fill in blanks

Participate now!

Share