Soru Metinden Parça Alma

[okan32]

Bir metinden parça almak istiyorum yalnız almak istediğim metnin uzunluğu değişebilmektedir.Ekteki örnek dosyamda yapmak istediğimi yazdım. Şimdiden Teşekkürler

 

[okan32]

Bir metinden parça almak istiyorum yalnız almak istediğim metnin uzunluğu değişebilmektedir.Ama metin her zaman "olarak" kelimesi ile bitiyor. Ekteki örnek dosyamda yapmak istediğimi yazdım. Şimdiden Teşekkürler

 

[Korhan Ayhan]

Yani ikinci kelimeden "olarak" ile biten kısma kadar mı almak istiyorsunuz?

 

[okan32]

Evet Korhan hocam

 

[Korhan Ayhan]

Deneyiniz.

=EĞERHATA(PARÇAAL(A1;MBUL(" ";A1)+1;MBUL("olarak";A1)+6-MBUL(" ";A1)-1);"")

 

[Ömer]

Merhaba,

Bold seçimine göre hazırlamıştım. Alternatif olsun.

Deneyiniz.

Sub parca_al()

    Dim i As Integer, a As Byte
   
    For i = 1 To Len([A1])
        If a = 0 Then
            If [A1].Characters(i, 1).Font.Bold = True Then
                a = i
            End If
        End If
        If a > 0 And [A1].Characters(i, 1).Font.Bold = False Then Exit For
    Next i
   
    [B1] = Trim(Mid([A1], a, i - a))
   
End Sub

 

[okan32]

Korhan Hocam ve Ömer Hocam çok teşekkür ederim.

 

[Haluk]

Google Sheets ile alternatif :



.

.