Tasto dx sul tab col nome del foglio su cui lavori, scegli Visualizza codice; incolla questo codice nel frame di dx:
- Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
SpinnArea = "N3:W3"
If Application.Intersect(Target, Range(SpinnArea)) Is Nothing Then Exit Sub
Application.EnableEvents = False
ActiveSheet.Shapes.Range(Array("Spinner 1")).Select
With Selection
ctarget = Target.Value
.Min = 0
.Max = 90
.SmallChange = 1
.LinkedCell = Target.Address
.Value = ctarget
.Display3DShading = True
End With
Target.Select
Application.EnableEvents = True
End Sub
In questo modo quando selezioni una cella dell' intervallo N3:W3, la cella diventa legata alla casella di selezione, potendola manipolare con le freccine su/giu'. Nessuna modifica viene fatta quando si selezionano altre parti del foglio.
Il file andra' salvato in formato ".xlsm"
Ciao