Hoi,
ik heb de code reeds gehad en werkt perfect alleen krijg ik het bij een andere excel lijst niet voor elkaar om een foto op te roepen
alleen als ik deze code aanpas moet de code die ik heb gehad krijg ik een t_range error
is er mss wel een manier om deze code te laten werken ?
Alvast weer bedankt
Private Sub zoeknaam_Change()
Dim MyRange As Variant
Dim c As Range
Dim i As Long
Set MyRange = Worksheets("gegevens")
Application.ScreenUpdating = False
'zoeknaam is naam van combobox waar je de naam van de medewerkers selecteert
'hierin selecteer je de naam van de medewerker, vb: Klaassen, Jan
If zoeknaam = Empty Then
MsgBox "Kies item en druk op de zoek knop!!!"
Exit Sub
Else
'InStr geeft het locatienummer van waar de komma staat in de string zoeknaam
i = InStr(zoeknaam, ", ")
'Left geeft vanaf links aantal karakters weer in de string zoeknaam.
'we doen dit mbv de locatie van de komma
'bv jan, klaassen dan is Instr = 4 (, staat op de 4e plek), left is dan Instr - 1 want de komma willen we niet. Left = Instr - 1 (Jan, - , wordt Jan)
stZoekenLinks = Trim(Left(zoeknaam, i - 1))
'Hier zoeken we in de string zoeknaam naar het midden gedeelte.
'We zoeken het gedeelte tussen de komma en de spatie
stKolomf = Mid(zoeknaam, i + 2, InStr(i + 2, zoeknaam, " ") - (i + 2)) 'Achternaam
'Hier zoeken we gegevens rechts van de spatie.
'met de functie Trim halen we de komma's links en recht (als deze aanwezig zijn) weg
stZoekenRechts = Right(zoeknaam, Len(zoeknaam) - InStr(i + 2, zoeknaam, " "))
For Each c In MyRange.Range("F3:F5000")
If c = stZoekenLinks And c.Offset(0, 1).Value = stKolomf And c.Offset(0, 2).Value = stZoekenRechts Then
KolomB.Text = MyRange.Range("B" & c.Row)
KolomC.Text = MyRange.Range("C" & c.Row)
KolomD.Text = MyRange.Range("D" & c.Row)
KolomE.Text = MyRange.Range("E" & c.Row)
KolomF.Text = MyRange.Range("F" & c.Row)
KolomG.Text = MyRange.Range("G" & c.Row)
KolomH.Text = MyRange.Range("H" & c.Row)
KolomI.Text = MyRange.Range("I" & c.Row)
KolomJ.Text = MyRange.Range("J" & c.Row)
KolomK.Text = MyRange.Range("K" & c.Row)
KolomL.Text = MyRange.Range("L" & c.Row)
KolomM.Text = MyRange.Range("M" & c.Row)
KolomN.Text = MyRange.Range("N" & c.Row)
KolomO.Text = MyRange.Range("O" & c.Row)
KolomP.Text = MyRange.Range("P" & c.Row)
KolomQ.Text = MyRange.Range("Q" & c.Row)
KolomR.Text = MyRange.Range("R" & c.Row)
KolomS.Text = MyRange.Range("S" & c.Row)
KolomT.Text = MyRange.Range("T" & c.Row)
KolomU.Text = MyRange.Range("U" & c.Row)
KolomV.Text = MyRange.Range("V" & c.Row)
KolomW.Text = MyRange.Range("W" & c.Row)
KolomX.Text = MyRange.Range("X" & c.Row)
KolomY.Text = MyRange.Range("Y" & c.Row)
KolomZ.Text = MyRange.Range("Z" & c.Row)
KolomAA.Text = MyRange.Range("AA" & c.Row)
KolomAB.Text = MyRange.Range("AB" & c.Row)
'jpg
.Image2.Picture = LoadPicture("C:\test\" & t_range(29) & ".jpg")
End If
Next
End If
End Sub