Aktif Hücre Renklendirme..

[bulentkars]

Arkadaşlar Merhaba



Excel bir tablom var aktif sayfada mause ıle hangı satırı tıkladığımda artalan renk sarı olsun örneğin a20 yi tıkladığımda a2020 yi sarı ya boyamak istyorum aktif sayfada mause ıle tıklayabıleceğim aralık A930 yani a1 e tıkladığımda renklendirme yapmasın bu işlemi sadece ve sadece a930 arasında yapsın bu aralıkların dışında mauseile tıkladığımda renklendirme işlemi yapmasın.yardımlarınız için şimdiden teşekkür ediyorum

 

[ozgretmen]

Uygulayacağınız sayfanın kod bölümüne ekleyiniz.iyi çalışmalar...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A9:P30]) Is Nothing Then Exit Sub
On Error GoTo son
Cells.Interior.ColorIndex = xlNone
Cells(Target.Row, Target.Column).Interior.ColorIndex = 6
son:
End Sub

 

[bulentkars]

renk hk

teşekkür ederim olmuş fakat a9 dan tıkladıgımda sadece seçili hücre renlkleniyor benim istediğim örneğin a10 tıkladığımda a1010 arasını sarıya boyasın istiyorum

 

[ozgretmen]

teşekkür ederim olmuş fakat a9 dan tıkladıgımda sadece seçili hücre renlkleniyor benim istediğim örneğin a10 tıkladığımda a1010 arasını sarıya boyasın istiyorum

Acaba bu şekilde mi istediniz ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A9:P30]) Is Nothing Then Exit Sub
On Error GoTo son
Cells.Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 16)).Interior.ColorIndex = 6
son:
End Sub

 

[bulentkars]

RENK

Çok teşekkür ederim...