spinbutton ile textbox'a veri aktarma

[YAKAKENTİM]

merhaba ....
yine biryerlerde takıldım.Sorun sayfa1'deki a1 den ıv1 'e yani son sütuna kadar olan verileri sipinbutton'u kullanarak ileri ve geri gelmek tabi bu esnada üzerinde olduğu hücrenin verilerini texboxt'a yazması .......

yardımlar için şimdiden teşekkürler zira çözüm gelince sevinçten teşekkür etmeyi unutuyorum :dua:

 

[Haluk]

Dim No As Integer
'
Private Sub SpinButton1_Change()
    No = Cells(1, 255).End(xlToLeft).Column
    SpinButton1.Max = No
    TextBox1 = Cells(1, SpinButton1.Value)
End Sub
'
Private Sub UserForm_Initialize()
    SpinButton1.Min = 1
    SpinButton1.Value = 1
End Sub

 

[YAKAKENTİM]

ÇOK TEÞEKKÜR EDERÝM

Yazdığınız kodlar çok iyi iş görüyor ama yanına birkaç kot eklemek istedim beceremedim. Bakıp hatamın nerde olduğunu söylerseniz kendim düzeltmek isterim ilginiz için sağolun...