tıklanan hucre ve ters hucresının renklenmesı

[kneehot]

selamlar arkadaslar.ıstedıgım sey bıraz karısık baslıkta yazdıgımdan fazla anlatmam zor olacak oyuzden ornek ekledım ve ıcınde anlattım.ılgılenenlere cok tesekkurler.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a1:h1]) Is Nothing Then Exit Sub
[a:h].Interior.ColorIndex = xlNone
If Target.Column = 1 Then [h:h].Interior.ColorIndex = 6
If Target.Column = 2 Then [g:g].Interior.ColorIndex = 6
If Target.Column = 3 Then [f:f].Interior.ColorIndex = 6
If Target.Column = 4 Then [e:e].Interior.ColorIndex = 6

If Target.Column = 8 Then [a:a].Interior.ColorIndex = 6
If Target.Column = 7 Then [b:b].Interior.ColorIndex = 6
If Target.Column = 6 Then [c:c].Interior.ColorIndex = 6
If Target.Column = 5 Then [d:d].Interior.ColorIndex = 6
End Sub

 

[kneehot]

SAYIN N.Ziya Hiçdurmaz ılgınıze tesekkurler fakat sadece 1. satırda calısıyor ve tum sutun renklenıyor.ben renklendırıp ekledım dosyayı sanırım anlatamadım bu sekılde daha anlasılır olur sanırım.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column > 8 Then Exit Sub
[ı:p].Interior.ColorIndex = xlNone
If Target.Column = 1 Then Target.Offset(0, 7).Interior.ColorIndex = 3
If Target.Column = 2 Then Target.Offset(0, 5).Interior.ColorIndex = 3
If Target.Column = 3 Then Target.Offset(0, 3).Interior.ColorIndex = 3
If Target.Column = 4 Then Target.Offset(0, 1).Interior.ColorIndex = 3

If Target.Column = 8 Then Target.Offset(0, -7).Interior.ColorIndex = 3
If Target.Column = 7 Then Target.Offset(0, -5).Interior.ColorIndex = 3
If Target.Column = 6 Then Target.Offset(0, -3).Interior.ColorIndex = 3
If Target.Column = 5 Then Target.Offset(0, -1).Interior.ColorIndex = 3
End Sub

 

[kneehot]

tesekkurler.