Hücrelere Göre Toplama

[gicimi]

Merhaba;

Değerlerin toplamını hesaplamak için yardımcı olabilir misiniz.

Sub Toplam_AL()
  Dim a(), i As Long
  a = Range("A2:C" & Range("A" & Rows.Count).End(xlUp).Row)
  For i = LBound(a) To UBound(a)

Kod............

  Next
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub Topla ()
     With Range("J2:J5")
          .Formula = "=SUMIF(B:B,I2,C:C)"
          .Value = .Value
     End With
End Sub

 

[gicimi]

@Korhan Ayhan Bey Teşekkür ederim.

 

[Haluk]

Ekli dosyadaki gibi basit bir "Pivot Tablo" da kullanabilirsiniz...

.

 

[Korhan Ayhan]

Kesinlikle Haluk beye katılıyorum.

Özet Tablo üylerimiz tarafından daha aktif kullanılmalıdır. Çok kolaylık sağlıyor.

 

[gicimi]

@Haluk Bey Hocam. Pivottable kullanarak yapıyorum. Makro kodları ile yapmak hemde geliştirmek acısından konuyu açtım. Yardımlarınız için teşekkür ederim.