3PlankWalker
Board Regular
- Joined
- Sep 18, 2014
- Messages
- 76
I have this Macro to print the numbers 1 to 10 in three rows As shown in the image below
View image: Sum
How can i add the D1=A1+B1+C1, D2=A2+B2+C2 ...
within the macro
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