Fill blank cells down

Panoos64 · Apr 23, 2019

Hi to all of you, kindly require to provide me a VBA code so that to fill blank cells down in col. “D” with sequence number starting the first number 1001, 1002 and so on… Therefore, that my data begin from row “12”. I present below an extract of original and expected result. Many thanks in advance to all of you.

Original data

	D	E
12
13	ALCOHOLICS RED WINES 75CL
14	ALCOHOLICS SPIRITS 75CL
15	ALCOHOLICS APERITIFS 1LTR
16	REFRESMENTS LEMONADE 75CL
17
18	FOOD CEREALS 0.50KG
19	FOOD CORN CANS 50GR
20	FOOD BREAD 1KG

Expected result

	D	E
12	1001
13	ALCOHOLICS RED WINES 75CL
14	ALCOHOLICS SPIRITS 75CL
15	ALCOHOLICS APERITIFS 1LTR
16	REFRESMENTS LEMONADE 75CL
17	1002
18	FOOD CEREALS 0.50KG
19	FOOD CORN CANS 50GR
20	FOOD BREAD 1KG

Brombrough · Apr 23, 2019

Hi Panoos64,

Hello again,

Try following and enjoy if works

Please don't forget to post Thanks/ Like if this meets your requirements.

Code:

Sub FilldownBlankCells()    
    Dim i As Long
    Dim lngNo As Long
    Dim lngMaxRow As Long
    Dim ws As Worksheet


    Set ws = ActiveWorkbook.ActiveSheet
    
    lngNo = 1001


    lngMaxRow = ws.Range("C" & ws.Rows.Count).End(xlUp).Row
    
    For i = 12 To lngMaxRow
        If ws.Range("D" & i) = "" Then
            ws.Range("D" & i).HorizontalAlignment = xlLeft
            ws.Range("D" & i) = CStr(lngNo)
            
            lngNo = lngNo + 1
        End If
    Next i


    Set ws = Nothing
End Sub

Panoos64 · Apr 23, 2019

Perfect work Brombr, it works nicely and based to my data. Many thanks for your time and i express my apologies if i didn't post "Like" or "Thanks" on any support. I appreciate any help from you and anyone here. Have a great day!

Fill blank cells down

Panoos64

Well-known Member

Excel Facts

Brombrough

New Member

Panoos64

Well-known Member

Similar threads

Forum statistics

Share this page

Fill blank cells down

Panoos64

Well-known Member

Excel Facts

Brombrough

New Member

Panoos64

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock