XLOOKUP vanuit userform

[erpee]

In een userform staat een textbox waar een code word ingevoerd.
Na het klikken moet in een sheet (ProductData) via XLOOKUP het bijbehorende product worden gezocht.
Het resultaat moet doorgevoerd worden naar een textbox op het volgende Userform. (Repro_Input.txtProd.Value)

Ben flink aan het zoeken geweest en kwam op deze code, maar die geeft: "Fout 1004: eigenschap XLookup van klasse Worksheetfunction kan niet worden opgehaald." als reactie

Repro_Input.txtProd.Value = Application.WorksheetFunction.XLookup(txtScan.Value, Sheets("ProductData").Range("A2:A100"), Sheets("ProductData").Range("B2:B100"))

Waar ga ik fout?

 

[edmoor]

Fout 1 is dat je geen voorbeeld documentje hebt geplaatst.
Daarnaast zou ik in VBA niet de worksheetfunction gebruiken maar Range.Find:
https://docs.microsoft.com/en-us/office/vba/api/excel.range.find

 

[erpee]

Fout 1 kan ik makkelijk herstellen

Zie bijlage

 

[edmoor]

Helpers vinden het niet handig om een voorbeeld te krijgen waar van alles wordt verborgen en om wachtwoorden wordt gevraagd.
Maarprobeer het eens zo:

 

[erpee]

Werkt mooi, Superbedankt

Helpers vinden het niet handig om een voorbeeld te krijgen waar van alles wordt verborgen en om wachtwoorden wordt gevraagd.

En bedankt voor de feedback, zal ik in t vervolg uitschakelen.

 

[erpee]

Nog een vraag die opkomt

Wat nu als er een code wordt gescand/ingevoerd waar geen product aan gekoppeld is. Waar kan ik dan de foutafhandeling middels een msgbox neerzetten?

    If txtScan.Value = "" Then Exit Sub
    Set c = Sheets("ProductData").Range("A:A").Find(txtScan.Value)
    If Not c Is Nothing Then
        Repro_Input.txtProd.Value = c.Offset(, 1)
        Repro_Input.cmdStartScan.Visible = False
    End If
    txtScan.Value = ""
    Unload Me

 

[edmoor]

Download dat document nog eens, dan staat het er in.

 

[erpee]

Helemaal mooi, dank je!