Allora ho trovato sul forum questo codice funzionante che fa al caso mio, purtroppo funziona solo con una cella singola (A1) e non con celle unite (A1:B2).
C'è qualche rimedio? Un grazie anticipato.
- Codice: Seleziona tutto
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
CheckArea = "M2:N76"
If Not Application.Intersect(ActiveCell, Range(CheckArea)) Is Nothing Then
If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
Application.EnableEvents = False
If Selection.Value = "x" Then
Selection.ClearContents
ActiveCell.Offset(0, 1).Select
Else
Selection.Value = "x"
ActiveCell.Offset(0, 1).Select
End If
End If
Application.EnableEvents = True
End Sub