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
-
Ü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?
-
:cooll
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
-
Sayın Evren Hocamın affına sığınarak ben de fonksiyonla bir çözüm sunmak istiyorum.
G203 hücresine,
=TOPLA.ÇARPIM(($G$3:$G$202)*(SATIR($G$3:$G$202)=TEK(SATIR($G$3:$G$202))))
G204 hücresine,
=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..
-
Hem evren hocama hemde suatbayhan hocama teşekkürlerimi sunarım.
Yardımlarınızı esirgemediğiniz için sağolun
-
Rica ederim.
İyi çalışmalar.:cool:
-
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.