Excel Forum

Code: Select all

Private Sub CommandButton2_Click()
    Dim Mem_ID As String
    Dim lastrow, i As Integer
    Dim imgPth As String

    imgPth = "C:\Images\"
    Mem_ID = TextBox1.Text
    
    With Me.Image1
        If Dir(imgPth & Mem_ID & ".jpg") <> "" Then
            .Picture = LoadPicture(Filename:=imgPth & Mem_ID & ".jpg")
            .PictureAlignment = fmPictureAlignmentCenter
            .PictureSizeMode = fmPictureSizeModeStretch
        End If
    End With
    lastrow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To lastrow
    
        If Worksheets("Sheet1").Cells(i, 1).Value = Mem_ID Then
        
          T1.Text = Worksheets("Sheet1").Cells(i, 2).Value
          T2.Text = Worksheets("Sheet1").Cells(i, 3).Value
          T3.Text = Worksheets("Sheet1").Cells(i, 4).Value
          T4.Text = Worksheets("Sheet1").Cells(i, 5).Value
          T5.Text = Worksheets("Sheet1").Cells(i, 6).Value
          T6.Text = Worksheets("Sheet1").Cells(i, 7).Value
          T7.Text = Worksheets("Sheet1").Cells(i, 8).Value
        
        End If
    Next

End Sub