Makroyla kelimelerde renk değişimi

[mata hari]

Merhaba,
2 Hücrem var birleştirdiğim ve formülü yazarken 2 hücre arasına "Adresi:" ibaresini koyuyorum ancak bu kelimenin kalın yazı tipinde olmasını istiyorum (Adresi:) Buna benzer konular buldum ama örnek ekleri açamadım ve makro bilgim olmadığından da kendi çalışmama uyarlayamadım. Yardımcı olursanız sevinirim.

Formülüm aşağıdaki gibi
=(BİRLEŞTİR(A2;DAMGA(10);"Adresi:";DAMGA(10);;B2))

 

[Necdet]

Merhaba,

Örnek dosyanızı koyarsanız bir arkadaşımız size uygulayıp verecektir.

 

[mata hari]

İlk sayfa olmasını talep ettiğim 2. sayfa ise mevcut hali.Teşekkür ederim.

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırıp dener misiniz?

Sub BulKoyuYap()
For i = 1 To Range("A" & Rows.Count).End(3).Row
Set Aranan = Cells(i, 1).Find("Adresi:", , xlValues, xlPart)
    If Not Aranan Is Nothing Then
        p = WorksheetFunction.Search("Adresi:", Cells(i, 1))
        Cells(i, 1).Characters(p, 8).Font.Bold = True
    End If
Next
End Sub

 

[mata hari]

tamamdır,çok teşekkür ederim