Böl+Topla

[cemshan]

Arkadaşlar sıralı şekilde verileri önce bölüp sonuçları toplamam gerekiyor.

Örnek dosyamda ayrıntılı açıklamadım yardımlarınızı rica ederim

 

[Mahir64]

E sütununa,
C3/D3
Yazıp aşağı çekiniz.
Toplam alacağınız hücreyede,
=+ETOPLA(E3:E28;"<>#SAYI/0!";E3:E28) Yazınız

 

[cemshan]

Yardımcı sutun olmaması lazım, ayrıca D29 yazacağımız bu formülü e29 f29 şeklinde çoğaltmama gerekiyor

 

[YUSUF44]

Normalde aşağıdaki dizi formülü istediğiniz işlemi yapıyor ancak C13 ve C23 hücreleri boş olduğundan 0'a bölünme hatası veriyor:

=TOPLA(D3:D28/C3:C28)

Bunu aşmak için ya o hücreler silinmeli (hiç boş satır kalmamalı) ya da aşağıdaki dizi formülü kullanılmalı:

=TOPLA(D3:D12/C3:C12)+TOPLA(D14:D22/C14:C22)+TOPLA(D24:D28/C24:C28)

Dizi formülünü hücreye girdikten sonra sadece Enter ile değil CTRL+SHIFT+ENTER ile hücreden çıkmalısınız.

 

[cemshan]

Normalde aşağıdaki dizi formülü istediğiniz işlemi yapıyor ancak C13 ve C23 hücreleri boş olduğundan 0'a bölünme hatası veriyor:

=TOPLA(D3:D28/C3:C28)

Bunu aşmak için ya o hücreler silinmeli (hiç boş satır kalmamalı) ya da aşağıdaki dizi formülü kullanılmalı:

=TOPLA(D3:D12/C3:C12)+TOPLA(D14:D22/C14:C22)+TOPLA(D24:D28/C24:C28)

Dizi formülünü hücreye girdikten sonra sadece Enter ile değil CTRL+SHIFT+ENTER ile hücreden çıkmalısınız.

=TOPLA(E3:E12/$C$3:$C$12)+TOPLA(E14:E22/$C$14:$C$22)+TOPLA(E24:E28/$C$24:$C$28)

Formülü sağa doğru çoğaltmak için bu şekilde değiştirdim çalıştı. Ellerinize sağlık teşekkür ederim

 

[AdemCan]

Merhaba, Alternatif makro ile

Sub bol_topla()
On Error Resume Next
son = Range("D" & Rows.Count).End(xlUp).Row

For i = 3 To son
If Not IsNumeric(bol = Cells(i, 4) / Cells(i, 3)) Then GoTo gec
    bol = Cells(i, 4) / Cells(i, 3)   
    topla = topla + bol
gec:
Next i

sonuc = Range("D" & Rows.Count).End(xlUp).Row + 1
Cells(sonuc, 4) = topla
End Sub

 

[çıtır]

Alternatif olaraka.Dizi formülü. CTRL+SHIFT+ENTER ile hücreden çıkmalısınız.

=TOPLA(TOPLA.ÇARPIM((EĞERHATA((ESAYIYSA(D3:D28)*D3:D28)/(ESAYIYSA(C3:C28)*C3:C28);1))))

 

[cemshan]

İlginiz için teşekkür ederim.

 

[çıtır]

İlginiz için teşekkür ederim.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[Mahir64]

Merhaba,
cemshan: formüllerde farklı sonuçlar çıkıyor, dikkat edin. Sonuçlarda hata yapmayınız. Sadece uyarmak istedim.

 

[çıtır]

Aşağıdaki formül sanırım doğru sonuç verir.Dizi formülü. CTRL+SHIFT+ENTER ile hücreden çıkmalısınız.

=TOPLA(TOPLA.ÇARPIM((EĞERHATA((ESAYIYSA(D3:D28)*D3:D28)/(ESAYIYSA(C3:C28)*C3:C28);0))))

 

[cemshan]

Aşağıdaki formül sanırım doğru sonuç verir.Dizi formülü. CTRL+SHIFT+ENTER ile hücreden çıkmalısınız.

=TOPLA(TOPLA.ÇARPIM((EĞERHATA((ESAYIYSA(D3:D28)*D3:D28)/(ESAYIYSA(C3:C28)*C3:C28);0))))

Sorun suz çalışıyor teşekürler

 

[Erdem Akdemir]

Dizi formülü alternatif,

=TOPLA.ÇARPIM((EĞERHATA(D3:D28/C3:C28;0)))

 

[cemshan]

Dizi formülü alternatif,

=TOPLA.ÇARPIM((EĞERHATA(D3:D28/C3:C28;0)))

Buda sorunsuz çalışıyor . İlginiz için teşekkür ederim