Moderatori: Anthony47, Flash30005
Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "F2:G10" '<<< Area da tenere sotto controllo
Track = "Z1" '<<< Cella dove scrive data/Ora
If Application.Intersect(Target, Range(CheckArea)) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range(Track).Value = Now()
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LogNum As Integer
CheckArea = "A2:C10" '<<< Area da tenere sotto controllo
Track = "Z1" '<<< Cella dove scrive data/Ora
LogNum = 300 '<< N° di blocchi che si conserveranno
'
If Application.Intersect(Target, Range(CheckArea)) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Range(Track).Offset(Range(Track).Value * 2 + 1) <> Environ("UserName") Then
Range(Track).Value = (Range(Track).Value + 1) Mod LogNum
End If
Range(Track).Offset(Range(Track).Value * 2 + 1) = Environ("userName")
Range(Track).Offset(Range(Track).Value * 2 + 2) = Now()
Range(Track).Offset(Range(Track).Value * 2 + 3).Range("A1:A2").Clear
Application.EnableEvents = True
End Sub
fantina ha scritto:macchè Flash. Ho fatto la tua prova su excel 2002 e su excel 2007 ma la combinazione Ctrl+F11 mi apre il foglio di lavoro Macro1 vicino agli altri....
Flash30005 ha scritto:apri una nuova cartella (avrai Foglio1, Foglio2 e Foglio3)
entra nel VBA con i tasti CTRL+F11
Torna a Applicazioni Office Windows
Inserimento parziale valore cella in MessageBox Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Macro modifica date scelta periodo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 10 ospiti