VBA แสดงชื่อเวลาเลือกหาข้อมูล Next และ Prev

[jaruek]

ต้องการให้ แสดงชื่อ เวลากดปุ่ม Next และ Prev ในช่อง TxtFirstName.txt ครับ ตอนนี้เวลากดปุ่ม Next และ Prev แล้วไม่แสดงชื่อในช่อง TxtFirstName.txt แต่ Run Vba Code แล้วก็ไม่ Error ครับ

NextPrev.xlsm

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Dim i As Long

Private Sub cmbNext_Click()
    i = i + 1
    fPath = ThisWorkbook.Path & "\"
    Range("F3").Select
    ActiveCell.End(xlDown).Select
    Lastrow = ActiveCell.Row
    currentrow = Range("f2").Row + i
    
    If currentrow = Lastrow + 1 Then
        currentrow = Lastrow
        MsgBox "ลำดับสุดท้ายแล้วครับ...! / You have reached the last row!"
    End If
    
    With Cells(currentrow, 1)
        TxtFirstName.Text = Cells(currentrow, 6).Value
        Set NameFound = .Find(TxtFirstName.Text)
        With NameFound
            On Error Resume Next
            ImgData.Picture = LoadPicture(fPath & "nopic.jpg")
            ImgData.Picture = LoadPicture(fPath & TxtFirstName.Text & ".jpg")
        End With
    End With
    TxtFirstName.Text = Cells(currentrow, 6).Value
 End Sub