Döngü olmadan toplama yaptırmak

[Muhammet Okumuş]

Arkadaşlar merhaba.
Döngü olmadan A1:A50 ile B1:B50 satırlarını C1:C50 arasına toplatmak istiyorum. A1+B1=C1, A2+B2=C2, .... A50+B50=C50
bu kod işimi görüyor ama başka çözüm olup olmadığını öğrenmek istiyorum.
sub topla()
range("c1:c50")="=sum(a1:b1)"
range("c1:c50")=range("c1:c50").value
end sub

 

[İhsan Tank]

Arkadaşlar merhaba.
Döngü olmadan A1:A50 ile B1:B50 satırlarını C1:C50 arasına toplatmak istiyorum. A1+B1=C1, A2+B2=C2, .... A50+B50=C50
bu kod işimi görüyor ama başka çözüm olup olmadığını öğrenmek istiyorum.
sub topla()
range("c1:c50")="=sum(a1:b1)"
range("c1:c50")=range("c1:c50").value
end sub

döngüsüz 50 satır'ı nasıl yapacaksınız tek tek mi_?
A1+B1
A2+B2
A3+B3 gibi

 

[Muhammet Okumuş]

Hayır tek düğme ile bir anda.

 

[İhsan Tank]

Hayır tek düğme ile bir anda.

merhaba

Sub topla()
Application.DisplayAlerts = False
Range("C1") = "=SUM(A1:B1)"
Range("C1").AutoFill Destination:=Range("C1:C50"), Type:=xlFillDefault
Range("C1:C50").Copy
Range("C1:C50").PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, _
Transpose:=False
Application.CutCopyMode = False
Range("C1").Select
Application.DisplayAlerts = True
End Sub

bu işinizi görür mü_?

 

[Muhammet Okumuş]

Sn İhsan Bey ilginiz için teşekkür ederim. Ama benim isteğim çözüm
Range("c1:c50")=range("a1:a50")+range("b1:b50") bu tür tek satırlık bir kod.

 

[Korhan Ayhan]

Merhaba,

Sizin kullandığınız yöntem en kısa olanıdır. Alternatif olarak aşağıdaki kodda aynı işi yapar.

Option Explicit
 
Sub TOPLA()
    With Range("C1:C50")
        .Formula = "=SUM(A1:B1)"
        .Value = .Value
    End With
End Sub