กดปุ่มถัดไป โดยเรียงลำดับ VBA

[choinat]

พอดีทำปุ่มถัดไปแล้วไม่สามารถกดได้

โดยตอนนี้ Userform ของผม มีการเลือกข้อมูล 4 ขั้น 1 2 3 4
โดยมีปุ่ม Next เพื่อกดข้อมูลถัดไป อยากจะให้มัน Next แล้วไล่ข้อมูลของ 4 ให้ หมด แล้วก็ไปข้อมูลของ3 ต่อไปซึ่งใน 3ก็มี 4 อยู่( 4เป็นชื่อคน)
ไล่ไปเรื่อยๆจนหมดแล้วกดถัดไปเมื่อสุดข้อมูล3แล้วจะไปขึ้น2 อันถัดไป แล้วมาไล่3 เหมือนเดิม
แบบนี้มันทำได้ไหมครับ

Code: Select all

Private Sub NextAGENT01_Click()
Dim lastrow, nextRow As Integer

lastrow = Sheets("AGENT01").Range("A" & Rows.Count).End(xlUp).Row

For N = 2 To lastrow
    If Sheets("AGENT01").Cells(N, "A").Value = (Me.NameAgent01) Then
   
        nextRow = N + 1
    End If

Next N
Sheets("AGENT01").Select
Cells(nextRow, 1).Activate


NameAgent01.Value = Cells(nextRow, 1)

End Sub

[snasui]

กรุณาแนบไฟล์ที่ลองเองมาแล้วด้วยจะได้สะดวกในการตอบของเพื่อนสมาชิกครับ