Hücre içinde istediğim kelimeyi bold yapmak.

[lovecaroline]

Saygı değer Hocalarım, değerli arkadaşlarım, çalışmalarımda şöyle bir makroya ihtiyaç duyuyorum.

Bir hücre içindeki sayısız kelimelerden, istediğimiz kelimenin (işaret ettiğimiz hücrede yazan kelimenin) bold olmasını sağlamak istiyorum.
Örnek; bold olmasını istediğim kelime D1 hücresindeki kelime olsun, A1 hücresinde D1’de yazan kelimeyi bulup, sadece o kelimeyi bold yapmasını istiyorum.

Şimdiden yardımlarınız için teşekkür ederim.

 

[YUSUF44]

Aşağıdaki makroyu deneyin:

Sub koyu()
For i = 1 To Len([A1])
    If WorksheetFunction.Proper(Mid([A1], i, Len([D1]))) = WorksheetFunction.Proper([D1]) Then
        [A1].Characters(i, Len([D1])).Font.Bold = True
    End If
Next
End Sub

 

[lovecaroline]

Aşağıdaki makroyu deneyin:

Sub koyu()
For i = 1 To Len([A1])
    If WorksheetFunction.Proper(Mid([A1], i, Len([D1]))) = WorksheetFunction.Proper([D1]) Then
        [A1].Characters(i, Len([D1])).Font.Bold = True
    End If
Next
End Sub

Aşağıdaki kod ile ilgili hücreyi formülden kurtarıp, ilk 3 karakteri bold yapıyordum.
Yazdığınız kod ile birleştirebilir misiniz lütfen.




Sub B3_Formülden_kurtar_ilk_üçü_kalın_Yap()
With Range("A1")
.Font.Bold = False
.Value = .Value
.Characters(1, 3).Font.Bold = True
End With
End Sub

 

[YUSUF44]

Benim verdiğim kodun For/Next döngüsünü sizin kodunuzda End With satırından sonra ekleyin.

 

[lovecaroline]

Benim verdiğim kodun For/Next döngüsünü sizin kodunuzda End With satırından sonra ekleyin.

İstediğim oldu. Çok teşekkür ederim.