Makro ile renklendirme sınırı var mı?

[klop01]

Arkadaşlar,
Forumdan bulduğum aşağıdaki kod ile sütun, satır ve aktif hücre renklendirmesi yaptım.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
If Intersect(Target, [A3:AC39]) Is Nothing Then Exit Sub
ActiveCell.EntireColumn.Interior.ColorIndex = 35 'Sütun Rengi
ActiveCell.EntireRow.Interior.ColorIndex = 35 ' Satır Rengi
ActiveCell.Cells.Interior.ColorIndex = 36 ' Hücre Rengi
End Sub

1. Kod kesişim yerinden sonra da çalışarak tüm satırı ve sütunu renklendiriyor.
A) Bu kodu değiştirerek satırları AC'ye kadar, sütunları ise satırlar ile kesiştiği noktaya kadar geçerli renklendirme yapabilir miyiz?
B) "A" seçeneği olmuyorsa, satır ve sütunları en fazla AC39'a kadar geçerli renklendirme yapabilir miyiz?

2. Ekteki dosya kod içermesine rağmen düz Excel sayfası(makro ünlemi olmayan) şeklinde kayıtlı. Kod da çalışıyor. Bu konuda bilgi verir misiniz?

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Cells.Interior.ColorIndex = xlColorIndexNone
    If Intersect(Target, [A3:AC39]) Is Nothing Then Exit Sub
    Satir = ActiveCell.Row
    Sutun = ActiveCell.Column
    Range("A" & Satir & ":AC" & Satir).Interior.ColorIndex = 35 'Sütun Rengi
    Range(Cells(1, Sutun), Cells(Satir, Sutun)).Interior.ColorIndex = 35 ' Satır Rengi
    ActiveCell.Interior.ColorIndex = 36 ' Hücre Rengi
End Sub

2 .sorunuza gelince;

Dosyanız 2003 uzantısı ile kayıt edilmiş. Bu sebeple ünlem işareti yok ve kodlar çalışıyor.

 

[klop01]

Korhan Bey,
Teşekkür ederim. Göndermiş olduğunuz kod tam olarak istenileni karşılıyor. Bilginize, elinize sağlık.

 

[Tevfik_Kursun]

Teşekkürler Korhan Hocam