Toplama

[sirkülasyon]

e4:e50 Aralığını e52 ye
f4:f50 Aralığını f52 ye
g4:g50 Aralığını g52 ye
h4:h50 Aralığını h52 ye
ı4:ı50 Aralığını ı52 ye
j4:j50 Aralığını j52 ye

makro ile otomotik toplatmak için ne yapabilirim.

Abilerimden yardım istiyorum

 

[Ömer]

Merhaba,

Sub Topla()
    
    Dim i As Byte
    
    For i = 5 To 10
        Cells(52, i) = "=Sum(" & Cells(4, i).Address & _
            ":" & Cells(50, i).Address & ")"
    Next i
    
End Sub

Bu şekilde deneyin.

 

[sirkülasyon]

Ömer abi ellerine sağlık. Yardımcı olduğun için teşekkür ederim

 

[puslukurt]

yukarıdaki makroyu kendimiz çalıştırağımız yerde toplama işlemini kendisi yapabilirmi auto open haricinde