Opgelost Foutmelding.....

[Mansv1966]

Hallo,

In het bijgaande sheet zit een fout en ik kom er maar niet achter wat er niet goed gaat .
Misschien dat een van jullie er naar wil kijken wat hier mis gaat.

Het gaat om het volgende:
al je op menu klikt en vervolgens kiest voor invoer opent zich een formulier
Als je een Volgnummer selecteert bv de 1e (getal) worden de gegevens van dit persoon er bij gezocht.
echter als je op het 2e volgnummer (getal en letters) geeft hij een foutmelding.

Graag zou ik de invoer willen gebruiken met dezelfde opmaak als het 2e volgnummer.

Bij voor baat dank
MansV1966

PS. Mijn VBA is misschien niet overzichtelijk voor de Die hards voor jullie maar ik red me er zo prima me.

 

[emields]

als je hem doet zoeken wat er niet is geeft hij inderdaad een foutmelding.
Vul eens een paar rijen met fictieve gegevens en plaats dan het bestand terug.

 

[AHulpje]

Je probeert een tekst die geen Long is om te zetten naar een Long:

i = Application.Match(VBA.CLng(Me.ComboBox2.Value), sh.Range("a:a"), 0)

Dat gaat natuurlijk niet lukken.
Maak daar eens

i = Application.Match(Me.ComboBox2.Value, sh.Range("a:a"), 0)

van, dat werkt een stuk beter.

Maar beter nog:

    Dim rng As Range
    Set rng = Range("tbl_invoer[ID]").Find(Me.ComboBox2.Value)
    If Not rng Is Nothing Then
        i = rng.Row

 

[edmoor]

Of:

i = sh.Range("A:A").Find(ComboBox2.Value, , , xlWhole).Row

 

[HSV]

Indien je de combobox vult met alle gegevens (hele bereik) hoef je niet te zoeken.

 

[Mansv1966]

Dank voor de aangeboden oplossingen,
Hier kan ik verder mee