Excel macro Userform spin button to loop months

[antaeusguy]

I'm trying to write a code for a spin button on my user form which I can to loop the months from January to December. When it reaches December and I click the Down/Next/Right button, it should go to January (as in a loop).

As the spin button has a min and max value, I put min as 1 (to signify January) and max as 12 (to signify December). I couldn't think of a way to loop back from December to January and vice versa..

Appreciate if someone could help me with this. Thank you!

 

[MickG]

Try this for TextBox Value

Dim c As Integer
Private Sub SpinButton1_SpinDown()
c = c + 1
 c = IIf(c = 13, 1, c)
  c = IIf(c = 0, 12, c)
   TextBox1.text = MonthName(Abs(c))
End Sub
Private Sub SpinButton1_SpinUp()
c = c - 1
 c = IIf(c = 0, 12, c)
  c = IIf(c = 13, 1, c)
   TextBox1.text = MonthName(Abs(c))
End Sub

 

[antaeusguy]

Cool Thanks for the help! It works now