ExcelTonnie
Gebruiker
- Lid geworden
- 5 jul 2016
- Berichten
- 308
snb
krijg een foutmelding!
krijg een foutmelding!
Code:
Private Sub C_00_Change()
If C_00.ListIndex > -1 Then
c00 = ":\HelpMij\Pictures\"
If C_00.Column(1) = "Ja" Then
For j = 1 To Len(C_00.Tag)
MsgBox Dir(Mid(C_00, Tag, j, 1) & c00 & C_00 & "*.jpg")
c01 = Dir(Mid(C_00.Tag, j, 1) & c00 & C_00 & "*.jpg")
If c01 <> "" Then Exit For
Next
If c01 <> "" Then Image1.Picture = LoadPicture(Mid(C_00.Tag, j, 1) & c00 & c01)
End If
End If
End Sub