Spinbutton en Textboxen

[Excelvbas01]

Beste forumleden,
In het bestand worden gegevens via tekstbox opgezocht.
Ik wil via scrollbar danwel spinbutton gegeven kunnen scrollen.

Vb: Nummer 1001 heeft meer gegevens dan de beschikbare tekxtboxen. Ik wil alle gegevens die gekoppeld zijn aan in dit geval nummer 1001 kunnen zien, via spinbutton/scrollbar. Ik kan dit oplossen door meerdere teksbpxen op te nemen in Userform maar ik wil dit bepreken tot vijf tekstboxen.

Uiteraard heb ik op internet gezocht maar kan op dit moment niets vinden war er op lijkt.

Hopelijk heeft iemand hier een idee.

 

[emields]

Waarom doe je het niet zo?

 

[Warme bakkertje]

Kijk eens of je hier iets mee kan. De Spinbutton verschijnt enkel als er méér dan 5 resultaten gevonden worden.
Wil je echter gebruik maken van de Listbox zoals emields heeft voorgesteld gebruik dan volgende code om te filteren. Deze heeft minder interactie met het werkblad.

Private Sub t_zoek_Change()
    If IsNumeric(t_zoek) Then sVal = 1 * t_zoek.Value Else sVal = Chr(34) & t_zoek.Value & Chr(34)
    With Sheets("Blad1")
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row
        With .Range("A1:A" & lRow)
            Data = Filter(.Parent.Evaluate("transpose(if(" & _
                .Address & "=" & sVal & ",row(1:" & .Rows.Count & ")))"), False, 0)
            If UBound(Data) = -1 Then ListBox1.Clear: Exit Sub
            arr = Application.Index(.Resize(, 6).Value, Application.Transpose(Data), [{5,6}])
            If UBound(Data) = 0 Then ListBox1.Column = arr Else ListBox1.List = arr
        End With
    End With
End Sub

 

[snb]

Of zo: met een combobox en 1 listbox

 

[Warme bakkertje]

Unieke elementen in Combobox.

CB_01.List = Application.Unique(Application.Index(sn, 0, 1))