About Us

TroyW[_2_]

Thanks for the reply. Cheers.

Troy

"Marlon" wrote in message
...
Hi Troy,

many thanks. Your explanation helps a lot to understand
the whole story. It works properly for me now.

Best regards,
Marlon

-----Original Message-----
Marlon,

The difficulty you are observing is due to the
SpinButton control taking
focus from the worksheet (you'll notice black rectangles
appear around the
SpinButton arrows). The key step is forcing focus back
onto the worksheet to
make the cursor reappear.

FYI, the CommandButton control has a property
named "TakeFocusOnClick" which
can be set to False to deal with this type of problem.
Unfortunately, the
SpinButton control doesn't have this property, so you
have to kludge it with
the ActiveCell.Activate command in the GotFocus event of
the SpinButton.

Troy

Private Sub SpinButton1_GotFocus()
'Remove the focus from the SpinButton.
ActiveCell.Activate
End Sub

Private Sub SpinButton1_SpinDown()
If ActiveCell.Row < ActiveSheet.Rows.Count Then
ActiveCell.Offset(1, 0).Activate
End If
End Sub

Private Sub SpinButton1_SpinUp()
If ActiveCell.Row 1 Then
ActiveCell.Offset(-1, 0).Activate
End If
End Sub

"Marlon" wrote in
message
...
Hi Toppers,

the event "GotFocus" makes nearly what I want:

Private Sub SpinButton1_GotFocus()
With SpinButton1
.Min = 1
.Max = 10
Cells(.Value, 1).Select
End With
End Sub

But if I press the Down-Button the Cursors goes upwards
and if I press the Up-Button the Cursor goes down.
Strange. - Any idea why?

Best regards,
Marlon

.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Spinbutton	pcor	New Users to Excel	2	November 6th 07 03:16 PM
Spinbutton	Ben B	Excel Discussion (Misc queries)	3	March 9th 06 11:38 AM
Change row selection	Farrel	Excel Worksheet Functions	7	July 13th 05 06:58 PM
spinbutton?	CG Rosén	Excel Programming	1	November 29th 04 11:16 PM
Using Spinbutton to change a date	Gheezer	Excel Programming	3	January 31st 04 10:03 AM

Menu

About Us