Soru Parçaal Makro örneği Hakkında

[mehmetd]

Sn. Arkadaşlar elimde bir veri dosyası var
B sütununda bazı veriler yer alıyor içerisinde Gönderen kelimesinden sonra geçen açıklamayı 15 karakterini alıp E sütununa yazdırabilecek bir makroya ihtiyacım var.
Yardımlarınız için şimdiden teşekkür ederim
Saygılarımla
iyi çalışmalar

 

[Muzaffer Ali]

Merhaba.

Sub test()
    With Range("E1:E" & Cells(Rows.Count, "B").End(xlUp).Row)
        .Formula = "=left(substitute(B1,""Gönderen "",""""),15)"
        .Value = .Value
    End With
End Sub

 

[mehmetd]

Sn. Ali Bey çok teşekkür ederim makro çalışıyor fakat istedim sonucu vermiyor
açıklama aşağıdaki gibi ama standart uzunlukta değil
Ch mahsuben - Para Transferi, Gönderen: CİHAN YELKENCİ , Alıcı: DENEME AMBALAJ TİCARET VE SANAYİ LİMİTED ŞİRKETİ
istediğim Gönderen: bulsun daha sonra 15 karakter CİHAN YELKENCİ E sutununa yazsın

 

[Muzaffer Ali]

Sub test()
    With Range("E1:E" & Cells(Rows.Count, "B").End(xlUp).Row)
        .Formula = "=mid(b1,find(""Gönderen"",b1)+10,15)"
        .Value = .Value
    End With
End Sub

 

[mehmetd]

Allah razı olsun Ali Bey. sağlıklı günler dilerim

 

[Muzaffer Ali]

Allah senden de razı olsun. Selametle.