6 sütunda bulunan 60(45) , 45, 8, 46(45) gibi hücre değerlerini bir hücrede toplama

[KMLZDMR]

Merhaba arkadaşlar
ekli tabloda belirli aralıktaki altı sütundan oluşan hücrelerde 60(45) , 45, 8, 46(45) gibi hücre değerleri var. Bunları bir bir hücrede ancak aşağıdaki formül ile (+) ile 6 adet sütuna yazdığım formülleri toplayarak yapabildim. Esas aradığım bu uzun formülü detayı ekli dosyada açıklamaları ile yazılı bulunan şekli ile aşağıdaki formülü daha kısa formülle nasıl toplarım.


=EĞER(VE(UZUNLUK(E3)<=2;E3<=45);E3;EĞER(VE(UZUNLUK(E3)>2;SOLDAN(E3;2)<=45);SOLDAN(E3;2);45)) + EĞER(VE(UZUNLUK(F3)<=2;F3<=45);F3;EĞER(VE(UZUNLUK(F3)>2;SOLDAN(F3;2)<=45);SOLDAN(F3;2);45)) + EĞER(VE(UZUNLUK(G3)<=2;G3<=45);G3;EĞER(VE(UZUNLUK(G3)>2;SOLDAN(G3;2)<=45);SOLDAN(G3;2);45))+EĞER(VE(UZUNLUK(H3)<=2;H3<=45);H3;EĞER(VE(UZUNLUK(H3)>2;SOLDAN(H3;2)<=45);SOLDAN(H3;2);45))+EĞER(VE(UZUNLUK(I3)<=2;I3<=45);I3;EĞER(VE(UZUNLUK(I3)>2;SOLDAN(I3;2)<=45);SOLDAN(I3;2);45))+EĞER(VE(UZUNLUK(J3)<=2;J3<=45);J3;EĞER(VE(UZUNLUK(J3)>2;SOLDAN(J3;2)<=45);SOLDAN(J3;2);45))



SORU : 1
E15:E20 veya e15:j15 aralığında veya F19 hücresinde olduğu gibi E15:J20 ARALIĞINDA Bu hücredeki sayı metin olarak biçimlendirilmiş veya önüne kesme işareti koyulmuş. ŞEKLİNDEKİ GİRİLİ VERİ OLURSA N15:S20 ARALIĞINDAKİ FORMÜL NASIL OLMALI?

SORU 2
T4 hücresine uygulanacak formül E4:J4 aralığını N4:S4 aralığında tek tek yazılı formülleri T4 hücresine nasıl uygulanır?

SORU 3

E4:J4 aralığındaki (45) hariç bütün değerleri toplaması gerekli
yani parantez içi değerleri görmeksizin/dikkate almaksızın toplaması için gerekli formül nedir?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki formülleri deneyiniz.

L4;

=TOPLA.ÇARPIM((0+YERİNEKOY(E4:J4;"(45)";"")))

"K" sütunundaki değerler için aşağıdaki kodu deneyebilirsiniz.

K4 Hücresine;

=KTOPLA(E4:J4;"<=45")

Function KTOPLA(Alan As Range, Kriter As String)
    Dim Veri As Range, Test As Variant, X As Integer
    
    Application.Volatile True
    
    For Each Veri In Alan
        If IsNumeric(Veri.Value) Then
            If Evaluate(Veri.Value & Kriter) Then
                KTOPLA = KTOPLA + Veri.Value
            End If
        Else
            Test = Split(Replace(Veri.Value, ")", ""), "(")
            For X = 0 To UBound(Test)
                If Evaluate(CDbl(Test(X)) & Kriter) Then
                    KTOPLA = KTOPLA + CDbl(Test(X))
                End If
            Next
            
        End If
    Next
End Function

 

[KMLZDMR]

korhan bey teşekkür ederim.
L4 hücresi formülü işlevi yaptı.

K4 HÜCRESİNE UYGULANACAK FORMÜLÜ KOD UYGULANMAKSIZIN YAPABİLME İMKANI BULABİLİR MİYİZ.

A1 B1 C1 D1 E1 F1
0 60(45) 55(45) 57(45) 51(45) 20

A1:F1 hücre aralığındaki (45) lerin sayısını bulan fonksiyon nasıl yapabiliriz.

EĞERSAY(A1:F1;YERİNEKOY(A1:F1;"(45)";"(45)")) >>> OLMADI 0 (SIFIR) SONUCU VERDİ.

 

[Korhan Ayhan]

Deneyiniz.

=EĞERSAY(E4:J4;"*(45)*")