zoeken vanag dialoog en resultaat tonen in dezelfde dialoog

[GuntherVD]

Hallo,
Ik heb een file met 2 excell sheets. 1e is een lijst met prestaties de 2e is een lijst met personeelsleden. de personeelslijst heeft 2 colommen, 1 het personeelsnummer en 2 de naam. op de prestatielijst is een dialoog gemaakt waarin 2 textvelden. 1 personeelsnummer 2 aantal uren. ik wil op basis van het personeelsnummer zoeken in lijst 2 en de naam naast de gevonden cel weergeven in mijn dialoog.

Ik zit hier al een tijdje mee vast, kan iemand dit even bekijken?
mijn voorbeeld zit erbij.
mvg gunther

Oplossing is hier te vinden!
http://www.helpmij.nl/forum/showthr...lfde-dialoog?p=4086805&viewfull=1#post4086805

 

[oeldere]

waarschijnlijk bedoel je deze formule (zie bijlage).

=VERT.ZOEKEN(C2;Personeel!$A$2:$D$4;2;0)

Tip: plaats een bestand als .xls dan kunnen meer forumleden je helpen.

zie ook de groene cel voor het afvangen van een foutcode.

heb je hier vragen over, laat het gewoon even weten.

 

[GuntherVD]

Dat ziet er al goed uit maar hoe doe ik dat dan in VBA? want ik wil de namen ook in mijn dialoog weergeven.

 

[oeldere]

waar staat bij jou een dialoog?

als je de pijltjestoets bedoelt, kan dit waarschijnlijk wel met (gegevens)validatie worden opgelost.

maar dan zoek je op naam en wil je daar dan het personeelsnummer bij hebben?

 

[GuntherVD]

De dialoog komt tevoorschijn als je op prestaties klikt.

 

[oeldere]

Ok, dat is duidelijk, maar daar kan ik je niet mee helpen.

toch nog even de validatie erin geplaatst.

 

[GuntherVD]

Niemand?

 

[Warme bakkertje]

En waar wil je dan de naam weergeven ?
Ik zie enkel 3 labels op je formulier.

 

[GuntherVD]

de naam moet op de middelste label komen en ook op het werkblad gekopieerd worden.

 

[Warme bakkertje]

Zet onderstaande achter je Userform

Private Sub txt_personeelsnummer_AfterUpdate()
    lbl_naam.Caption = Sheets("Personeel").Columns(1).Find(txt_personeelsnummer, , xlValues, xlWhole).Offset(, 1).Value
End Sub

Private Sub txt_uren_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    lbl_persnr.Caption = txt_personeelsnummer.Text
    lbl_uren.Caption = txt_uren.Text
    With Sheets("Prestaties")
        lRow = .Range("C65536").End(xlUp).Offset(1).Row
        .Cells(lRow, 3) = lbl_persnr.Caption
        .Cells(lRow, 4) = lbl_naam.Caption
    End With
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is MSForms.TextBox Then
            ctrl = vbNullString
        End If
    Next
    lbl_persnr.Caption = ""
    lbl_uren.Caption = ""
End Sub

 

[GuntherVD]

Bedankt Warme bakkertje, werkt perfect.

Ik kan weer verder nu, vermoedelijk tot later

 

[GuntherVD]

Toruwens...
is AFTERUPDATE beter om te gebruiken dan EXIT?

 

[oeldere]

Beste Gunther,

als je door wilt met dezelfde vraag, kun je beter de status van "opgelost" halen.

waarschijnlijk krijg je dan meer reacties.

 

[GuntherVD]

Mja deze bijkomende vraag is niet belangrijk, het initieel probleem is opgelost.
Toch bedankt voor de tip.

 

[oeldere]

Gunther,

waarschijnlijk stel je de vraag dan, als het toch niet belangrijk is?

Tip: open je vraag gewoon opnieuw.

als er dan toch geen reacties komen, kun je de vraag nog altijd sluiten.