Belirli karakterden sonrakilerin kopyalanması

[ROUTER]

Merhaba,
Benzer dosyayı eklemiştim daha önce. Korhan bey cevapladı. REF: ibaresini sildim. Kalan bilgilerin tekrar derlenmesi gerekeceğini farkettim. Bu yüzden farklı bir makro yazılabilir mi?
REF: ibaresinden sonra ne varsa tümünü farklı bir kolona kopyalama yapılabilir mi?
Yardımlarınız için teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub DÜZENLE()
    Dim HÜCRE As Range, SAY As Byte
    
    For Each HÜCRE In Range("A2:A" & Range("A65536").End(3).Row)
        If HÜCRE.Value <> "" Then
        SAY = InStr(1, HÜCRE.Text, "REF:", vbTextCompare)
        If SAY > 0 Then
        HÜCRE.Offset(0, 1) = Mid(HÜCRE.Text, SAY + 4, 1024)
        Else
        HÜCRE.Offset(0, 1) = HÜCRE.Text
        End If
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Orion1]

Dosyanız ektedir.
=SAĞDAN(A2;UZUNLUK(A2)-MBUL("REF:";A2)-3)

 

[ROUTER]

Merhaba,
Korhan Bey, Evren Bey her ikiside problemimi çözecek. Değerli bilgileriniz ve emeğiniz için çok teşekkür ederim.
Uygulama ekte.

 

[Orion1]

Merhaba,
Korhan Bey, Evren Bey her ikiside problemimi çözecek. Değerli bilgileriniz ve emeğiniz için çok teşekkür ederim.
Uygulama ekte.

Rica ederim.
İyi çalışmalar