Sağdan İlk \ İşaretinden Sonraki 7 Karakteri Alma

[kneehot]

Arkadaşlar merhaba, yapmak istediğim aşağıdaki gibi bir yazının içinden sağdan ilk \ işaretini bulup (yeşil) ondan sonraki 7 karakteri hücreye yazması. Alması gereken kısmı kırmızı ile işaretliyorum anlaşılır olması için. Tüm yardımlara şimdiden teşekkürler.

c:\kullanıcı\ahmet\urun resimleri\parçalar\PRC1765.jpg

 

[Haluk]

=MID(A1;SEARCH("|";SUBSTITUTE(A1;"\";"|";LEN(A1)-LEN(SUBSTITUTE(A1;"\";""))))+1;7)

.

 

[kneehot]

=MID(A1;SEARCH("|";SUBSTITUTE(A1;"\";"|";LEN(A1)-LEN(SUBSTITUTE(A1;"\";""))))+1;7)

.

Çok özür dilerim yanlış yönlendirmişim kusura bakmayın. Birinci \ işareti değil 2. \ işaretinden sonraki 7 karaktermiş. Düzeltme şansımız varmıdır

c:\kullanıcı\ahmet\urun resimleri\parçalar\PRC1765 resim\PRC1765.jpg

 

[veyselemre]

VBA ile yapmak isterseniz;
Aşağıdaki kodu vba editöründen bir modül ekleyerek içine yapıştırın.

Function parcaAl(mtn)
    bl = Split(mtn, "\")
    parcaAl = Left(bl(UBound(bl) - 1), 7)
End Function

B1 e
=parcaAl(A1)
yazarak kullanabilirsiniz.

=MID(A1;SEARCH("|";SUBSTITUTE(A1;"\";"|";LEN(A1)-LEN(SUBSTITUTE(A1;"\";""))-1))+1;7)

 

[kneehot]

VBA ile yapmak isterseniz;
Aşağıdaki kodu vba editöründen bir modül ekleyerek içine yapıştırın.

Function parcaAl(mtn)
    bl = Split(mtn, "\")
    parcaAl = Left(bl(UBound(bl) - 1), 7)
End Function

B1 e
=parcaAl(A1)
yazarak kullanabilirsiniz.

=MID(A1;SEARCH("|";SUBSTITUTE(A1;"\";"|";LEN(A1)-LEN(SUBSTITUTE(A1;"\";""))-1))+1;7)

Çok teşekkürler

 

[Korhan Ayhan]

Merhaba,

Profilinizde Ofis 365 sürümü kullandığınızı belirtmişsiniz. Alternatif olsun..

=İNDİS(SOLDAN(METİNBÖL(A1;"\");7);;6)