Soru Seçili Hücre Renklendirmesi

[bulentkars]

Arkadaşlar Merhaba,

Aşağıdaki Kod ile C9:AC20 aralığında A9 dan itibaren hücreye geldiğimde tüm satır renkleniyor, bu kodtta değişiklik yapmak istiyorum, yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler

1- C9:AC20 rasında çelışacak, yani A21 e geldiğimde C9:AC20 aralığındaki renk olmayacak.
2- Bu makro ile A sutununa göre çalışoyıor, ben a dan ziyade a9-ac20 arası hangi hücreye gelirsem renklendirmeyi yapsın istiyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Rows.Count > 9 Then Exit Sub


If Target.Row > 8 And Target.Row < 21 And Target.Column = 3 Then


    Range("C9:AB20").Interior.Color = vbWhite
    Range("C9:AB20").Font.Bold = False


    Range("C" & Target.Row & ":AC" & Target.Row).Interior.Color = 65535


    Target.Font.Bold = True
 
End If
End Sub

 

[YUSUF44]

A9'dan mı C9'dan itibaren mi uygulanacağını anlayamadım, A'9'dan itibaren ayarladım:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A9:AC20]) Is Nothing Then
    Range("A9:AC20").Interior.Color = xlNone
    Range("A9:AC20").Font.Bold = False
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "AC")).Font.Bold = True
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "AC")).Interior.Color = 65535
Else
    Range("A9:AC20").Interior.Color = xlNone
    Range("A9:AC20").Font.Bold = False
End If
End Sub

 

[bulentkars]

A9'dan mı C9'dan itibaren mi uygulanacağını anlayamadım, A'9'dan itibaren ayarladım:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A9:AC20]) Is Nothing Then
    Range("A9:AC20").Interior.Color = xlNone
    Range("A9:AC20").Font.Bold = False
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "AC")).Font.Bold = True
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "AC")).Interior.Color = 65535
Else
    Range("A9:AC20").Interior.Color = xlNone
    Range("A9:AC20").Font.Bold = False
End If
End Sub

Yusuf Bey Günaydın,

Çok çok teşekkür ederim tam istediğim gibi olmuş, elinize sağlık.