SpinButton Change Selection
Marlon,
The following works .. with B1 as Cell Link.
Sub Spinner1_change()
Cells(Range("b1"), 1).Select
Cells(Range("b1"), 1) = Range("b1")
End Sub
"Marlon" wrote:
Hi,
I would like to create a SpinButton with which I change
from one cell to the next one (up and down).
I tried this:
Private Sub SpinButton1_Change()
With SpinButton1
.Min = 1
.Max = 10
Cells(.Value, 1).Select
Cells(.Value, 1) = .Value
End With
End Sub
The problem is that the "Cells(.Value, 1).Select" doesn't
work properly. But the values in the cells are like
expected "Cells(.Value, 1) = .Value". If you use the code
above you can see what I mean.
Many thanks for help.
Best regards,
Marlon
|