Döngüde Toplama

[Kemal Demir]

Selam Arkadaslar Actığım Başlıklar Yüzünden Umarım Birgun "BAN" Yemem

Sub topla()
For c = 2 To 4
Range("b5").Value = WorksheetFunction.Sum("b" & c).Value
Next
End Sub

Boyalı yerın yanında Seçili Olan Hücreleri nasıl belirticem yanı(b2 den b4 2e kadar sayıları toplucam ama ben yanlsı yapıyorum)

Yardımlarını Bekliyorum.

 

[zafer]

Merhaba

Eğer sum formülünü kullanmadan isterseniz

Sub topla()
For i = 2 To 4
c = Cells(i, 2)
d = d + c
Next
Range("b5") = d

End Sub


Saygılarımla

 

[Kemal Demir]

haklısın tanımlamak daha mantıklı cok saol