Seçili satırı renklendirmek ve bold yapmak

[kneehot]

Arkadaşlar merhaba. Elimde bir makro var seçili satırı renklendiriyor, buna bir de o satırda bulunan yazıları bold yapacak kodu eklemeniz mümkün mü rica etsem. Şimdiden gelen yardımlara çok teşekkürler.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo son
Cells.Interior.ColorIndex = xlNone
'Range(Cells(1, Target.Column), Cells(65536, Target.Column)).Interior.ColorIndex = 3
Range(Cells(Target.Row, 2), Cells(Target.Row, 18)).Interior.ColorIndex = 42
son:
End Sub

 

[dEdE]

Merhaba,
"son:" satırından önce aşağıdaki satırı ekleyip dener misiniz?
Range(Cells(Target.Row, 2), Cells(Target.Row, 18)).Font.Bold = True

 

[kneehot]

Merhaba,
"son:" satırından önce aşağıdaki satırı ekleyip dener misiniz?
Range(Cells(Target.Row, 2), Cells(Target.Row, 18)).Font.Bold = True

Yardımız için çok teşekkür ederim, kod çalışıyor fakat satırı bold yaptıktan sonra başka satıra geçince bold kalıyor. Sadece seçili satırın bold olması satırdan çıkınca eskiye dönmesi gibi şansımız var mıdır?

 

[dEdE]

Cells.Interior.ColorIndex = xlNone
satırından sonra
Cells.Font.Bold = False
satırını ekleyerek dener misiniz?

 

[kneehot]

Cells.Interior.ColorIndex = xlNone
satırından sonra
Cells.Font.Bold = False
satırını ekleyerek dener misiniz?

Çok teşekkür ederim, istediğim gibi çalışıyor