quando immetti i valori, invece del tasto Invio, premi i tasti freccia Sin o Destra, così non perdi la riga.
Altrimenti associa questa macro ad un pulsante
Sub a()
If Rows(Selection.Row).Interior.ColorIndex = 6 Then
Rows(Selection.Row).Interior.ColorIndex = 0
Else
Rows(Selection.Row).Interior.ColorIndex = 6
End If
End Sub
[Modificato da patel45 29/09/2012 14:50]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta