[Çözüldü] Satır atlayarak toplama (Tek satırları ve Çift satırları ayrı toplama)

[yesilyurtlu]

Ü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?

[Orion1]

 

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

[suatbayhan]

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..

[yesilyurtlu]

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

[Orion1]

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

[MESUT_BL]

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.