spin button help

[yves_sater]

i would like to do smthg like this:

Option Explicit

Private Sub ListBox1_Change()
Dim I As Integer
For I = 1 To 4
Me.Controls("TextBox" & I).Value = Range("A" & ListBox1.ListIndex + 2).Offset(, I)
Next I
End Sub

Private Sub SpinButton1_Change()
If ListBox1.ListIndex <> ListBox1.ListCount - 1 Then
ListBox1.ListIndex = SpinButton1.Value
Else
ListBox1.ListIndex = 0
SpinButton1.Value = 0
End If
End Sub
Private Sub UserForm_Initialize()
Dim LastRow As Long
LastRow = Range("A" & Rows.Count).End(xlUp).Row

ListBox1.RowSource = "A2:A" & LastRow

SpinButton1.Min = 0
SpinButton1.Max = LastRow

End Sub

by using only one spin button i can scroll down and up all vlaues of the textboxes and comboboxes that i have in my userform....can anyone help me plz

 

[yves_sater]

Mr. bobsan u are a genius...u made my day !!!!!!!! thank you very much !!! cheers !!!!!!!!!

I dont know how to ask u this ...i think i askd u too much till now , but if u dont mind if i have anythin else .,,..can i refer to u for an assistance???

Again thank you very much

 

[bobsan42]

no problems with helping as long as i'm not too busy with something else

i'm usually on the forum during working days and time (GMT +2)
so if not too much urgent work - i'm around.
i'm glad i could help.
cheers.