La macro a la funzione di selezionare un range N3:W3 e mi inserisce dei numeri min 0 max 90 e funziona perfettamente, vorrei modificare esclusivamante il punteggio con numeri decimali min 0.00 max 20.5 con un incremento di 0.01. non sono capace nel modificare tale macro o ricrearne un altra, vi invio il codice macro più il file come esempio.
MACRO DI Anthony47
- Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
SpinnArea = ("P6:U6")
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
File Esempio
http://www.filedropper.com/inserimentonumeri