Satır Aralarındaki Sayıları Toplama

[sfls]

Merhaba, Excel'de hücre içinde virgül ile ayrılmış sayıları nasıl saydrabilirim?

Örnek:
c2: rapor, 3
d2: aktif, 4.5

e2'de bu iki sayının toplamını bulmam gerekiyor. Hücre içine sadece sayı girmediğim için formülü bulamadım.

 

[YUSUF44]

Aşağıdaki formülü deneyiniz:

=ARA(9,99999999999999E+307;--SAĞDAN(YERİNEKOY(C2;".";",");SATIR($1:$1000)))+ARA(9,99999999999999E+307;--SAĞDAN(YERİNEKOY(D2;".";",");SATIR($1:$1000)))

 

[sfls]

Aşağıdaki formülü deneyiniz:

=ARA(9,99999999999999E+307;--SAĞDAN(YERİNEKOY(C2;".";",");SATIR($1:$1000)))+ARA(9,99999999999999E+307;--SAĞDAN(YERİNEKOY(D2;".";",");SATIR($1:$1000)))

Öncelikle cevap için teşekkürler.
Örnekte iki sütun belirtmiştim ancak çalışma sayfasında 32-33 sütun bulunmakta. verdiğiniz formülü tüm sütunlar için uygulamam gerekiyor mu tek tek?

 

[YUSUF44]

Öyle gerekir ama hem pratik olmaz hem de excel o uzunlukta formülü kabul etmeyebilir. Çok sütunlu işlem için makro kullanmak daha iyi olur bence. Kullanıcı tanımlı bir fonksiyon ya da başka bir makro hazırlanabilir.

 

[veyselemre]

E2 ye yazın.

=sayilariTopla(C2:D2)

Modül içerisine aşağıdaki kodları yerleştirin.

Function sayilariTopla(rng As Range) As Double
    Dim toplam As Double
    For Each r In rng
        For Each b In Split(r, " ")
            If IsNumeric(b) Then toplam = toplam + Val(b)
        Next b
    Next r
    sayilariTopla = toplam
End Function

 

[Korhan Ayhan]

Alternatif;

DİZİ formüldür.

=SUM(IF(C2:Z2="";0;--SUBSTITUTE(MID(C2:Z2;SEARCH(" ";C2:Z2)+1;15);".";",")))

SUM = TOPLA
IF = EĞER
SUBSTITUTE = YERİNEKOY
MID = PARÇAAL
SEARCH = MBUL

 

[mehmetuca]

Tüm hücrelerde rakamlar en sağda mı?

 

[sfls]

Tüm hücrelerde rakamlar en sağda mı?

Evet, en sağda.
Örnek hücre: rapor, gece, 3

 

[sfls]

Alternatif;

DİZİ formüldür.

=SUM(IF(C2:Z2="";0;--SUBSTITUTE(MID(C2:Z2;SEARCH(" ";C2:Z2)+1;15);".";",")))

SUM = TOPLA
IF = EĞER
SUBSTITUTE = YERİNEKOY
MID = PARÇAAL
SEARCH = MBUL

Teşekkürler ancak bu formül hücrede hata veriyor.

 

[YUSUF44]

Teşekkürler ancak bu formül hücrede hata veriyor.

Korhan Bey DİZİ formülü olduğunu belirtmiş, dikkat etmemişsiniz sanıyorum. DİZİ formülünü hücreye yazdıktan sonra hücreden CTRL+SHIFT+ENTER ile çıkmalısınız.

 

[YUSUF44]

E2 ye yazın.

=sayilariTopla(C2:D2)

Modül içerisine aşağıdaki kodları yerleştirin.

Function sayilariTopla(rng As Range) As Double
    Dim toplam As Double
    For Each r In rng
        For Each b In Split(r, " ")
            If IsNumeric(b) Then toplam = toplam + b
        Next b
    Next r
    sayilariTopla = toplam
End Function

KTF'yi uyguladığımda 52,5 çıkması gereken sonuç 336 çıkıyor. Korhan Bey'in çözümü doğru sonucu veriyor.

Koda replace ekleyip noktayı virgüle çevirince doğru sonucu veriyor:

Function sayilariTopla(rng As Range) As Double
    Dim toplam As Double
    For Each r In rng
        For Each b In Split(Replace(r, ".", ","), " ")
            If IsNumeric(b) Then toplam = toplam + b
        Next b
    Next r
    sayilariTopla = toplam
End Function

 

[sfls]

Korhan Bey DİZİ formülü olduğunu belirtmiş, dikkat etmemişsiniz sanıyorum. DİZİ formülünü hücreye yazdıktan sonra hücreden CTRL+SHIFT+ENTER ile çıkmalısınız.

Evet, dediğiniz şekilde çıkış yaptım. ancak sonuç hücresinde #değer hatası alıyorum. Eksik yaptığım bir nokta mı var acaba?

 

[Korhan Ayhan]

Bahsi geçen sütunlarda bize aktarmadığınız bir durum olabilir.

 

[veyselemre]

YUSUF44 bey bende sizin kod yanlış çıkarıyor, ne yapacağız şimdi.

 

[YUSUF44]

Sanıyorum nokta virgül sistem ayarlarıyla ilgili bir farklılık oluyor. Çünkü sizin yaptığınızı ben yaptığımda sizin sonuç 48 çıkarken benim sonuç 7,5 (tabi buna benim demem yanlış olur, kodlar size ait ben sadece bir ilave yaptım) çıkıyor.

 

[sfls]

Bahsi geçen sütunlarda bize aktarmadığınız bir durum olabilir.

Şöyle özetliyim bu tuttuğum aylık rapor ve izinlerle alakalı bir çalışma sayfası. ayın 1'inden 31'ine kadar sütun oluşturulmuş. bir kaç örnek hücre şöyle: c2: çalıştı, pazar d2: rapor e2: çalıştı, 3 f2: çalıştı, 2 g2.... devam ediyor. buradaki tüm girdğim verileri saydırdım ancak sadece her hücre içinde virgül ile ayrılmış sayıların toplamını alamıyorum.

 

[Korhan Ayhan]

Küçük bir örnek dosya paylaşırsanız veri düzeniniz görerek formülü revize edebilirim.

Benim önerdiğim formül tek boşluk içeren hücrelerde sağlıklı sonuç verecektir. Eğer hücrelerde birden fazla boşluk varsa ve sayısal veriler en sağda ise formül sıkıntı çıkaracaktır.

Bir formül daha kurguladım. Birden fazla boşluk içeren hücrelerde denediğimde sonuç alabildim. Yine DİZİ formüldür.

=TOPLA(EĞERHATA(--EĞERHATA(YERİNEKOY(SAĞDAN(C2:Z2;UZUNLUK(C2:Z2)-BUL("*";YERİNEKOY(C2:Z2;" ";"*";UZUNLUK(C2:Z2)-UZUNLUK(YERİNEKOY(C2:Z2;" ";"")))));".";",");0);0))