Döngü ile toplam alma

[seddur]

Merhaba.Ekran alıntısında görünen tabloda sutunların toplamlarını döngü kullanarak almak istiyorum.Yardımcı olabilirseniz sevinirim.

 

[Necdet]

Merhaba,
Döngü olmadı ama idare edin gaarii

Sub Makro1()
    Range("B6").FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
    Range("B6:Q6").FillRight
    Range("B13").FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
    Range("B13:Q13").FillRight
End Sub

 

[seddur]

Tamamdır çalışıyor yalnız tabloda görüldüğü gibi hücrelerin sol kenarlarında işaretçikler oluşuyor.Önlemenin bir yolu var mı?

 

[Necdet]

Merhaba,
O işaretçiklerin bir anlamı var, seçin hücreleri neymiş bakın, önemsizse yok sayın deyin.
Kurtulursunuz.

 

[seddur]

Tamam sorunu çözdüm.Yardımcı olduğunuz için Teşekkür ederim.