Excelde cümlenin belli bir kısmını kalın font yapma

[aligunes]

Excelde A sutunda yer alan cümlenin belli bir kısmını (soru işaretinden sonraki) kalın font yaparak b sutuna yazdırmak için formül yada macro koda ihtiyacım var.

ör: Yıllık izin ile ilgili aşağıdaki ifadelerden hangisi doğrudur?Bir önceki yıldan devreden izin süresi ancak devredilen yıl içinde kullanılmalıdır.
Yıllık izin ile ilgili aşağıdaki ifadelerden hangisi doğrudur?Bir önceki yıldan devreden izin süresi ancak devredilen yıl içinde kullanılmalıdır.

soru işaretinden sonraki kısım kalın yazdırılacak

 

[Ömer BARAN]

Merhabalar.
1'inci satırdan 150'nci satıra kadar istediğiniz işlem yapılır.

Sub KOYU()
For sat = 1 To 150
    Cells(sat, "B") = Cells(sat, "A")
    Cells(sat, "B").Characters(Start:=WorksheetFunction.Search("~?", Cells(sat, "A")) + 1, _
                    Length:=Len(Cells(sat, "A"))).Font.Bold = True
Next
End Sub

 

[aligunes]

teşekkür ederim ömer bey bişey daha soracağım a1 deki soru adedi 150 üncü satıra kadar yani a1...a150 deki soruları b1...b150 ye şeklinde nasıl yazdırabilirim.

 

[Ömer BARAN]

Sayfayı yenileyerek önceki cevabımı tekrar kontrol edin.