Thread: Special spinner
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Peter T Peter T is offline
external usenet poster
 
Posts: 5,600
Default 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