Excel Forum

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