Adding a unique customer # after every 5th row

Hi All, I've a list of 200 customers which I'd like to insert after every 5 rows. Entry beginning with ALL1221, ALL1225 is a unique customer # and the entries starting with T are item codes, the adj...

excel

Formulas and Functions

Apr 01, 2024

Sub items()

Dim i, j As Long

Range("A:C").Clear

j = 1
For i = 1 To 1200

If i Mod 6 = 1 Then
Cells(i, 1).Value = Cells(j, 11).Value
j = j + 1
Else

Select Case i Mod 6

Case Is = 2
Cells(i, 1).Value = "T40015"
Case Is = 3
Cells(i, 1).Value = "T40016"
Case Is = 4
Cells(i, 1).Value = "T40017"
Case Is = 5
Cells(i, 1).Value = "T40018"
Case Is = 0
Cells(i, 1).Value = "T40019"


End Select

Cells(i, 2).Value = 6
Cells(i, 3).Value = 5


End If

Next i

End Sub

In the attached file you can click the button in cell E2 to run the macro which enters the unique customer id's from range K1:K200 in column A.

add customer id.xlsm32 KB

Gurpreet20

Copper Contributor

May 02, 2024

OliverScheurich

Hi Oliver,

Yes, the macro in cell W4 is returning the intended result. No changes required. I ran a couple of tests and everything is working as it should. This is no short of "WOW" A big thanks to you for this code