auto number every 4 row by code

**ABDELFATTA** · 05-02-2020, 04:53 PM

hello
i have this code works very well but i need adjusting and make it numbering every 4 rows i put my result in column a

HTML Code:

**MarvinP** · 05-02-2020, 05:12 PM

Hi ABDELFATTA

See if a For Next Loop with a 4 Step works for you. Like:

Sub Auto_Serial()
    Dim lr As Long
    Dim RowCtr As Long
    Dim PreStr As String
    Dim Ctr As Long
    
    lr = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
    PreStr = "bsj2018/"
    Ctr = 1
    
    For RowCtr = 4 To lr Step 4
        Cells(RowCtr, "A") = PreStr & Format(Ctr, "000")
        Ctr = Ctr + 1
    Next RowCtr

End Sub

**Vraag en antwoord** · 05-02-2020, 05:14 PM

Can you also indicate what the expected result is?

**Fluff13** · 05-02-2020, 05:22 PM

Another option

Sub Abdelfattah()
   With Range("A4:A" & Range("B" & Rows.Count).End(xlUp).Row)
      .Formula = "=if(B4="""","""",""bsj2018/""&text(counta(B$4:B4),""000""))"
      .Value = .Value
   End With
End Sub

**ABDELFATTA** · 05-02-2020, 05:26 PM

awesome Marvip greatly work

**ABDELFATTA** · 05-02-2020, 05:32 PM

always codes are unique fluff the most important no loop this makes code a quick thank so much

**Fluff13** · 05-02-2020, 05:36 PM

You're welcome & thanks for the feedback.

**ABDELFATTA** · 05-02-2020, 05:37 PM

sir vragg i have ever cleared the result in column a do you check my file , and do you read my post ?

anyway Fluff and Marvip solved it

auto number every 4 row by code

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

auto number every 4 row by code

Re: auto number every 4 row by code

Re: auto number every 4 row by code

Re: auto number every 4 row by code

Re: auto number every 4 row by code

Re: auto number every 4 row by code

Re: auto number every 4 row by code

Re: auto number every 4 row by code

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Code to Number Rows as a Sheet is Auto Updated

how to auto add code line number in VBA Editor

How to add auto number to this vba code

[SOLVED] vba code to find last row value, add new row and auto number new row

Auto number code

Auto Fill (number & its repeat in bar code) for stickers

[SOLVED] Can I auto fill a cell in one worksheet by typing a code number

Bookmarks

Bookmarks

Posting Permissions