Help with filling repeated sequential numbers.

[motilulla]

Hello,

I am looking a solution for filling a repeated sequential numbers that has 4 criteria
1- Fill Total Row "criteria in cell B1"
2- Starting number "criteria in cell B2"
3- Fill repeats sequence "criteria in cell B3"
4- Add in previous number "criteria in cell B4"

Note: first fill series 1 to 84 total numbers in column B starting with B6 to down than start filling column C starting with C6 to down

Example attached

Book1
	A	B	C	D
1	Fill Total Row	84
2	Starting Num	253
3	Repeats Sequence	13
4	Add In Previous	2
5
6		1	253
7		2	253
8		3	253
9		4	253
10		5	253
11		6	253
12		7	253
13		8	253
14		9	253
15		10	253
16		11	253
17		12	253
18		13	253
19		14	255
20		15	255
21		16	255
22		17	255
23		18	255
24		19	255
25		20	255
26		21	255
27		22	255
28		23	255
29		24	255
30		25	255
31		26	255
32		27	257
33		28	257
34		29	257
35		30	257
36		31	257
37		32	257
38		33	257
39		34	257
40		35	257
41		36	257
42		37	257
43		38	257
44		39	257
45		40	259
46		41	259
47		42	259
48		43	259
49		44	259
50		45	259
51		46	259
52		47	259
53		48	259
54		49	259
55		50	259
56		51	259
57		52	259
58		53	261
59		54	261
60		55	261
61		56	261
62		57	261
63		58	261
64		59	261
65		60	261
66		61	261
67		62	261
68		63	261
69		64	261
70		65	261
71		66	263
72		67	263
73		68	263
74		69	263
75		70	263
76		71	263
77		72	263
78		73	263
79		74	263
80		75	263
81		76	263
82		77	263
83		78	263
84		79	265
85		80	265
86		81	265
87		82	265
88		83	265
89		84	265
90
91
92
93
Sheet1

Thank you all
Excel 2000
Regards,
Moti

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG08Jul02
[COLOR="Navy"]Dim[/COLOR] St [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] num [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Seq [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] nAdd [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
    num = Range("B1")
    St = Range("B2")
    Seq = Range("B3")
    nAdd = Range("B4")
[COLOR="Navy"]For[/COLOR] n = 1 To num
     Cells(n + 5, 2) = n
    Cells(n + 5, 3) = St
    St = St + IIf(n Mod Seq = 0, nAdd, 0)
[COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[motilulla]

Try this:-

[COLOR=navy]Sub[/COLOR] MG08Jul02
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]

Regards Mick

Mick, This worked very well</SPAN></SPAN>

Thanks for all your help!</SPAN></SPAN>

Regards,</SPAN>
Moti</SPAN></SPAN>

 

[motilulla]

Hello Mick, may if ask can you add that repeated sequences in column C have 2 different colours as per example Post#1 Please.</SPAN></SPAN>

Regards,</SPAN>
Moti</SPAN></SPAN>

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG08Jul52
[COLOR="Navy"]Dim[/COLOR] St [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] num [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Seq [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] nAdd [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Col [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
    num = Range("B1")
    St = Range("B2")
    Seq = Range("B3")
    nAdd = Range("B4")
Col = vbRed
[COLOR="Navy"]For[/COLOR] n = 1 To num
    Cells(n + 5, 2) = n
    [COLOR="Navy"]With[/COLOR] Cells(n + 5, 3)
        .Value = St
        .Font.Color = Col
        .Font.Bold = True
        .Font.Size = 11
        .HorizontalAlignment = xlCenter
    [COLOR="Navy"]End[/COLOR] With
    [COLOR="Navy"]If[/COLOR] n Mod Seq = 0 [COLOR="Navy"]Then[/COLOR]
        St = St + nAdd
        Col = IIf(Col = vbRed, vbBlack, vbRed)
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[motilulla]

Try this:-

[COLOR=Navy]Sub[/COLOR] MG08Jul52
[COLOR=Navy]Dim[/COLOR] St [COLOR=Navy]As[/COLOR] [COLOR=Navy]Long,[/COLOR] num [COLOR=Navy]As[/COLOR] [COLOR=Navy]Long,[/COLOR] Seq [COLOR=Navy]As[/COLOR] [COLOR=Navy]Long,[/COLOR] nAdd [COLOR=Navy]As[/COLOR] [COLOR=Navy]Long,[/COLOR] n [COLOR=Navy]As[/COLOR] [COLOR=Navy]Long,[/COLOR] Col [COLOR=Navy]As[/COLOR] [COLOR=Navy]Integer[/COLOR]
     
[COLOR=Navy]Next[/COLOR] n
[COLOR=Navy]End[/COLOR] [COLOR=Navy]Sub[/COLOR]

Regards Mick

Thank you Mick, for adding 2 different colours in the repeated sequence, this makes better view for change of the sequence.

Sorry for giving you a trouble to rewriting code again.
I appreciate your valuable time and assistance

Good day

Regards,
Moti

 

[MickG]

You're very welcome