Text içerisine & komutunu kullanarak başka bir hücreden veri ekleyip kalın yapma sorunu

[GAKER]

Text içerisine &A1& komutunu kullanarak başka bir hücreden veri ekliyorum.
Örneğin : A1 hücresine isim yazıyorum. "AHMET" . B1 Hücresinede ="Merhaba " &A1& " Bey Hoş geldiniz." yazıyorum.
Bu komutla A1 hücresine yazılan "AHMET" ismini
Merhabalar AHMET Bey Hoş geldiniz olarak işleyebiliyorum.
Fakat ben buna ek olarak içeri yazılan AHMET isminin kalın olarak yazılmasını istiyorum. A1 hücresini kalın yapsamda bir fayda sağlamıyor. Yazılan yazınında tamamının kalın olmasını istemiyorum. Bu konuda ne yapabilirim?

 

[ÖmerFaruk]

B sütununuzdaki formüller silinecektir.
Aşağıdaki kodu bir kez çalıştırdığınız verdiğiniz örnekte olan işlem yapılacak ve A sütunundan gelen veri BOLD yazılacaktır.

Sub FontBold()
For i = 1 To Range("B1").End(xlDown).Row
    Range("B" & i) = "Merhaba " & A1 & " Bey Hoş geldiniz."
    Range("B" & i).Characters(Start:=Len("Merhaba ") + 1, Length:=Len(Range("A" & i))).Font.Bold = True
Next i
End Sub

 

[GAKER]

B sütununuzdaki formüller silinecektir.
Aşağıdaki kodu bir kez çalıştırdığınız verdiğiniz örnekte olan işlem yapılacak ve A sütunundan gelen veri BOLD yazılacaktır.

Sub FontBold()
For i = 1 To Range("B1").End(xlDown).Row
    Range("B" & i) = "Merhaba " & A1 & " Bey Hoş geldiniz."
    Range("B" & i).Characters(Start:=Len("Merhaba ") + 1, Length:=Len(Range("A" & i))).Font.Bold = True
Next i
End Sub

Çok teşekkür ederim. İllaki macro işlem yapmam gerekiyor değil mi? Eğer öyle ise bile inanın bu kodu nereye yazacağımı bile bilmiyorum

 

[ÖmerFaruk]

Sayfa sekmesinde sağ tıkla
Kod görüntüle
çıkan pencereye bu kodu yapıştır
Mouse ile kodun herhangi bir satırındayken
F5 tuşuna bas
sayfanızdaki satır sayısına göre belli bir sürede işlem tamamlanmış olacak

 

[GAKER]

Sayfa sekmesinde sağ tıkla
Kod görüntüle
çıkan pencereye bu kodu yapıştır
Mouse ile kodun herhangi bir satırındayken
F5 tuşuna bas
sayfanızdaki satır sayısına göre belli bir sürede işlem tamamlanmış olacak

Çok teşekkür ederim.