Special spinner
Perhaps something like this (only lightly tested) -
Named ranges
myList: the full DV list in a column, eg =$A$1:$A$22
myList8: =OFFSET(myList,$E$1-1,0,8,1)
ActiveX Spinner from the Controlbox menu, properties
Min: 1
Max: start with (list-count +1 -8)
LinkedCell: E1 (used in the offset formula above)
Private Sub SpinButton1_GotFocus()
Dim nMax As Long
nMax = Range("myList").Rows.Count - 8
If nMax < 1 Then nMax = 1
SpinButton1.Max = nMax
End Sub
Use 'myList8' for the custom DV list
The 8 could be a cell ref
Could also use a Forms spinner, though more work to update its max value if
myList-rows count changes.
Regards,
Peter T
"RD Wirr" wrote in message
...
I have an application that has a validation drop down list that references
a
long list of dates to lookup data associated with the dates. This works
fine
but since the list is long, it is cumbersome to advance incrementally with
the dropdown list so I would like to have a spinner that can advance the
value in my validation cell incrementally. I still want to keep the drop
down
list for deep lookups but then be able to increment the value in that same
cell with the spinner. Anyone have a solution for this?
Thanks,
RDW
|