Grande !! Questa è una bella soluzione ma a me interessava compilare volta per volta la stessa cella, quindi, un'idea ce l'ho ma è un po' macchinosa.
Basterebbe usare delle colonne di supporto in cui inserisco la seguente formula:
- Codice: Seleziona tutto
=SE(VAL.ERRORE(ANNULLA.SPAZI(SOSTITUISCI(STRINGA.ESTRAI($D14;TROVA(AP$1;$D14)-8;8);",";"")));"";ANNULLA.SPAZI(SOSTITUISCI(STRINGA.ESTRAI($D14;TROVA(AP$1;$D14)-10;10);",";"")))
, spiegata nel seguente post:
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=104906Imposto il tutto per estrarre Stop 1 nella cella di appoggio contenente la formula sopra citata (come nel file allegato) Es, Stop 1, Stop 2, etc etc..
A questo punto, basta inserire questa macro di tipo worksheetchange per generare, in un'altra colonna di appoggio, la data in cui la formula rileva Stop 1 e così via per tutti gli altri Stop 2, Stop 3, Stop 4..
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Set KeyCells = Range("C5:C10000")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing _
And Cells(Target.Row, "M") = "" And Not IsNumeric(Target.Value) Then
ActiveSheet.Unprotect
With Cells(Target.Row, "M")
.Value = Int(Now)
.Locked = False
End With
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
End If
Private Sub Worksheet_Change(ByVal Target As Range)
Set KeyCells = Range("D5:D10000")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing _
And Cells(Target.Row, "N") = "" And Not IsNumeric(Target.Value) Then
ActiveSheet.Unprotect
With Cells(Target.Row, "N")
.Value = Int(Now)
.Locked = False
End With
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
End If
End Sub
'Etc.. per ogni colonna
Poi, con un altro pezzo di macro di tipo worksheet change, bisognerebbe cambiare il colore del testo solo fino a Stop 1 ed aggiungere la data registrata nella cella di supporto alle Note di Excel.
Al nuovo aggiornamento della cella inserisco una nuova parte di testo concludendo con Stop 2, quindi, dovrebbero attivarsi la relativa formula e la macro worksheet change che colori la parte di testo da Stop 1 a Stop 2 di un altro colore rispetto a quello precedente, così direi fino al massimo di 10 Aggiornamenti. Questo comporterebbe l'utilizzo di ben 20 colonne di supporto ma... a mali estremi, estremi rimedi !
Ecco L'esempio
http://www.filedropper.com/esempio3_1Grazie a tutti !