Ciao Simon
Ho modificato il codice che ti propongo
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("C1:c6")) Is Nothing Then <---- Ovviamente modifica il range con il tuo
If Target.Value = "" Then
Range("A" & Target.Row & ":" & "B" & Target.Row).Interior.ColorIndex = xlNone
Else
Range("A" & Target.Row & ":" & "B" & Target.Row).Interior.ColorIndex = 6
End If
Worksheets(1).Calculate
End If
Application.EnableEvents = True
End Sub
In questo modo se cancelli la X in colonna C viene tolto il colore alle celle e ripristinato il totale.
Ti riallego il file
http://www.filedropper.com/simon1Riesci ad implementare quanto suggerito sul tuo file reale?
Se no, allegane uno di esempio con dati fittizi e cercheremo di farlo.
@ Wallace
Poiché di f.c. non so quasi nulla potresti, gentilmente, spiegarmi come applicare la tua soluzione?
Grazie