Extre Bilgisindeki İsimleri ve Miktarları Almak

[mustafa1205]

Örnek dosyamda da açıklama yapmaya çalıştım. Bankadan aldığımız extre de standart bilgiler içeren ve içinde örnek dosyada anlatmaya çalıştığım ad soyadları ve para miktarları yan sütuna almak istiyorum. Teşekkür ederim

 

[Greenblacksea53]

İlk aklıma geleni yaptım, daha iyisi yapılabilir..
B1 hücresine:

=PARÇAAL(A1;MBUL(":";A1;100)+1;MBUL(" ";A1;11))

C1 hücresine:

=PARÇAAL(A1;MBUL("TL";A1;100)+3;5)

 

[Haluk]

RegExp kullanarak VBA ile alternatif;

Function getAmount(str As String)
    With CreateObject("VBscript.RegExp")
        .Global = True
        .Pattern = "TL\s\d+(\,\d+)?"
        str = Replace(WorksheetFunction.Trim(str), ".", "")
        If .Test(str) Then
            getAmount = Replace(.Execute(str)(0), "TL ", "") + 0
        Else
            getAmount = vbNullString
        End If
    End With
End Function
'
Function getName(str As String)
    With CreateObject("VBscript.RegExp")
        .Global = True
        .Pattern = "(Gönderen:|Borçlu Hesap Sahibi)(.+)(\sBankası:|\sHesap Şubesi:)"
        str = WorksheetFunction.Trim(str)
        If .Test(str) Then
            getName = Replace(Replace(.Execute(str)(0), "Gönderen:", ""), " Bankası:", "")
            getName = Replace(Replace(getName, "Borçlu Hesap Sahibi:", ""), " Hesap Şubesi:", "")
        Else
            getName = vbNullString
        End If
    End With
End Function

 

[mustafa1205]

RegExp kullanarak VBA ile alternatif;

.

Hocam elinize sağlık. Hemen kendi çalışmama uyarlayıp deneme yapacağım. Simdilik çok stabil çalışıyor.

 

[mustafa1205]

İlk aklıma geleni yaptım, daha iyisi yapılabilir..
B1 hücresine:

=PARÇAAL(A1;MBUL(":";A1;100)+1;MBUL(" ";A1;11))

C1 hücresine:

=PARÇAAL(A1;MBUL("TL";A1;100)+3;5)

Sayın Greenblacksea53. Emeğinize sağlık. İsmi alıyor ancak para miktarı değişince yeni miktarı almıyor sadece 1050 olarak alıyor.

 

[Greenblacksea53]

Para kırmızından sonrakini aldım onu da değiştirmen gerekmez mi ?

 

[mustafa1205]

Para kırmızından sonrakini aldım onu da değiştirmen gerekmez mi ?

Hakkınızı helal edin yanlış yere bakıyormuşum. Elinize emeğinize sağlık

 

[Haluk]

Aşağıdaki fonksiyonları deneyiniz.

Function getAmount(str As String)
    With CreateObject("VBscript.RegExp")
        .Global = True
        .Pattern = "TL\s\d+(\,\d+)?"
        str = Replace(WorksheetFunction.Trim(str), ".", "")
        If .Test(str) Then
            getAmount = Replace(.Execute(str)(0), "TL ", "") + 0
        Else
            getAmount = vbNullString
        End If
    End With
End Function
'
Function getName(str As String)
    With CreateObject("VBscript.RegExp")
        .Global = True
        .Pattern = "(Gönderen:|Borçlu Hesap Sahibi:)(.+)(\sBankası:|\sHesap Şubesi:|Bankası/Şubesi:)"
        str = WorksheetFunction.Trim(str)
        If .Test(str) Then
            getName = Replace(Replace(.Execute(str)(0), "Gönderen:", ""), " Bankası:", "")
            getName = Replace(Replace(getName, "Borçlu Hesap Sahibi:", ""), " Hesap Şubesi:", "")
            getName = Replace(getName, "Bankası/Şubesi:", "")
            
            
        Else
            getName = vbNullString
        End If
    End With
End Function

 

[mustafa1205]

Hocam çok teşekkür ederim. Elinize sağlık.Harikasınız

 

[Korhan Ayhan]

Biraz formül antrenmanı yaptım. Alternatif olsun..

Not: Dosyanızdaki kişisel bilgiler gerçekse forumdan kaldırırsanız iyi olur.

