Comments on: Userforms: SpinButton Control

By: chaz

chaz — Fri, 25 Aug 2006 01:40:00 +0000

I’d love to understand what you were doing in that code..

By: mur

mur — Fri, 28 Apr 2006 02:18:00 +0000

David, you will have to use the value of the spinbutton to point to the correct worksheet to copy from. Something like this...

Private Sub SpinButton1_SpinDown()
Worksheets("Round " & Cstr(spinbutton1.value)).Range("A1:G19?).Copy
ActiveSheet.Paste Destination:=Worksheets("Fixture").Range("A2:G19?)
End Sub

You'll need to set the spinbutton value and limit it's range from 1 to 20 for that to work too... Set the min property to 1, and the max property to 20 to achieve this.

hth
mur

By: David kamean

David kamean — Mon, 10 Apr 2006 06:47:00 +0000

I am trying to us a spin button to navagate through 20 worksheets and display them one at a time on the first Worksheet named fixture and each worksheet is named "Round n".
I have been using this code

Private Sub SpinButton1_SpinDown()
Worksheets("Round 1?).Range("A1:G19?).Copy
ActiveSheet.Paste Destination:=Worksheets("Fixture").Range("A2:G19?)
End Sub

Private Sub SpinButton1_SpinUp()
Worksheets("Round 20?).Range("A1:G19?).Copy
ActiveSheet.Paste Destination:=Worksheets("Fixture").Range("A2:G19?)
End Sub

I cannot see in any of excel help files how to use next position or increment position like in C#.

I hope you can help
David

By: bartek

bartek — Sun, 16 Jan 2005 15:38:00 +0000

Well I’m looking for a code that links a spinbutton with frame or dsomething like that If you can help me I’m looking forward to it. Thanks any way.