BaŞtan 2 Sondan 4 Ayir

[monopol]

ArkadaŞlar Merhaba,
Benİm AradiĞim FormÜl Şu;
Mesela 34af1226 ( Bu Bİr Plaka AnlaŞilacaĞi Üzre ).
Bu Plakayi 34 Af 1226 Olarak HÜcrede Hangİ FormÜlle GÖsterebİlİrİm.
İlgİnİz İÇİn Şİmdİden TeŞekkÜrler.

 

[Merhum İdris SERDAR]

ArkadaŞlar Merhaba,
Benİm AradiĞim FormÜl Şu;
Mesela 34af1226 ( Bu Bİr Plaka AnlaŞilacaĞi Üzre ).
Bu Plakayi 34 Af 1226 Olarak HÜcrede Hangİ FormÜlle GÖsterebİlİrİm.
İlgİnİz İÇİn Şİmdİden TeŞekkÜrler.

Plaka A1 hücresinde ise:

=LEFT(A1;2) & " " & SUBSTITUTE(MID(A1;3;98);IF(ISERROR(LOOKUP(9,99999999999999E+307;--MID(MID(A1;3;98);MIN(FIND({1;2;3;4;5;6;7;8;9;0};MID(A1;3;98)&"0123456789"));ROW($1:$242))));"";LOOKUP(9,99999999999999E+307;--MID(MID(A1;3;98);MIN(FIND({1;2;3;4;5;6;7;8;9;0};MID(A1;3;98)&"0123456789"));ROW($1:$242))));"") & " " & IF(ISERROR(LOOKUP(9,99999999999999E+307;--MID(MID(A1;3;98);MIN(FIND({1;2;3;4;5;6;7;8;9;0};MID(A1;3;98)&"0123456789"));ROW($1:$242))));"";LOOKUP(9,99999999999999E+307;--MID(MID(A1;3;98);MIN(FIND({1;2;3;4;5;6;7;8;9;0};MID(A1;3;98)&"0123456789"));ROW($1:$242))))

Basit bir formül:

=LEFT(A1;2) & " " & SUBSTITUTE(MID(A1;3;98);MID(MID(A1;3;98);MIN(FIND({1;2;3;4;5;6;7;8;9;0};MID(A1;3;98)&"0123456789"));98);" " & MID(MID(A1;3;98);MIN(FIND({1;2;3;4;5;6;7;8;9;0};MID(A1;3;98)&"0123456789"));98))

Örnek dosya ekte.

NOT:İl kodu hariç arada istenildiği kadar harf ve sonda istenildiği kadar rakam varsa bu iki formül ayırır.

Bir de aşağıdaki linkte yer alan dosyayı inceleyin.

http://www.excel.web.tr/showthread.php?t=24184

..

 

[N.Ziya Hiçdurmaz]

yanıt

Biraz daha basiti.

=+PARÇAAL(A1;1;2)&" " &PARÇAAL(A1;3;2)&" " &PARÇAAL(A1;5;4)

 

[Ali]

Eğer plakada iki adet harften başka harflerde varsa bu durumda formülü bu duruma göre uyarlamak lazım.


Alternatif

=SOLDAN(A1;2)& " " &YERİNEKOY(SOLDAN(A1;UZUNLUK(A1)-UZUNLUK(ARA(9,99999999999999E+307;SAĞDAN(A1;SATIR($1:$255))+0)));SOLDAN(A1;2);"")& " " &YERİNEKOY(A1;SOLDAN(A1;UZUNLUK(A1)-UZUNLUK(ARA(9,99999999999999E+307;SAĞDAN(A1;SATIR($1:$255))+0)));"")

 

[monopol]

Teşekkür

Sayın Ali,V.Basic For Applications ve Yurttas yardımlarınız için çok teşekkür ederim. çok işime yaradı.
tekrardan teşekkürler.