Meerdere zoekresultaten weergeven met een zoekcriteria

[WouterBijl]

Ik zelf ben niet een expert met het gebruik van Excel, hoewel ik nu toch enkele simpele dingen toch heb weten te coderen in VBA. Het geen waar ik nu echter op vastloop is dat ik nu in het bijgevoegde bestand op "Blad 1" een overzicht wil creëren van alle ritten die gereden zijn voor een specifieke klant. De bedoeling is dus dat de klant de zoekcriteria wordt, en dat er dus meerdere zoekresultaten uitkomen die allemaal bij die klant horen. Ik heb dit geprobeerd door middel van de functie verticaal zoeken zoals te zien is op het werkblad, maar deze functie stopt helaas bij het eerste zoekresultaat dat hij tegen komt. Daarnaast wilde ik ook kunnen zoeken op laad en los locatie. Dit is echter nog een stap voor later.

Ik hoop dat er hier iemand een idee heeft om dit op te lossen. Het mag zowel in een formule als in VBA code's.

Met vriendelijke groet,

Wouter Bijl

 

[Mde]

Waarom doe je dit niet met een filter over je tabel of dmv een slicer?

 

[spaarie]

Hier lukt het wel mee. Het kan mooier met name het copy-paste gedeelte, maar daar heb ik nu geen tijd voor

Verwijder de meuk die hebt staan en paste dit.

Private Sub ComboBox1_Click()
    Range("A9:I" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
    With Sheets("Rittendatabase")
        .ListObjects("Tabel2").Range.AutoFilter 2, ComboBox1.Value
        .Range("B6:I" & .Range("A" & .Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
        Range("A9").PasteSpecial
    End With
    Application.Goto Cells(9, 1)
End Sub
Private Sub ComboBox1_DropButtonClick()
    r = Sheets("Rittendatabase").Range("B6:B100")
    With CreateObject("Scripting.Dictionary")
        For Each v In r
            If v <> "" And Not .Exists(v) Then .Add v, Nothing
        Next
    ComboBox1.List = .Keys
End With
End Sub

 

[WouterBijl]

Spaarie,

Hartstikke bedankt, het werkt exact zoals ik wil. Alleen de tabel in het tabblad "Rittendatabase" verspringt. Dit is echter geen groot probleem maar is dit op een manier te verhelpen?

Met vriendelijke groet,

Wouter Bijl

 

[spaarie]

Vermoedelijk bedoel je met verspringen is dat de autofilter niet van het blad afgaat. Hiermee opgelost

Private Sub ComboBox1_Click()
    Range("A9:I" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
    With Sheets("Rittendatabase")
        .ListObjects("Tabel2").Range.AutoFilter 2, ComboBox1.Value
        .Range("B6:I" & .Range("A" & .Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy
        Range("A9").PasteSpecial
        [COLOR="#FF0000"][B].ListObjects("Tabel2").Range.AutoFilter[/B][/COLOR]
    End With
    Application.Goto Cells(9, 1)
End Sub

 

[WouterBijl]

Ik ben hier helemaal mee geholpen. Heel erg bedank!!

 

[HSV]

De copy veranderd en het maakt niet uit waar de tabel zich bevindt in het blad.

Private Sub ComboBox1_Click()
  ListObjects("tabel3").DataBodyRange.ClearContents
    With Sheets("Rittendatabase").ListObjects("Tabel2").Range
        .AutoFilter 2, ComboBox1.Value
        .Offset(1, 1).Copy ListObjects("tabel3").DataBodyRange.Cells(1, 1)
        .AutoFilter
    End With
End Sub