• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Böl+Topla

  • Konbuyu başlatan Konbuyu başlatan cemshan
  • Başlangıç tarihi Başlangıç tarihi
cemshan

cemshan

Katılım
5 Nisan 2008
Mesajlar
359
Excel Vers. ve Dili
Office 365
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
 

Ekli dosyalar

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
 
Yardımcı sutun olmaması lazım, ayrıca D29 yazacağımız bu formülü e29 f29 şeklinde çoğaltmama gerekiyor
 
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.
 
YUSUF44' Alıntı:
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.
Genişletmek için tıkla ...

=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
 
Merhaba, Alternatif makro ile
Kod: 
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
 
Alternatif olaraka.Dizi formülü. CTRL+SHIFT+ENTER ile hücreden çıkmalısınız.
Kod: 
=TOPLA(TOPLA.ÇARPIM((EĞERHATA((ESAYIYSA(D3:D28)*D3:D28)/(ESAYIYSA(C3:C28)*C3:C28);1))))
 
Merhaba,
cemshan: formüllerde farklı sonuçlar çıkıyor, dikkat edin. Sonuçlarda hata yapmayınız. Sadece uyarmak istedim.
 
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.
Kod: 
=TOPLA(TOPLA.ÇARPIM((EĞERHATA((ESAYIYSA(D3:D28)*D3:D28)/(ESAYIYSA(C3:C28)*C3:C28);0))))
 
çıtır' Alıntı:
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.
Kod: 
=TOPLA(TOPLA.ÇARPIM((EĞERHATA((ESAYIYSA(D3:D28)*D3:D28)/(ESAYIYSA(C3:C28)*C3:C28);0))))
Genişletmek için tıkla ...
Sorun suz çalışıyor teşekürler
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst