hücre içeriğinden kesit ya da değer alma?

[KMLZDMR]

Sayın forumdaşlar,
Ekli belgede örneği olduğu şekliyle iki ayrı tabloda hücre içeriğinden kesit ya da değer alma? ihtiyacım var? Lütfen yardımcı olabilir misiniz?
a) A1 hücresindeki; CRG-LKSH-1 değeri formül sonucunda B1 hücresinde LKSH gelecek
b) A2 hücresindeki; CRG-LMR-1 değeri formül sonucunda B2 hücresinde LMR gelecek
c) D1 hücresindeki; LSJQ-579 değeri formül sonucunda E1 hücresinde LSJQ gelecek
d) D7 hücresindeki; MT-SH005 değeri formül sonucunda E7 hücresinde MT-SH gelecek

tablo ektedir.

 

[Asri]

Aşağdaki KTF yi kullanabilirsiniz.

Mantığı iki tire var ise aradakileri alır,
tek tire var ise soldan başlayarak ilk rakama kadar olanları alır.

Function kodparcala(ByVal kodstr As Range) As String
   solbul = InStr(kodstr, "-")
   sagbul = InStrRev(kodstr, "-")
   If solbul = sagbul Then
      gecici = ""
      For i = 1 To Len(kodstr)
        If InStr("0123456789", Mid(kodstr, i, 1)) > 0 Then
           If Right(gecici, 1) = "-" Then gecici = Mid(kodstr, 1, i - 2)
           Exit For
        Else
           gecici = gecici + Mid(kodstr, i, 1)
        End If
      Next
   Else
     gecici = Mid(kodstr, solbul + 1, sagbul - solbul - 1)
   End If
   
   kodparcala = gecici
End Function

 

[Ömer BARAN]

Merhaba.

-- B2 hücresine;

=[COLOR="red"]PARÇAAL[/COLOR](A2;[COLOR="red"]BUL[/COLOR]("-";A2)+1;[COLOR="red"]BUL[/COLOR]("-";A2;[COLOR="red"]BUL[/COLOR]("-";A2)+2)-[COLOR="red"]BUL[/COLOR]("-";A2)-1)

-- E2 hücresine;

=[COLOR="red"]YERİNEKOY[/COLOR](D2;[COLOR="red"]DEĞİŞTİR[/COLOR](D2;1;[COLOR="red"]MİN[/COLOR]([COLOR="red"]MBUL[/COLOR]({0;1;2;3;4;5;6;7;8;9};D2& "0123456789"))-[COLOR="red"]EĞER[/COLOR]([COLOR="red"]PARÇAAL[/COLOR](D2;[COLOR="Red"]MİN[/COLOR](MBUL({0;1;2;3;4;5;6;7;8;9};D2& "0123456789"))-1;1)="-";2;1);"");"")

 

[KMLZDMR]

Sayın asiri ve Sayın Ömer Baran üstadlarım çok teşekkür ederim.
aklınıza sağlık.