Thread: Ticker Boxes
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc
Jim May Jim May is offline
external usenet poster
 
Posts: 477
Default Ticker Boxes

Back up your File Before trying this..

I can only think you are asking about the use of a spinner control.
And it can't do what you want -- as you already determined, but
here's another *alternative* go at it:

Let's say your NumberOfPays #'s are in Column M

Paste into a standard module the two below macros:

Sub IncreaseValueByOne()
If Not Intersect(ActiveCell, Columns("M:M")) Is Nothing Then
ActiveCell.Value = ActiveCell.Value + 1
End If
End Sub

Sub DecreaseValueByOne()
If Not Intersect(ActiveCell, Columns("M:M")) Is Nothing Then
ActiveCell.Value = ActiveCell.Value - 1
End If
End Sub

Add a Command-Button - with Caption "Increase" and assign it to Macro
IncreaseValueByOne()

Add a Command-Button - with Caption "Decrease" and assign it to Macro
DecreaseValueByOne()

Hummmm,


Use Forms
"hustla7" wrote:


Basically, i want to be able to put the cell values up and down as
normal using the tickers...the problem i am encountering is that if i
was to add tickerboxes to all of the cells individually, i would need
to individually link each ticker box to the cell it is controlling...is
there any way of automatically linking cells to the cell they are
in...maybe using autofill?


--
hustla7
------------------------------------------------------------------------
hustla7's Profile: http://www.excelforum.com/member.php...o&userid=37760
View this thread: http://www.excelforum.com/showthread...hreadid=573411