Çözüldü Buton ile sütunda aşağı ve yukarı gitme ve textboxda gösterme

[sirkülasyon]

Userform üzerinde
2 adet Commandbutton
1 adet Textbox

Anasayfa A2:A153 arasında veri mevcuttur.

Commandbutton1 ile aşağı
Commandbutton2 ile yukarı hareket edecek.
Her geldiği hücredeki verinin adını Textbox1 e yazacak.
Rica etsem bu konu için koda ihtiyacım var, yardımcı olabilir misiniz?

 

[Sinan73]

Dosya ektedir.

 

[sirkülasyon]

Sinan bey
Rica etsem kodu paylaşabilir misin? Dosyayı indiremiyorum.

 

[Sinan73]

1-Excel dosyasını açtığınız anda userformun açılması için aşağıdaki kodu bir modüle ekleyin:

Sub Auto_open()
UserForm1.Show
End Sub

2-Yukarı butonu için:

Private Sub CommandButton1_Click()
SeciliHucre = Rows(ActiveCell.Row).Address(0, 0)
SeciliHucreninSatirNosu = Left(SeciliHucre, InStr(SeciliHucre, ":") - 1)
If SeciliHucreninSatirNosu = 1 Then
Range("A1").Select
TextBox1.Text = ActiveCell.Cells.Text
ElseIf SeciliHucreninSatirNosu > 1 Then
Range("A" & SeciliHucreninSatirNosu - 1).Select
TextBox1.Text = ActiveCell.Cells.Text
Else
MsgBox ("Bilinmeyen Hata")
End If
End Sub

3-Aşağı butonu için:

Private Sub CommandButton2_Click()
SeciliHucre = Rows(ActiveCell.Row).Address(0, 0)
SeciliHucreninSatirNosu = Left(SeciliHucre, InStr(SeciliHucre, ":") - 1)
Range("A" & SeciliHucreninSatirNosu + 1).Select
TextBox1.Text = ActiveCell.Cells.Text
End Sub

 

[sirkülasyon]

Allah canını sağ etsin.
Teşekkür eder, saygılarımı sunarım.
Hakkını helal kardeşine

 

[Sinan73]

Rica ederim