ciao nirvana,
sfruttando una macro di Anthony che eseguiva uno zoom sulle celle di un determinato range ho sviluppato questa.
È ancora bruttissima (non l'ho ripulita bene rispetto a quella originale) ma funziona:
la inserisci con clic destro sull'etichetta della pagina e visualizza codice.
- Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CheckArea = "B5:C10" '<<< l' area che sara' modificata
If Application.Intersect(Target, Range(CheckArea)) Is Nothing Or Target.Count > 1 Then
ActiveWindow.Zoom = 100
Else
ActiveWindow.Zoom = 100
If ActiveCell.FormulaR1C1 = "" Then
ActiveCell.FormulaR1C1 = "x"
Else
ActiveCell.FormulaR1C1 = ""
End If
End If
End Sub
Dovrai modificare tu il range desiderato.
Poi Anthony forse ci fornirà una bella versione pulita!
P.S. una volta fatta una modifica sulla cella non succede niente cliccando ancora, devi selezionarne un'altra e poi ritornare sulla prima. (anche questo forse si può migliorare)