Un saluto a tutti.
Come spesso capita arrivo tardi, tant'è, ecco la mia diversa versione di macro:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Uni0n(Range("C14:C60"), Range("J14:J60"))) Is Nothing Then Exit Sub
Select Case Target.Column
Case 3
If WorksheetFunction.CountA(Range("J14:J60")) > 0 Then
MsgBox "Non puoi scrivere in questa cella se colonna J non è vuota"
Exit Sub
End If
Case 10
If WorksheetFunction.CountA(Range("C14:C60")) > 0 Then
MsgBox "Non puoi scrivere in questa cella se colonna C non è vuota"
Exit Sub
End If
End Select
End Sub
Per la precisione Uni0n si scrive Union (con la "o" e non con lo "zero")
[Modificato da rollis13 05/11/2017 23:20]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)