Conditional Spin Button

I currently have a spin button that is used to increase/decrease a number in one cell. I also have 10 other cells that also have numbers in them. Basically this form is used to see how many tasks I complete every hour.

The problem is that I have to manually change the linked cell every hour to the next cell otherwise it will stay on the one cell. I already have a way to evaluate which cell the button should be addressing based on the hour, but I do not know how to make the spinner link conditionally.

Can this be done?

Hello liero116,

Welcome to the Forum!

If you post your workbook for review, I will be able to answer your questions quickly and correctly. Otherwise, it could take a lot of questions and answers before it gets solved.

Hello liero116,

I replaced the Forms spin button with an Control Toolbox spin button.The Forms spin button updated the cell before the macro could determine which cell was to be updated. Now the current value of the cell is checked before anything is added or subtracted from it.

Private Sub SpinButton1_SpinDown()

  Dim Cell As Range
  Dim H As Integer
  Dim Wks As Worksheet
  
    Set Wks = Worksheets("Sheet1")
    
    H = Hour(Now())
    Set Cell = Wks.Cells(H - 6, "B")
    
    If H >= 8 And H <= 18 Then
       If Cell.Value - 1 > -1 Then Cell.Value = Cell.Value - 1
    End If

End Sub

Private Sub SpinButton1_SpinUp()

  Dim Cell As Range
  Dim H As Integer
  Dim Wks As Worksheet
  
    Set Wks = Worksheets("Sheet1")
    
    H = Hour(Now())
    Set Cell = Wks.Cells(H - 6, "B")
    
    If H >= 8 And H <= 18 Then Cell.Value = Cell.Value + 1
    
End Sub