Satır Renklendirme

[cevatyildiz]

Merhaba,

Satır renklendirmek için aşağıdaki kodları kullanıyorum. Fakat bir başka ihtiyacım oluştu. Satır renklendirme işleminin sadece ilk 6 sütuna yani A-B-C-D-H sütunlarına tıkladıgımda gerçekleşmesini istiyorum, diğer sütunlara tıkladıgımda satır renklenmemesi gerekiyor, yardımcı olabilir misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Son As Long

Call ResetComments

Son = [A65536].End(4).Row

If Intersect(Target, Range("A3:AC" & Son)) Is Nothing Then Exit Sub

Range("A3:J" & Son).Interior.ColorIndex = xlNone
Range("A3:J" & Son).Font.Bold = False
Range("L3:L" & Son).Interior.ColorIndex = xlNone
Range("L3:L" & Son).Font.Bold = False
Range("N3:P" & Son).Interior.ColorIndex = xlNone
Range("N3:P" & Son).Font.Bold = False
Range("R3:S" & Son).Interior.ColorIndex = xlNone
Range("R3:S" & Son).Font.Bold = False
Range("U3:U" & Son).Interior.ColorIndex = xlNone
Range("U3:U" & Son).Font.Bold = False
Range("W3:X" & Son).Interior.ColorIndex = xlNone
Range("W3:X" & Son).Font.Bold = False
Range("AA3:AC" & Son).Interior.ColorIndex = xlNone
Range("AA3:AC" & Son).Font.Bold = False

Range("A" & Target.Row & ":J" & Target.Row).Interior.ColorIndex = 46
Range("A" & Target.Row & ":J" & Target.Row).Font.Bold = True
Range("L" & Target.Row & ":L" & Target.Row).Interior.ColorIndex = 46
Range("L" & Target.Row & ":L" & Target.Row).Font.Bold = True
Range("N" & Target.Row & ":P" & Target.Row).Interior.ColorIndex = 46
Range("N" & Target.Row & ":P" & Target.Row).Font.Bold = True
Range("R" & Target.Row & ":S" & Target.Row).Interior.ColorIndex = 46
Range("R" & Target.Row & ":S" & Target.Row).Font.Bold = True
Range("U" & Target.Row & ":U" & Target.Row).Interior.ColorIndex = 46
Range("U" & Target.Row & ":U" & Target.Row).Font.Bold = True
Range("W" & Target.Row & ":X" & Target.Row).Interior.ColorIndex = 46
Range("W" & Target.Row & ":X" & Target.Row).Font.Bold = True
Range("AA" & Target.Row & ":AC" & Target.Row).Interior.ColorIndex = 46
Range("AA" & Target.Row & ":AC" & Target.Row).Font.Bold = True

Son:

End Sub

 

[Orion1]

İlgili satırı aşğıdaki satırla değiştiriniz.

If Intersect(Target, Range("A3:H" & Son)) Is Nothing Then Exit Sub

 

[cevatyildiz]

çok teşekkürler Evren Bey

 

[Orion1]

çok teşekkürler Evren Bey

Rica ederim.

 

[cevatyildiz]

Hocam, satır renklendirmenin oldugu sayfayı paylaşıma açtım ama bazı sayfalarda satır renklendirme, birçok refresh yapıp 2 sn içinde tüm satırı boyuyor, neden olabilir?