Ciao Anthony e grazie per la pazienza...
di seguito il file che sto utilizzando:
https://www.wetransfer.com/downloads/3c5636bd0f097ac6456be1e7536f390320150616131822/e787bad051d37e41d5942c671cc1895b20150616131822/3ce063
grazie ancora.
Moderatori: Anthony47, Flash30005
Private Sub Worksheet_Change(ByVal Target As range)
Dim KeyCells As range
Set KeyCells = range("L13:P10000")
If Not Application.Intersect(KeyCells, range(Target.Address)) Is Nothing _
And Cells(Target.Row, "S") = "" And IsNumeric(Target.Value) Then
ActiveSheet.Unprotect
With Cells(Target.Row, "S")
.Value = Int(Now)
.Locked = False
End With
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
End If
Set KeyCells = range("B13:B10000")
If Not Application.Intersect(KeyCells, range(Target.Address)) Is Nothing _
And Cells(Target.Row, "A") = "" Then
ActiveSheet.Unprotect
With Cells(Target.Row, "A")
.Value = Int(Now)
.Locked = False
End With
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
End If
Torna a Applicazioni Office Windows
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
gestire e togliere oggetti in colonna con condizione Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Inserimento valore di una cella in testo di altra cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 34 ospiti