Sum Of 2 column

[isaackoh]

I hav the data like below...

A	B	C
		=sum(A1,B1)
1	2
3	4
5	6
7	8
9	10

How can i create the macro to excute the formula in C1 to the entire column cell when detect A & B hav value???

[JBeaucaire]

Doesn't that formula copy ITSELF down column C when you double-click the lower right corner of that cell?

[patel45]

sub a
LR = Cells(Rows.Count, "A").End(xlUp).Row
for r = 1 to LR
  cells(r,3) =  cells(r,1) + cells(r,2) 
next
end sub

[isaackoh]

sub a
LR = Cells(Rows.Count, "A").End(xlUp).Row
for r = 1 to LR
  cells(r,3) =  cells(r,1) + cells(r,2) 
next
end sub

tq.. its work.. but is tat I can set the entire cell formula will follow the formula in cell C1?

[HaHoBe]

Hi, isaackoh,

Sub FillDownFormula()
Range("C1:C" & Range("A" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=SUM(RC[-2],RC[-1])"
End Sub

Ciao,
Holger

[Winon]

Personally I would go with HaHoBe's suggestion which uses no Looping.

[FDibbins]

For a start, you dont need to use =SUM() for thiws, you could just use =A1+B1

And if you convert this into an excel Table, then when you enter new data, the formula will copy itself down with no moacro needed

[Winon]

@ FDibbins,

Hello my Maat,

This is unfair, you always seem to be one up!

Why did I not think of that? It is a good suggestion, and if you don't want any Zero's to show, one could enter your formula as: =IF(A1+B1=0,"",A1+B1).

Well done,

Kind Regards.

[FDibbins]

@ Winon, dankie vir die lekker worde I have seen quite a few time where you had the better idea, and as much as I hate tables, they do have their place