kneehot
Altın Üye
- Katılım
- 4 Ekim 2007
- Mesajlar
- 625
- Excel Vers. ve Dili
- OFFİCE 365
- Altın Üyelik Bitiş Tarihi
- 06-10-2025
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
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