VBA Fill number sequence & sum formula in step-3

[motilulla]

Hello,

1- I want fill number 1 in M8, and every step-3 add 3 in it, so M11=4, and so on...
2- I want sum P8+O9+N10 and sum place in M10, do this sum also every step-3
3- do all as long as data are find in column B

Here is the example

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q
1
2
3
4
5
6
7
8		1											1	8	2	4
9		2												4	7	3
10		3											13	2	5	7
11		4											4	7	5	2
12		5												3	2	9
13		6											8	4	7	3
14		7											7	9	3	2
15		8												3	5	6
16		9											9	2	6	6
17		10											10	6	5	3
18		11												3	4	7
19		12											12	5	5	4
20		13											13	7	7	0
21		14												5	2	7
22		15											4	2	5	7
23		16											16	9	4	1
24		17												2	6	6
25		18											10	3	4	7
26		19											19	8	4	2
27		20												3	4	7
28		21											9	3	6	5
29		22											22	5	9	0
30		23												4	2	8
31		24											7	5	3	6
32		25											25	5	5	4
33		26												3	6	5
34		27											16	6	3	5
35		28											28	9	3	2
36		29												4	7	3
37		30											10	1	4	9
38		31											31	6	5	3
39		32												6	5	3
40		33											10	2	4	8
41		34											34	8	5	1
42		35												5	3	6
43		36											5	1	6	7
44		37											37	9	1	4
45		38												3	3	8
46		39											9	2	10	2
47		40											40	10	2	2
48														2	6	6
49													10	2	6	6
50
51
52
53
Sheet2

Cell Formulas
Range	Formula
M10	=SUM(P8,O9,N10)
M13	=SUM(P11,O12,N13)

Thank you all
Excel 2000
Regards,
Moti

 

[makiwara]

Hi I am new to VBA but I try to help you, so please write me back if it helped you, I do your exercises one by one

First try: (replace 30 with the last row you need)


Sub fill()
Dim i As Integer


For i = 8 To 30 Step 3


Cells(i, "m").Value = i - 7


Next




End Sub

 

[makiwara]

2. part:

Sub szumd()



Dim i As Integer


For i = 10 To 30 Step 3


Cells(i, "m").Value = Cells(i - 2, "p") + Cells(i - 1, "o") + Cells(i, "n")


Next




End Sub

 

[makiwara]

3. You can modify the other code too, just adopt these minor changes. Hope that it helped, please write back beacuse I always asked for help and I am learning since 2 weeks VBA :D

Sub fill()Dim i As Integer
Dim row As Long


row = Cells(Rows.Count, 2).End(xlUp).row


For i = 8 To row Step 3


Cells(i, "m").Value = i - 7


Next




End Sub

 

[motilulla]

3. You can modify the other code too, just adopt these minor changes. Hope that it helped, please write back beacuse I always asked for help and I am learning since 2 weeks VBA :D

Sub fill()Dim i As Integer
Dim row As Long


row = Cells(Rows.Count, 2).End(xlUp).row


For i = 8 To row Step 3


Cells(i, "m").Value = i - 7


Next




End Sub

makiwara, your code is working Perfect!! Getting a desire result as request.

Below is a modified code of Post#2, as you suggest it is also working fine

 Sub szumd()
 Dim i As Integer
 Dim row As Long
 row = Cells(Rows.Count, 2).End(xlUp).row + 2
 For i = 10 To row Step 3
 Cells(i, "m").Value = Cells(i - 2, "p") + Cells(i - 1, "o") + Cells(i, "n")
 Next
 End Sub

Thank you for your kind help

Have a nice day

Good Luck

Kind Regards,
Moti