Again about Row Highlighting [HELP]
Private Sub Worksheet_SelectionChange(By Val Target As Excel.Range)
Static oldRange as Range
Static colorIndices As Integer
Dim i As Integer
If Not oldRange Is Nothing Then 'Restore color indices
Cells(oldRange.row, 1).Interior.ColorIndex=colorIndices
End If
colorIndices=Cells(Target(1).row,1).Interior.Color Index
cells(Target(1).Row,1).Interior.ColorIndex=15
Set oldRange=Cells(Target(1).Row,1)
End Sub
--
Regards,
Tom Ogilvy
"Alex" wrote in message
om...
Hello,
I saw many post in this newsgroup about row highlighting,
this code written by jemcgimpsey I found in this newsgroup works well:
-----------
Private Sub Worksheet_SelectionChange(By Val Target As Excel.Range)
Static oldRange as Range
Static colorIndices(256) As Integer
Dim i As Integer
If Not oldRange Is Nothing Then 'Restore color indices
For i=1 to 256
Cells(oldRange.row, i).Interior.ColorIndex=colorIndices(i)
Next i
End If
For i = 1 to UBound(colorIndices)
colorIndices(i)=Cells(ActiveCell.row,i).Interior.C olorIndex
Next i
ActiveCell.EntireRow.Interior.ColorIndex=15
Set oldRange=ActiveCell.EntireRow
End Sub
----------
Now I need your help because I'd like to to have highlighted only the
cell on coloumn "A" - not the entire Row.
I'm sure you Excel experts can easly change this code, I'd be greatful
if
somebody can help me.
Thanks,
Ale.
|