Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 27 Temmuz 2010, 19:05:07

Başlık: [Çözüldü] Satır atlayarak toplama (Tek satırları ve Çift satırları ayrı toplama)
Gönderen: yesilyurtlu - 27 Temmuz 2010, 19:05:07

Üstadım;
G3:G202 aralığında ki sayıları toplamak istiyorum ama satır atlayarak toplayacak.
3,5,7,9,... gibi olanları G203 HÜCRESİNE
4,6,8,10,... gibi olanlarıda G204 hücresine toplayabilmem için yardımcı olabilir misiniz?

Başlık: Ynt: Satır atlayarak toplama
Gönderen: Orion1 - 27 Temmuz 2010, 21:27:41

 :cooll

Kod: [Seç]

Sub toplamlar_59()
Dim hcr As Range, tek As Double, cift As Double
For Each hcr In Range("G3:G202")
    If hcr.Row Mod 2 = 0 Then
        cift = cift + hcr.Value
        Else
        tek = tek + hcr.Value
    End If
Next
Range("G203").Value = tek
Range("G204").Value = cift
MsgBox "işlem tamamlandı"
End Sub

Başlık: Ynt: Satır atlayarak toplama
Gönderen: suatbayhan - 28 Temmuz 2010, 11:14:33

Sayın Evren Hocamın affına sığınarak ben de fonksiyonla bir çözüm sunmak istiyorum.
G203 hücresine,

Kod: [Seç]

=TOPLA.ÇARPIM(($G$3:$G$202)*(SATIR($G$3:$G$202)=TEK(SATIR($G$3:$G$202))))G204 hücresine,

Kod: [Seç]

=TOPLA.ÇARPIM(($G$3:$G$202)*(SATIR($G$3:$G$202)=ÇİFT(SATIR($G$3:$G$202))))yazılırsa doğru sonucun çıkacağına inanıyorum.
Selamlar..

Başlık: Ynt: Satır atlayarak toplama
Gönderen: yesilyurtlu - 29 Temmuz 2010, 08:52:35

Hem evren hocama hemde suatbayhan hocama teşekkürlerimi sunarım.
Yardımlarınızı esirgemediğiniz için sağolun

Başlık: Ynt: [Çözüldü] Satır atlayarak toplama (Tek satırları ve Çift satırları ayrı toplama)
Gönderen: Orion1 - 29 Temmuz 2010, 09:17:59

Rica ederim.
İyi çalışmalar.:cool:

Başlık: Ynt: [Çözüldü] Satır atlayarak toplama
Gönderen: MESUT_BL - 11 Mart 2016, 16:53:00

Merhabalar,

Lütfen aşağıdaki konuda yardımcı olabilir misiniz?

a sırasında yazılan değerleri, b sırasında yazılan ”evet” , ”hayır” bölmelerine ( farklı sıralarda yer alıyorlar)göre c ve d sekmesinde ayrı ayrı toplamak istiyorum.
 yani a sırasında yazılan ( örneğin: 6 hane düşünün) 1, 2, 3, 4, 5, 6 sayılarının 3tanesi evet ( farklı dizinlerde yüzlerce devam ediyor) 3 tanesi hayır olarak nasıl toplarım?



Saygılarımla.