Tek Tırnak (') İçindeki Kelimeyi Kalın Harf Yapmak

[meslek5]

Merhaba değerli üstatlar
D55 hücresinde yer alan uzun cümlenin içindeki tek tırnak (') içinde yer alan kelimeyi kalın harf yapmak istiyorum. Bunu makro kodu ile yapabilir miyiz?
şimdiden teşekkür ederim.

 

[pitchoute]

Merhaba hocam, deneyip sonucu paylaşabilir misiniz;

Sub BoldTextInSingleQuotes()
    Dim rng As Range
    Dim txt As String
    Dim startPos As Long
    Dim endPos As Long

    Set rng = Range("D55")
    txt = rng.Value

    startPos = InStr(1, txt, "'")
    If startPos = 0 Then Exit Sub
    
    endPos = InStr(startPos + 1, txt, "'")
    If endPos = 0 Then Exit Sub

    With rng.Characters(startPos + 1, endPos - startPos - 1).Font
        .Bold = True
    End With
End Sub

 

[meslek5]

Merhaba hocam, deneyip sonucu paylaşabilir misiniz;

Sub BoldTextInSingleQuotes()
    Dim rng As Range
    Dim txt As String
    Dim startPos As Long
    Dim endPos As Long

    Set rng = Range("D55")
    txt = rng.Value

    startPos = InStr(1, txt, "'")
    If startPos = 0 Then Exit Sub
   
    endPos = InStr(startPos + 1, txt, "'")
    If endPos = 0 Then Exit Sub

    With rng.Characters(startPos + 1, endPos - startPos - 1).Font
        .Bold = True
    End With
End Sub

Denedim çok hızlı ve istenilen sonucu veriyor. Hocam teşekkür ederim çok makbule geçti.

 

[pitchoute]

Rica ederim, iyi çalışmalar hocam.