Foto in userform weergeven dmv hyperlink in cel

[safe]

Hallo,

Ik ben momenteel bezig met het digitaliseren van ons personeelsbestand.
Ik heb in Excel alle n.a.w. gegevens van alle personeelsleden staan.
De planner gebruikt deze lijst en maakt planningen dmv een userform.
Als hij in Userform in de Combobox een naam aanklikt , komen de gegevens van de betreffende personeelslid daaronder te staan in de tekstvakken. (dmv Vlookup)

Ik wil graag ook een pasfoto van de betreffende in de Userform hebben staan. Ik heb alle pasfoto's als jpg in een map staan en heb achter de namen in het Excelwerblad een hyperlink staan naar deze foto.

Kan deze foto ook via deze hyperlink worden weergegeven in een Userform. ( dmv Vlookup o.i.d ?)

Gezien de inhoud van het bestand kan ik deze helaas niet als voorbeeld hier plaatsen.
I.p. daarvan hierbij 2 screenshots.

( In het grotere vak rechts bovenaan wil ik graag een pasfoto zichtbaar hebben )



Alvast bedankt !!

M.vr.gr.

Safe

 

[spaarie]

Ik ben zelf geen fan van VLookup. Dit is een andere mogelijkheid;

Private Sub Keus1_Change()
    With Sheets("Pers.lijst")
        rij = .Columns(1).SpecialCells(2).Offset(7).SpecialCells(2).Find(Keus1).Row
        pasfoto = .Cells(rij, [U]99999[/U]) 'kolomnummer met locatie pasfoto)
        textbox2 = .Cells(rij, 2)
        textbox1 = .Cells(rij, 4)
        textbox9 = .Cells(rij, 3)
        textbox6 = .Cells(rij, 8)
        textbox7 = .Cells(rij, 10)
        textbox8 = .Cells(rij, 11)
        textbox11 = .Cells(rij, 5)
        textbox10 = .Cells(rij, 20)
        textbox12 = .Cells(rij, 26)
        
        Image1.Picture = LoadPicture(pasfoto)
    End With
End Sub

 

[safe]

Beste Spaarle,

Bedankt voor je antwoord.
Ik heb je script toegevoegd, maar ik krijg helaas een foutmelding. (zie foto)



Enig idee waaraan dat kan liggen?
(Ik maak gebruik van Office 2010)

M.vr.gr.
Safe

 

[spaarie]

En zo?

rij = .Range("A8:A" & .Range("A" & Rows.Count).End(xlUp).Row).Find(keus1).Row

 

[safe]

Helaas dezelfde foutmelding..

 

[spaarie]

Wat heb je onder Userform_Initialize() staan?

 

[safe]

Dat heb ik überhaupt niet erin staan...

 

[spaarie]

Hoe vul je je combobox (keus1) dan? Met een vast bereik?
Kopieer en plak onderstaande

Private Sub Keus1_Change()
    With Sheets("Pers.lijst")
        rij = .Columns(1).SpecialCells(2).Offset(7).SpecialCells(2).Find(Keus1).Row
        pasfoto = .Cells(rij, 25)
        textbox2 = .Cells(rij, 2)
        textbox1 = .Cells(rij, 4)
        textbox9 = .Cells(rij, 3)
        textbox6 = .Cells(rij, 8)
        textbox7 = .Cells(rij, 10)
        textbox8 = .Cells(rij, 11)
        textbox11 = .Cells(rij, 5)
        textbox10 = .Cells(rij, 20)
        textbox12 = .Cells(rij, 26)
        
        Image1.Picture = LoadPicture(pasfoto)
    End With
End Sub
Private Sub Userform_Initialize()
    b = Sheets("Pers.lijst").Columns(1).SpecialCells(2).Offset(7).SpecialCells(2)
    With CreateObject("Scripting.Dictionary")
        For Each v In b
            If v <> "" And Not .Exists(v) Then .Add v, Nothing
        Next
        Keus1.List = .Keys
    End With
End Sub

Nu worden alle unieke namen in kolom A in de combobox geladen...

Anders moet je toch even een kopie van je bestand maken en ontdoen van gevoelige info. Anders kan dit nog een hele tijd duren...

 

[safe]

Klopt. Gebruik ik werkblad " Pers.lijst " voor.
In kollom A staan de achternamen, kollom B de tussenvoegsels en kollom C de voornamen.
Dit ik aangepast in " CollumnCount " bij de eigenschappen van ComboBox " Keus1 " ( zie foto )


Bij het invoegen van je nieuwe script krijg ik inmiddels een nieuwe foutmelding. ( zie foto )


( Ik zal ff kijken of ik een neutrale kopie van het bestand kan toevoegen...)

 

[spaarie]

Heb je toevallig 'Option Explicit' bovenaan staan? Haal deze dan weg...

 

[safe]

Om het inderdaad wat makkelijker te maken, hierbij het bestand..
Ik heb diverse ( voor deze functies onbelangrijk ) elementen eruit gehaald.

Op " Blad 1 " zie je " knop 1 " bovenaan. Deze is voor de betreffende Userform. ( Userform 5)

 

[spaarie]

Gaat ook niet lukken als je de Rowsource laat staan

 

[safe]

Ik heb je voorbeeld gebruikt, maar ik krijg nog steeds een foutmelding..
Kan dat anders aan mn versie Office liggen o.i.d? ( Zie foto )


Want als ik deze code toepas in mn volledige personeelsbestand dan krijg ik het volgende : ( Zie foto )

 

[safe]

Inmiddels heb ik het probleem gevonden en opgelost.

Blijkt dat de hyperlink die excel aanmaakt voor de foto's niet wordt herkent.
De hyperlink begint met pasfoto's\naam
Het moet beginnen met c:\mapnaam\pasfoto's\naam

Nu wordt dit herkent en krijg ik netjes een foto in het betreffende vakje.

( Update )
Gek genoeg werkt dat niet bij iedere naam die ik selecteer..
Bij de 1e naam van de pers.lijst kan ik de reeds toegevoegde foto zien,
maar vanaf de 2e t/m de 7e personeelslid op de lijst krijg ik een foutmelding als ik al hun naam selecteer. ( zie foto )

Vanaf de 8e tot de laatste +/- 150e kan ik wel hun namen selecteren zonder dat ik een foutmelding krijg.
Ik heb alle cellen gecontroleerd op evt bijzonderheden van elkaar, maar kan er niet uit komen...

Enig idee??

M.vr.gr.
Safe

 

[safe]

Wederom weer opgelost..
Ik heb de andere script gebruikt welke eerder werd geadviseerd..

rij = .Range("A8:A" & .Range("A" & Rows.Count).End(xlUp).Row).Find(keus1).Row

Nu heb ik dat probleem niet meer..

Alle credits gaan naar Spaarie !!:thumb:

Enorm bedankt !!

M.vr.gr.
Safe