• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

  • Forum yazılımı güncelenmiştir.

    Beklenmedik durumlar görürseniz lütfen yönetime iletin.

Metin ayırma

  • Konbuyu başlatan Konbuyu başlatan besen
  • Başlangıç tarihi Başlangıç tarihi

besen

Altın Üye
Katılım
23 Mart 2007
Mesajlar
794
Excel Vers. ve Dili
Microsoft Office Professional Plus 2019
İngilizce
Merhaba dosya yapısı ekteki gibi.
A kolonunda muhasebe kodu ve hesap ismi birleşik yazılmış.
Her kodun altında tarihle başlayan hareket bilgileri var.
Kodların uzunluğu farklı farklı, isimlerin sonunda da belirsiz boşluklar var.
Benim istediğim ekteki örnekteki gibi, A kolonunda muhasebe kodu ve hesap ismi birleşik yazılmış olanları B ve C kolonlarına kod ve isim olarak yazdırmak.
Ben örnekteki formülle hallettim sanıyordum ama kod uzunlukları farklı olunca uymayanlar oldu.

Teşekkür ederim.
 

Ekli dosyalar

Merhaba dosya yapısı ekteki gibi.
A kolonunda muhasebe kodu ve hesap ismi birleşik yazılmış.
Her kodun altında tarihle başlayan hareket bilgileri var.
Kodların uzunluğu farklı farklı, isimlerin sonunda da belirsiz boşluklar var.
Benim istediğim ekteki örnekteki gibi, A kolonunda muhasebe kodu ve hesap ismi birleşik yazılmış olanları B ve C kolonlarına kod ve isim olarak yazdırmak.
Ben örnekteki formülle hallettim sanıyordum ama kod uzunlukları farklı olunca uymayanlar oldu.

Teşekkür ederim.
B2 ye bunu yazın
Kod:
=EĞER(H2+I2=0;SOLDAN(A2;MİN(EĞER(EHATALIYSA(MBUL({"A";"B";"C";"Ç";"D";"E";"F";"G";"Ğ";"H";"I";"İ";"J";"K";"L";"M";"N";"O";"Ö";"P";"R";"S";"Ş";"T";"U";"Ü";"V";"Y";"Z"};A2));UZUNLUK(A2)+1;MBUL({"A";"B";"C";"Ç";"D";"E";"F";"G";"Ğ";"H";"I";"İ";"J";"K";"L";"M";"N";"O";"Ö";"P";"R";"S";"Ş";"T";"U";"Ü";"V";"Y";"Z"};A2)))-2);B1)

C2 ye bunu yazın
Kod:
=EĞER(H2+I2=0;PARÇAAL(A2;MİN(EĞER(EHATALIYSA(MBUL({"A";"B";"C";"Ç";"D";"E";"F";"G";"Ğ";"H";"I";"İ";"J";"K";"L";"M";"N";"O";"Ö";"P";"R";"S";"Ş";"T";"U";"Ü";"V";"Y";"Z"};A2));UZUNLUK(A2)+1;MBUL({"A";"B";"C";"Ç";"D";"E";"F";"G";"Ğ";"H";"I";"İ";"J";"K";"L";"M";"N";"O";"Ö";"P";"R";"S";"Ş";"T";"U";"Ü";"V";"Y";"Z"};A2)));UZUNLUK(A2));C1)
 
Teşekkür ederim, ancak kod eksik geliyor.
 

Ekli dosyalar

B2 hücresine

Kod:
=YERİNEKOY(A2;C2;"")

yazın.

C2 hücresine

Kod:
=PARÇAAL(A2;KÜÇÜK(EĞERHATA(BUL({"A";"B";"C";"Ç";"D";"E";"F";"G";"Ğ";"H";"I";"İ";"J";"K";"L";"M";"N";"O";"Ö";"P";"R";"S";"Ş";"T";"U";"Ü";"V";"Y";"Z"};A2);9999);1);999)

yazın.
 
=PARÇAAL(A2;KÜÇÜK(EĞERHATA(BUL({"A";"B";"C";"Ç";"D";"E";"F";"G";"Ğ";"H";"I";"İ";"J";"K";"L";"M";"N";"O";"Ö";"P";"R";"S";"Ş";"T";"U";"Ü";"V";"Y";"Z"};A2);9999);1);999)

Teşekkür ederim.
 
Alternatif...

B2;
C++:
=IF(NOT(ISTEXT(IFERROR(VALUE(SUBSTITUTE(A2;"/";"."));"")));B1;TRIM(LEFT(A2;MIN(FIND({"A";"B";"C";"Ç";"D";"E";"F";"G";"Ğ";"H";"I";"İ";"J";"K";"L";"M";"N";"O";"Ö";"P";"Q";"R";"S";"Ş";"T";"U";"Ü";"V";"W";"X";"Y";"Z"};A2&"ABCÇDEFGĞHIİJKLMNOÖPQRSŞTUÜVWXYZ")-1))))

C2;
C++:
=IF(NOT(ISTEXT(IFERROR(VALUE(SUBSTITUTE(A2;"/";"."));"")));C1;TRIM(MID(A2;LEN(B2)+1;1024)))
 
Teşekkür ederim.

Merhaba ekteki örnekte 102 03 001 ABC BANK ŞB 100054 EURO bu hesabın içinde "BANK ŞB" arasında bir fazla boşluk olduğu için formül çalışmıyor.
Teşekkür ederim.
 

Ekli dosyalar

Merhaba ekteki örnekte 102 03 001 ABC BANK ŞB 100054 EURO bu hesabın içinde "BANK ŞB" arasında bir fazla boşluk olduğu için formül çalışmıyor.
Teşekkür ederim.
B5 e bunu yazın aşağı çekin istediğiniz olur. İki boşluk yerine tek boşluk yapıyor formül. ondan sonra sizin işleme devam ediyor
Kod:
=EĞER((I5+H5)=0;KIRP(YERİNEKOY(YERİNEKOY(A5;"  ";" ");C5;""));B4)
 
B4 hücresindeki formülü aşağıdaki ile değiştirip dener misin

Kod:
=EĞERHATA(PARÇAAL(A4;1;BUL(" ";A4;BUL(" ";A4;BUL(" ";A4)+1)+1)-1);A4)
 
Diğer alternatif

Kod:
=EĞERHATA(SOLDAN(A4;BUL("|";YERİNEKOY(A4;" ";"|";3))-1);A4)
 
Alternatif...

B2;
C++:
=IF(NOT(ISTEXT(IFERROR(VALUE(SUBSTITUTE(A2;"/";"."));"")));B1;TRIM(LEFT(A2;MIN(FIND({"A";"B";"C";"Ç";"D";"E";"F";"G";"Ğ";"H";"I";"İ";"J";"K";"L";"M";"N";"O";"Ö";"P";"R";"S";"Ş";"T";"U";"Ü";"V";"Y";"Z"};A2&"ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ")-1))))

C2;
C++:
=IF(NOT(ISTEXT(IFERROR(VALUE(SUBSTITUTE(A2;"/";"."));"")));C1;TRIM(MID(A2;LEN(B2)+1;1024)))

Çok teşekkür ederim.

255 01 016 WT310-105 GMS İ5 BİLGİSAYAR bu kodda hatalı ayrım oldu.

255 01 016 W

T310-105 GMS İ5 BİLGİSAYAR

 
İngiliz alfabesindeki harfleri formüle eklemek gerekecek..

Önerime bu eklemeyi yaparak revize ettim. Tekrar deneyebilirsiniz.
 
  • Beğen
Reactions: Ali
Revize formülü paylaşıyorum...
 

Ekli dosyalar

Geri
Üst