metin içerisinden düşeyarama

[ERRİC]

TL SAYFASINDAKİ E20 HÜCRESİNDEKİ 740.04.001+740.04.003+740.11.03.001+740.12.001+740.04.05.001+740.04.05.002+740.04.05.003+740.04.05.004 olarak yazılmış bir hücredeki verilerin toplamını başka bir sayfadan BALANCE2 sayfasındaki sununda bulunan 7 li hesapların
borç bakiylerinin toplamını nasıl aldırabilirim.
h.kodu(metin) h.adı borç alacak b.bakiye a.bakiye
740.04.001 kırtasiye 500 0,00 500 0,00
740.04.05.001 yemek 200 0,00 200 0,00


=DÜŞEYARA("*740.04.05.002*";BALANCE2!A2:G401;6;0) örnek yaptım ama hesap kodu cok yanyana yazmak cok zor ve uzun olacak

 

[Korhan Ayhan]

Merhaba,

Dosyanızın bu yapısı ile kullanıcı tanımlı fonksiyon ile çözüm daha uygun görünüyor. Aşağıdaki kodu boş bir modüle uygulayın.

Function KTOPLA(Olcut_Alani As Range, Olcut As Range, Sutun_Indis_Sayisi As Integer)
    Dim Kod, Veri
    Kod = Split(Olcut, "+")
 
    For Each Veri In Olcut_Alani
        For X = 0 To UBound(Kod)
            If Veri = Kod(X) Then
                KTOPLA = KTOPLA + Veri.Offset(0, Sutun_Indis_Sayisi)
            End If
        Next
    Next
End Function

Daha sonra sayfanıza dönün ve BB20 hücresine aşağıdaki formülü uygulayın.

=KTOPLA(BALANCE2!$A$7:$A$149;TL!E20;5)

Fonksiyonun sözdizimi;

=KTOPLA(Olcut_Alani, Olcut , Sutun_Indis_Sayisi)

 

[ERRİC]

korhan bey size nasıl teşekkür etsem azdır buyuk bir yukten kurtardınız elinize sağlık

Saygılar