makro ile bellir bir karakter sonrasını kesmek.

[mydestek]

Merhaba;
c:\Test\aaa\bbb\ccc.jpg cümlesini bbb\ccc.jpg şekline çevirmek istiyorum.
\ karakteri sayacağım 3. karakterin sağındaki kelimeleri bırakacağım.

Teşekkürler.

 

[hamitcan]

Bu şekilde dener misiniz ?

Sub Parcaal()
    a = "c:\Test\aaa\bbb\ccc.jpg"
    x = Split(a, "\")(3)
    y = WorksheetFunction.Search(x, a)
    MsgBox Mid(a, y, Len(a))
End Sub

 

[Ömer BARAN]

Merhaba, alternatif olsun (verinin A1 hücresinde olduğu varsayımıyla)

MsgBox Evaluate("=MID(A1,FIND(""@"",SUBSTITUTE(A1,""\"",""@"",3))+1,LEN(A1))")

 

[mydestek]

İki yol içinde teşekkürler arkadaşlar.

 

[Ömer BARAN]

Estağfurullah, kolay gelsin.
.