FOR NateO

[verluc]

Hi NateO,

I found your following macro:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim cl As Range
Static n As Range
On Error GoTo 1
For Each cl In Range("a" & n.Row, n)
If cl.Interior.ColorIndex = 36 Then _
cl.Interior.ColorIndex = xlNone
Next cl
For Each cl In Range("a" & Target.Row, Target)
If cl.Interior.ColorIndex = xlNone Then _
cl.Interior.ColorIndex = 36
Next cl
1: Set n = Target
End Sub
With your macro above,is it also possible that in the same time the vertical column also can be uplighted.
So when when the row is 8 and the column is F then the row A8 and the column F8 is highlighted.
(the same result as the macro from I.F.MOALA)
but that macro don't work for me.
Thanks for answer

 

[NateO]

Howdy Verluc,

While it is possible, it is not recommended. This does not perform well deep in the sheet. The code could look something like:<pre>
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim cl As Range
Static n As Range
On Error GoTo 1

'clear formatting of the old row
For Each cl In Range("a" & n.Row, n)
If cl.Interior.ColorIndex = 36 Then _
cl.Interior.ColorIndex = xlNone
Next cl

'clear formatting of the old column
For Each cl In Range(Cells(1, n.Column), n)
If cl.Interior.ColorIndex = 36 Then _
cl.Interior.ColorIndex = xlNone
Next cl

'colour active row
For Each cl In Range("a" & Target.Row, Target)
If cl.Interior.ColorIndex = xlNone Then _
cl.Interior.ColorIndex = 36
Next cl

'colour active column
For Each cl In Range(Cells(1, Target.Column), Target)
If cl.Interior.ColorIndex = xlNone Then _
cl.Interior.ColorIndex = 36
Next cl

1: Set n = Target
End Sub</pre>

Both this and Ivan's code belong in a worksheet module (the appropriate one). Ivan's should work, I would recommend trouble-shooting the problem if you want this functionality.


_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue"> Oliver</font></font></font>
This message was edited by nateo on 2002-09-06 13:42

 

[Ivan F Moala]

Hi Verluc

can you post the code you get when you do this;

Turn your macro recoder on and set up a cells condition format as a formula and then for the formula enter TRUE.

thanks