B2;

=EĞER(C2=0;"";EĞERHATA(KIRP(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(PARÇAAL(KIRP(A2);İNDİS(EĞERHATA(MBUL({"Hesap Sahibi:";"Gönderen:";"Alacaklı Adı:";"Kurum Adı:";"-"};KIRP(A2));"");KAÇINCI(DOĞRU;ESAYIYSA(EĞERHATA(MBUL({"Hesap Sahibi:";"Gönderen:";"Alacaklı Adı:";"Kurum Adı:";"-"};KIRP(A2));""));0));İNDİS(EĞERHATA(MBUL({"Alacaklı Hesap:";"Bankası:";"Hesap Şubesi:";"No:";"hesabına"};KIRP(A2));"");KAÇINCI(DOĞRU;ESAYIYSA(EĞERHATA(MBUL({"Alacaklı Hesap:";"Bankası:";"Hesap Şubesi:";"No:";"hesabına"};KIRP(A2));""));0))-İNDİS(EĞERHATA(MBUL({"Hesap Sahibi:";"Gönderen:";"Alacaklı Adı:";"Kurum Adı:";"-"};KIRP(A2));"");KAÇINCI(DOĞRU;ESAYIYSA(EĞERHATA(MBUL({"Hesap Sahibi:";"Gönderen:";"Alacaklı Adı:";"Kurum Adı:";"-"};KIRP(A2));""));0)));"Hesap Sahibi:";"");"Gönderen:";"");"Alacaklı Adı:";"");"Kurum Adı:";"");"-";""));""))

C2;

=EĞERHATA(SAYIYAÇEVİR(PARÇAAL(KIRP(A2);MBUL("TL ";KIRP(A2))+3;İNDİS(EĞERHATA(MBUL({"- H";"+ H";"- V"};KIRP(A2));"");KAÇINCI(DOĞRU;ESAYIYSA(EĞERHATA(MBUL({"- H";"+ H";"- V"};KIRP(A2));""));0))-MBUL("TL ";KIRP(A2))-3));0)

 

[mustafa1205]

Biraz formül antrenmanı yaptım. Alternatif olsun..

Not: Dosyanızdaki kişisel bilgiler gerçekse forumdan kaldırırsanız iyi olur.

B2;

=EĞER(C2=0;"";EĞERHATA(KIRP(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(PARÇAAL(KIRP(A2);İNDİS(EĞERHATA(MBUL({"Hesap Sahibi:";"Gönderen:";"Alacaklı Adı:";"Kurum Adı:";"-"};KIRP(A2));"");KAÇINCI(DOĞRU;ESAYIYSA(EĞERHATA(MBUL({"Hesap Sahibi:";"Gönderen:";"Alacaklı Adı:";"Kurum Adı:";"-"};KIRP(A2));""));0));İNDİS(EĞERHATA(MBUL({"Alacaklı Hesap:";"Bankası:";"Hesap Şubesi:";"No:";"hesabına"};KIRP(A2));"");KAÇINCI(DOĞRU;ESAYIYSA(EĞERHATA(MBUL({"Alacaklı Hesap:";"Bankası:";"Hesap Şubesi:";"No:";"hesabına"};KIRP(A2));""));0))-İNDİS(EĞERHATA(MBUL({"Hesap Sahibi:";"Gönderen:";"Alacaklı Adı:";"Kurum Adı:";"-"};KIRP(A2));"");KAÇINCI(DOĞRU;ESAYIYSA(EĞERHATA(MBUL({"Hesap Sahibi:";"Gönderen:";"Alacaklı Adı:";"Kurum Adı:";"-"};KIRP(A2));""));0)));"Hesap Sahibi:";"");"Gönderen:";"");"Alacaklı Adı:";"");"Kurum Adı:";"");"-";""));""))

C2;

=EĞERHATA(SAYIYAÇEVİR(PARÇAAL(KIRP(A2);MBUL("TL ";KIRP(A2))+3;İNDİS(EĞERHATA(MBUL({"- H";"+ H";"- V"};KIRP(A2));"");KAÇINCI(DOĞRU;ESAYIYSA(EĞERHATA(MBUL({"- H";"+ H";"- V"};KIRP(A2));""));0))-MBUL("TL ";KIRP(A2))-3));0)

Teşekkür ederim Korhan Hocam . Çok başarılı olmuş. Harika çalışıyor