messaggio di errore con due celle piene

rollis13, 17/11/2017 22.10:

---

mettici anche questa:

If Target.Count > 1 Then Exit Sub

in modo che se stai gestendo contemporaneamente più di una cella con Incolla, Cancella, ecc. verrà interrotta la macro. Chiaramente non verranno attivati gli altri controlli previsti dalla macro con tale manovra. Questi avranno effetto solo quando gestisci una sola cella alla volta.

---

trittico69, 12/18/2017 8:16 AM:

---

rollis questo è il codice completo
dove va inserita la riga che mi hai suggerito?
e poi mi spighi cosa intendi per "Chiaramente non verranno attivati gli altri controlli previsti dalla macro con tale manovra. Questi avranno effetto solo quando gestisci una sola cella alla volta."

Private Sub Worksheet_Calculate()
Call minuti
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) 'questo codice ti segnala con un messaggio se per sbaglio scrivi riposo nella colonna "I" con il codice 2-3-4
Dim R As Long
R = Target.Row
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [I14:I60]) Is Nothing Then
If Target = 2 Or Target = 3 Or Target = 4 Then
MsgBox "qui va messo solo codice presenza"
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
End If
End If



' questo codice ti da un messaggio di errore se per sbaglio metti riposo lo stesso giorno che hai lavorato
If Intersect(Target, Uni0n(Range("C14:C60"), Range("J14:J60"))) Is Nothing Then Exit Sub
Select Case Target.Column
Case 3
If Target.Offset(0, 7) <> "" Then 'controlla la cella in colonna J

MsgBox "Non puoi scrivere in questa cella se colonna J non è vuota"
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
Exit Sub
End If
Case 10
If Target.Offset(0, -7) <> "" Then 'controlla la cella in colonna C

MsgBox "Non puoi scrivere in questa cella se colonna C non è vuota"
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
Exit Sub
End If
End Select

End Sub

---