İçinde belirli bir harf olan sayıları toplama

[mesudiye_052]

Merhabalar;

Örnek Excel'de amaç hücre içinde " K" geçen sayıları toplatmak
dosyada formül var fakat 8 seçeneğe göre sadece 1.seçenekte çalışıyor
diğer koşullarda hata veriyor

Formülü nasıl düzenleme yapabiliriz
https://dosya.org/jkHML

=TOPLA.ÇARPIM((ESAYIYSA(MBUL(" K";B1:E1;1))*(1*YERİNEKOY(BÜYÜKHARF(B1:E1);" K";""))))

 

[Korhan Ayhan]

Deneyiniz.

DİZİ formüldür.

=TOPLA(EĞER(ESAYIYSA(MBUL("K";B1:E1;1));1*SOLDAN(B1:E1;MBUL("K";B1:E1;1)-1)))

 

[mesudiye_052]

Sayın Korhan Ayhan

Çok teşekkür ederim

 

[mesudiye_052]

Merhabalar;

Alternatif bir çalışma

=TOPLA.ÇARPIM(1*PARÇAAL("0"&B1:E1;1;MOD(MBUL(" K";B1:E1&" K";1);UZUNLUK(B1:E1&" "))+1))

 

[Korhan Ayhan]

Aynı sonuçları veren iki alternatif daha paylaşıyorum.

DİZİ formüldür.

=TOPLA((EĞERHATA(ESAYIYSA(MBUL(" K";B1:E1));0))*EĞERHATA(SOLDAN(0&B1:E1;MBUL(" ";B1:E1));0))

=TOPLA(ESAYIYSA(MBUL("K";B1:E1;1))*(0&SOLDAN(B1:E1;EĞERHATA(MBUL(" ";B1:E1;1)-1;0))))

 

[mesudiye_052]

Sayın, Korhan Ayhan
Teşekkürler

Formülleri dosyada topladım

https://dosya.org/YSQVE

 

[Korhan Ayhan]

Bu da KTF ile alternatif olsun.

Kullanımı;

İki kullanımda aynı sonucu verecektir. Kriter kısmı opsiyoneldir. Boş bıraktığınızda otomatik olarak "K" harfi tanımlı olacaktır. Dilerseniz farklı harfleri kullanabilirsiniz.

=KTOPLA(B1:E1;"K")
=KTOPLA(B1:E1)

Option Explicit

Function KTOPLA(Alan As Range, Optional Kriter As String = "K")
    Dim Veri As Range
    
    Application.Volatile True
    
    For Each Veri In Alan
        With CreateObject("VbScript.RegExp")
            .Pattern = "[" & Kriter & "]"
            .Global = True
            .IgnoreCase = True
            
            If .Test(Veri.Value) Then
                .Pattern = "\D"
                KTOPLA = KTOPLA + CDbl(.Replace(Veri.Value, ""))
            End If
        End With
    Next
End Function