Не работает кнопка "листания" SPINBUTTON в форме

[serafim09]

Добрый день!

Хочу сделать форму, в которой была бы возможность прокрутки или пролистывания значений кнопкой spinbutton. И чтобы эти значения в реальном времени менялись на textbox-e.

Помогите ) уже голову сломал как это реализовать

Свой файл с формой прикладываю.

[IgorGO]

я бы вот так поправил:

Private Sub Spin_комп_SpinDown()
    If ActiveCell.Column > 2 Then Cells(ActiveCell.Row, ActiveCell.Column - 1).Select: ColumnsChanged
End Sub
Private Sub Spin_комп_SpinUp()
    If ActiveCell.Column < 10 Then Cells(ActiveCell.Row, ActiveCell.Column + 1).Select: ColumnsChanged
End Sub

[Dophin]

не совсем я понял Ваши манипуляции, но вроде так

[serafim09]

Сообщение от Dophin

не совсем я понял Ваши манипуляции, но вроде так

То что нужно! как оказалось, все элементарно просто

Спасибо огромное!

[serafim09]

Сообщение от IgorGO

я бы вот так поправил:

Private Sub Spin_комп_SpinDown()
    If ActiveCell.Column > 2 Then Cells(ActiveCell.Row, ActiveCell.Column - 1).Select: ColumnsChanged
End Sub
Private Sub Spin_комп_SpinUp()
    If ActiveCell.Column < 10 Then Cells(ActiveCell.Row, ActiveCell.Column + 1).Select: ColumnsChanged
End Sub

Спасибо! Ваш код работает в форме! Вы профи!

[IgorGO]

спасибо, конечно, но Dophin изящнее написал.