Yazı içerisinde belli bir kelimeyi koyulaştırma

[millis]

Sayın üstadlar ve arkadaşlar; Belki çok basit bir soru olacak fakat bir yazı içerisinde belli bir kelimeyi koyulaştırmak için ne yapmam gerekiyor. Örneğin; C4 hücresine yazmış olduğum bir kelimeyi alt tarafta bulunan yazı içerisine aktarıyor ve burada sadece C4 hücresine yazmış olduğum kelimenin siyah ve kalın olmasını istiyorum. Bununla ilgili yardım ederseniz sevinirim. Şimdiden ilgilenen üstadlara ve arkadaşlara teşekkür ederim.

 

[hamzacan]

Örnek bir dosya ekleseniz. Tam anlayamadım.

 

[Leoncio]

Merhaba;
Aşağıdaki kodu kendi çalışmanıza uyarlayınız.

'seçili alanda toplam yazan yerleri bold yapar.
Sub BoldStr()
Dim MyRange As Range
Dim x As Byte
For Each MyRange In Selection
x = InStr(1, LCase(MyRange), "toplam")
If x >= 1 Then
MyRange.Characters(Start:=x, Length:=6).Font.Bold = True
End If
Next
End Sub