Ordernummers zoeken via macro

[leend009]

Wil in blad1 via een invoerveld ordernummers zoeken in het werkblad ordernr via een macro.
De gegevens behorende bij dit ordernummer worden dan in blad 1 gezet vanaf rij 10.
De macro heb ik gekoppeld aan een knop.

Als ik nu een ander ordernr invoer dan zoekt de macro steeds hetzelfde ordernr.

Hoe kan ik zorgen dat de macro steeds het nieuw ingevoerde ordernr zoekt?
Zie bijgevoegd excelbestand.

Alvast bedankt voor uw reactie

Met vriendelijke groet
Jan Leendesr

 

[Mde]

In de macro heb je een vaste waarde staan, daarom krijg je steeds dezelfde uitkomst.
Zorg dat de waarde voor het filteren kijkt naar B3

 

[VenA]

Ik zou het zo doen

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "B3" Then Sheets("Ordernr").ListObjects(1).Range.AdvancedFilter xlFilterCopy, Range("B2:B3"), Range("A8:J8")
End Sub

 

[edmoor]

Of dit:

Sub orders_zoeken()
    With Sheets("Ordernr")
        Set c = .Range("A3:A" & .Range("A3").End(xlDown).Row).Find(Range("B3"))
        If Not c Is Nothing Then
            Range("A10").Resize(, 10).Value = .Cells(3, 1).Resize(, 10).Value
            Range("A11").Resize(, 10).Value = .Cells(c.Row, 1).Resize(, 10).Value
        End If
    End With
End Sub

 

[snb]

Kijk eens bij advancedfilter.

 

[VenA]

Lijkt net of dat toegepast is in #3

 

[leend009]

Dit is de oplossing die ik zoek. Dank voor de snelle reactie.