Snasui Excel Forum

Code: Select all

Private Sub lstBox_Click()
myPicture = "\\Server\Test_pic_car\" & lstBox & ".jpg"
With Sheets("Sheet1")
    lstBox.RowSource = .Range(.Range("A2"), .Range("A65536").End(xlUp))
End With
imgBox.Picture = LoadPicture(myPicture)
End Sub

Code: Select all

Sub Show002()
Dim i As Integer
For i = 2 To Sheets("Sheet1").Range("A65536").End(xlUp).Row
    frmData02.lstBox.AddItem Sheets("Sheet1").Cells(i, 1)
Next
frmData02.Show
End Sub

Code: Select all

Sub Show002()
Dim i As Integer
frmData02.lstBox.RowSource = ""
For i = 2 To Sheets("Sheet1").Range("A65536").End(xlUp).Row
    frmData02.lstBox.AddItem Sheets("Sheet1").Cells(i, 1)
Next
frmData02.Show
End Sub