I have a worksheet that will be used for manual data entry with tablet PCs. However, my users are complaining about the buttons being "too small." Since they are only tallying order quantities, what I really need is a single button that increments the cell by +1. While this can be done easily enough, it requires code to be written for each button. I need to be able to make hundreds of buttons very quickly and assign each of them to their own cell. Here is what I have written that inserts the spinners. I need a better solution though. Help.
Sub SpinnerBuilder()
'
' SpinnerBuilder Macro
' Macro recorded 8/16/2005 by Nathan
'
With ActiveCell.Select
Col = ActiveCell.Address
Xloc = ActiveCell.Top
Yloc = ActiveCell.Left
CelHeight = ActiveCell.Height
End With
'
ActiveSheet.Spinners.Add(Yloc, Xloc, 9, CelHeight).Select
With Selection
.Min = 0
.Max = 30000
.SmallChange = 1
.LinkedCell = Col
.Display3DShading = True
.PrintObject = False
End With
With ActiveCell.Select
Selection.ClearContents
End With
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub
Bookmarks