tạo phím Next,Back (1 người xem)

[minhbinhdinh]

chào diễn đàn,chúc mừng năm mới.
tôi muốn tạo 2 nút bấm Next,Back trong Form lấy data cho 3 cell kế tiếp :
vd active cell đang ở A1 thì có 3 textbox thể hiện 3 nội dung của cell A1,B1,C1.
khi tôi click Next thì thể hiện nội dung của 3 cell A2, B2,C2 và cứ tiếp tục khi muốn dừng hoặc ngược lại cho Back.
Tôi bó tay .Mong diễn đàn giúp cho.Cảm ơn diễn đàn......mời Rượu Bầu Đá..Hi

 

[minhbinhdinh]

Xin chào mọi người, mình mới up file lên .Nhờ mọi người xem giúp cho.Cảm ơn mọi người nhiều.

 

[doveandrose]

Private indez As LongPtr
Private Sub cmdlui_Click()
    indez = WorksheetFunction.Max(2, indez - 1)
    txtstt.Value = Sheet1.Range("A" & indez).Value
    txtten.Value = Sheet1.Range("B" & indez).Value
    txtnamsinh.Value = Sheet1.Range("C" & indez).Value
    
    
End Sub

Private Sub cmdtoi_Click()
    indez = WorksheetFunction.Min(Sheet1.Range("a1").End(xlDown).Row, indez + 1)
    txtstt.Value = Sheet1.Range("A" & indez).Value
    txtten.Value = Sheet1.Range("B" & indez).Value
    txtnamsinh.Value = Sheet1.Range("C" & indez).Value
End Sub