high-lite the active cell's row when mouse cursor is in plac

[trillicomm]

A file has thin row height so I can view many rows on the screen. But sometimes I get mixed up reading different cells of either the above or below ones of the active row (because of small text size, too). If someone can help me script an visible feature VBA macro to colorize the row background in light green and bold type the text from columns A to D, that'd be greatly appreciated. But the row has to return to the normal property when the mouse moves to another cell with respect to the row.

Thank you.

[Juan Pablo González]

Hey Tan

Do you have any prior format in that range ? I mean, do you have a background color for those cells ? same question for font...

[trillicomm]

Juan,

No I don't for now. Got my emails?

T.

[Juan Pablo González]

Yes.

Try this:

In the worksheet module

Dim Pre As Range



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Pre Is Nothing Then

    If Target.Row <> Pre.Row Then

    With Pre

        .EntireRow.Interior.ColorIndex = -4142

        .Font.Bold = False

    End With

    End If

End If

With Target

    .EntireRow.Interior.ColorIndex = 36

    Cells(.Row, 1).Resize(1, 4).Font.Bold = True

End With

Set Pre = Cells(Target.Row, 1).Resize(1, 4)

End Sub

[trillicomm]

Juan,

I just sent you the file. It must be me; it doesn't work.

tl

[Juan Pablo González]

Where did you put it ? in a Standard Module ?

[Juan Pablo González]

Ok, it was in a Standar module, it should be in the Worksheet's module.

[trillicomm]

I put them in ThisWorkbook and also in Module1.

[trillicomm]

Juan,

It works very well for single cell selection except multiple cells selection (by found that out by accident). Sorry about the instruction. Now I learn that there are three types of VBA locations: worksheet(s), thisworkbook, and modules, let alone the Personal.xls.

Thank you JP.

T.

[Dave Hawley]

Hi

I have a very simple example of this here:
http://www.ozgrid.com/VBA/ExcelWorkbookEvents.htm
Scroll to the bottom and look at:
"Automatic Highlighting of Active Row"



_________________
Kind Regards
Dave Hawley
OzGrid Business Applications
Microsoft Excel/VBA Training


[ This Message was edited by: Dave Hawley on 2002-03-23 19:33 ]