# Sum the numbers Generated by Macro within macro.

#### 3PlankWalker

##### Board Regular
I have this Macro to print the numbers 1 to 10 in three rows As shown in the image below

View image: Sum

Code:
``````Sub SumLoop()Dim a(1 To 3), Count, d, i As Integer
a(1) = 1
a(2) = 2
a(3) = 4

For i = 1 To UBound(a)
d = 0
Count = 0
Do While d < 10
Count = Count + 1
d = d + 1
Cells(Count, 1 + Count2).Value = d
Loop
Count2 = Count2 + 1
Next i
End Sub``````

How can i add the D1=A1+B1+C1, D2=A2+B2+C2 ...
within the macro

### Excel Facts

Format cells as time
Select range and press Ctrl+Shift+2 to format cells as time. (Shift 2 is the @ sign).
Try this:-
Code:
``````Sub SumLoop()
Dim a(1 To 3), Count, d, i As Integer
Dim count2
a(1) = 1
a(2) = 2
a(3) = 4

For i = 1 To UBound(a)
d = 0
Count = 0
Do While d < 10
Count = Count + 1
d = d + 1
Cells(Count, 1 + count2).Value = d
[B]            Cells(Count, 4) = Application.Sum(Cells(Count, 1).Resize(, 3).Value)[/B]
Loop
count2 = count2 + 1
Next i
End Sub``````

Thanks It works.

You're welcome

Replies
2
Views
127
Replies
8
Views
266
Replies
3
Views
104
Replies
5
Views
244
Replies
11
Views
241

1,219,770
Messages
6,150,166
Members
450,937
Latest member
kattyg261

### We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.

### Which adblocker are you using?

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

### Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

### Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back