Evidenziare cella con ultimo input in colonna

Question

Un saluto a tutti.

È possibile in una colonna ad esempio I evidenziare l'ultima cella che ha subito una variazione?

Con la formattazione condizionale non riesco a trovare una soluzione adeguate.

Grazie a Voi per l'aiuto.

Giovanni

Answer 1

Un saluto a tutti.

È possibile in una colonna ad esempio I evidenziare l'ultima cella che ha subito una variazione?

Con la formattazione condizionale non riesco a trovare una soluzione adeguate.

 

Grazie a Voi per l'aiuto.

Giovanni

Una risposta più completa di quella di Fratello Eliano.

Nel modulo di codice del foglio dove vuoi questa cosa:

Private Sub Worksheet_Change(ByVal Target As Range)

    With Target

        If .Cells.Count = 1 Then

            Me.Range(f(.Column) & ":" & f(.Column)).Interior.ColorIndex = xlNone

            .Interior.ColorIndex = 6

        End If

    End With

End Sub

Private Function f(ByVal lng As Long) As String

     f = Split(Cells(1, lng).Address( _

         True, False, xlA1, False), "$")(0)

 End Function

E questa in un modulo standard per eventualmente eliminare il colore dalle celle selezionate:

Public Sub m()

    Selection.Interior.ColorIndex = xlNone

End Sub

Se non hai mai utilizzato il vb di Excel, vedi qui: http://www.maurogsc.eu/excel/xlsdoveinserirecodice.aspx

Answer 2

Un saluto a tutti.

È possibile in una colonna ad esempio I evidenziare l'ultima cella che ha subito una variazione?

Con la formattazione condizionale non riesco a trovare una soluzione adeguate.

 

Grazie a Voi per l'aiuto.

Giovanni

Prova con questa macro di evento (Change) da inserire nel modulo del foglio interessato.

'------------------------------------------ 

Private Sub Worksheet_Change(ByVal Target As Range)

'colora di giallo ultima immissione nella colonna(I)

If Target.Count > 1 Then Exit Sub

If Target.Column <> 9 Then Exit Sub

Columns(9).Interior.ColorIndex = xlNone

Target.Interior.ColorIndex = 6

End Sub

'--------------------------------------------

Saluti

Eliano

Answer 3

Ringrazio entrambi per le soluzioni proposte.

Saluti

Giovanni

Grazie e te per il cortese riscontro da parte di Eliano e mia Buon lavoro.

Answer 4

Ringrazio entrambi per le soluzioni proposte.

Saluti

Giovanni