Specifiek nummer zoeken via textbox

[Bakkerken]

Collega Excel fanaten,

overal gezocht maar geen antwoord gevonden voor mijn probleem.

Ik had via een textbox in userform graag een nummer in een kolom gezocht.
Indien het nummer 2x in de lijst voorkomt dient hij het onderste nummer te selecteren.
In bijlage een voorbeeldje, code in orginele file nog stuk langer maar die werkt perfect, enkel op dit loop ik vast.

Als ik zoek op 6 selecteert hij bv 46, als ik 26 zoek neemt hij 126.
Hij dient dus de exacte waarde uit de textbox te selecteren, en hierbij ook het onderste in de rij.

Hopelijk (ongetwijfeld) kan iemand hierbij helpen.

Dankjewel.

 

[Timshel]

...Set A = Sheets("blad1").Range("B4", Range("B" & Rows.Count).End(xlUp)).Find(str[COLOR="#FF0000"], lookat:=xlWhole[/COLOR])...

 

[Bakkerken]

Wat kan het toch simpel zijn blijkbaar. Heel veel dank hiervoor

Om toch ook wat bij te leren:
Wat doet dit exact dan? lookat:=xlWhole)

specifieke waarde zoeken of gewoon van onderaan beginnen zoeken?
Kwestie van ook wat bij te leren.

 

[Timshel]

Die switch doet precies wat jij vroeg: een exacte match zoeken in plaats van een deel. De standaardwaarde is LookAt:=xlPart.

 

[edmoor]

En zo om de eventueel aanwezige 2e te vinden:

Private Sub CommandButton1_Click()
    Dim A As Range
    Dim O As Range
    Dim str As String
    
    str = Me.nummer.Value
    
    With Sheets("blad1").Range("B4", Range("B" & Rows.Count).End(xlUp))
        Set A = .Find(str, , , xlWhole)
        If A Is Nothing Then
            MsgBox ("nummer werd niet gevonden")
        Else
            Set O = A
            Set A = .FindNext(A)
            If A.Address <> O.Address Then
                A.Select
            End If
        End If
    End With
End Sub

 

[Bakkerken]

Super. Dank voor de uitleg.

Ik heb als test mijn selectie ook nog even wat uitgebreid maar dan doet hij het niet meer zoals verwacht?

 

[JEC.]

Maar selecteert nog niet de laatst gevonden waarde als er dubbele waarden zijn.


Edit: Zo wel

Set A = Sheets("blad1").Range("B4", Range("B" & Rows.Count).End(xlUp)).Find(str, Lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)

 

[edmoor]

Zie #5
Als echter die gevraagde 6 meer dan 2x voorkomt zal mijn voorbeeld de 2e selecteren.
In je laatste document komt die 6 vaker voor en zal je moeten loopen in de FindNext sectie.
En waarom zoek je pas vanaf regel 4?

 

[JEC.]

Als je de code aanpast naar mijn voorstel pakt hij wel altijd de laatste

 

[edmoor]

Yep, goeie
Niet aan gedacht.
Maar zo kan TS zogezegd, beide kanten op

 

[JEC.]

Inderdaad, gaat helemaal goed komen:thumb:

 

[snb]

Sub M_snb()
  Application.Goto Columns(2).Find(6, , , 1, , 2),1
End Sub