waarde exact gelijk met VBA verticaalzoeken

[HWV]

Beste,

Ik een verticaal zoeken in VBA werkt goed enkel zit ik nog met het volgende waar ik niet in uit kom en zal best iets kleins zijn.
Wat ik wil is dat als in Overzicht_artikelnummer een nummer gezet wordt dat deze exact overeenkomt in mijn artikel lijst in de sheet artikelen, en anders dat hij niks laat zien of een melding dat er geen match gevonden is

Is dit mogelijk

Bedankt

HWV

Private Sub Overzicht_artikelnummer_Change()

    Image1.Picture = LoadPicture("")
    
    On Error Resume Next
    Dim oRng As Range
    Set oRng = Sheets("Artikelen").Cells.Find(What:=Overzicht_artikelnummer.Value, [COLOR="red"]LookAt:=xlWhole[/COLOR])
        If oRng <> "" Then

            Overzicht_omschrijving.Value = oRng.Offset(0, 1).Value
            Overzicht_lengte.Value = oRng.Offset(0, 2).Value
            Overzicht_breedte.Value = oRng.Offset(0, 3).Value
            Overzicht_hoogte.Value = oRng.Offset(0, 4).Value
            Overzicht_kleur.Value = oRng.Offset(0, 5).Value
            Overzicht_kwaliteit.Value = oRng.Offset(0, 6).Value
            Overzicht_gewicht.Value = oRng.Offset(0, 7).Value
            Overzicht_eenheid.Value = oRng.Offset(0, 8).Value
            Overzicht_bijschrift.Value = oRng.Offset(0, 9).Value
            FotoNummer.Value = oRng.Offset(0, 12).Value
            Recyteken.Value = oRng.Offset(0, 13).Value
  On Error Resume Next
  
            Image1.Picture = LoadPicture("C:\Afbeeldingen\" & FotoNummer.Value & ".jpg")
            Image2.Picture = LoadPicture("C:\Afbeeldingen\" & Recyteken.Value & ".jpg")
        Else
            Overzicht_omschrijving.Value = ""
            Overzicht_lengte.Value = ""
            Overzicht_breedte.Value = ""
            Overzicht_hoogte.Value = ""
            Overzicht_kleur.Value = ""
            Overzicht_kwaliteit.Value = ""
            Overzicht_gewicht.Value = ""
            Overzicht_eenheid.Value = ""
            Overzicht_bijschrift.Value = ""
            FotoNummer.Value = ""
            Recyteken.Value = ""

        End If

End Sub

 

[Ad Becude]

Kun je niet valideren op je artikel lijst, zo voorkom je altijd input fouten.

 

[Haaren101]

Er zijn lengte, breedte en hoogtes. Als dit real getallen zijn, dus met getallen achter de komma, dan is vergelijken op exact hetzelfde lastig. Er hoeft maar 10 cijfers achter de komma iets anders te staan en je gaat de mist in.

Ron

 

[HWV]

Beste,


Bedankt voor de input.
Het wordt in combinatie gebruikt met een listbox, de uitkomst van de listbox komt in het veld Overzicht_artikelnummer terecht. Als men het artikelnummer weten kunnen ze het gelijk intypen. Wat er dan gebeurd is dat als er geen match is dat er dan iets anders komt te staan.
bv

1234 zijn helpmij bestanden

Als ik nu in type 12345 dan zal hij ook de uitkomst laten zien van 1234 helpmij bestanden

is dit anders te doen ?

Groet HWV

 

[oeldere]

dan zoek je waarschijnlijk niet op een exacte match.

zie bijlage. 12345 wordt niet gevonden

de gebruikte formule is;

=VERT.ZOEKEN(A7;$D$8:$E$11;2;[COLOR="darkred"][B]0[/B][/COLOR])

de rode o geeft de exacte match aan.

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

 

[HWV]

OK bedankt, ik ga het even op deze manier zoeken

Grot HWV