Evidenziare tutta la riga, stando sulla casella

Question

Salve,

Si puo` avere tutta la riga evidenzita stando su una  casella?

Se si, si puo scegliere anche il colore dellevidenziatura?

esempio:

mi trovo sulla casella 2 della riga 24 , si puo avere tutta la riga evidenziata automaticamente, senza schiacciare lesterno della riga?

Spero di essere stato abbastanza chiaro.

Aspettando una Vostra risposta Vi Saluto e Ringrazio

Answer 1

Ciao Giuseppe,

Si puo` avere tutta la riga evidenzita stando su una  casella?

Se si, si puo scegliere anche il colore dellevidenziatura?

esempio:

mi trovo sulla casella 2 della riga 24 , si puo avere tutta la riga evidenziata automaticamente, senza schiacciare lesterno della riga?

• Ctrl+R per accedere alla finestra Project Explorer ('Gestione progetti')
• Fai doppio clic sul modulo ThisWorkbook (Questa_cartella_di_Lavoro) del file e incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    Dim Rng As Range, Rng2 As Range

    Const myCols As String = "A:H"

    Const iColor As Long = 6   '\ Giallo

    Set Rng = Sh.Range(myCols)

    Set Rng2 = Intersect(Rng, Target.Cells(1).EntireRow)

    With Rng

        .Interior.ColorIndex = xlNone

        If Target.Column <= .Columns(.Columns.Count).Column Then

            If Target.Row > 1 Then

                Rng2.Interior.ColorIndex = iColor

            End If

        End If

    End With

End Sub

'<<=========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il fil con l'estensione xlsm

Come alternativa, vedi anche l'addin RowLiner di Chip Pearson:

           **http://www.cpearson.com/excel/rowliner.htm**

Potresti scaricare il mio file di prova Giuseppe20151210.xlsm a:

           **http://1drv.ms/1OkDvM5**

===

Regards,

Norman