• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

filteren van tabel

Status
Niet open voor verdere reacties.
R

ronnie123

Gebruiker
Lid geworden
21 nov 2007
Berichten
595
beste mensen
ik kom nog even jullie hulp vragen
ik wil graag in het tabblad wedstrijden de naam van een speler in het gele vak invoeren
en dat zijn wedstrijden gefilterd wordt ik kom niet verder dan dat ik alleen zijn naam en uitslagen zie en niet van de tegenstander
groetjes ronnie
 

Bijlagen

  • bijarten (2).xlsm
    166 KB · Weergaven: 27
Ik zie geen geel vlak en ook geen Tabel op tabblad wedstrijden.
En waar is de code die je nu gebruikt?
 
hallo Albert
bedankt voor je reactie
gele vlak had ik in B12 zie hem ook niet en heb geen code ( had een paar van internet geprobeerd ) deed het met sorteren en filteren
groetjes ronnie
 
Laatst bewerkt:
Ben nu thuis en zag dat ik het verkeerde bestand had toegevoegd
hier de nieuwe
 

Bijlagen

  • bijarten met tabel.xlsm
    167,9 KB · Weergaven: 24
Probeer eerst eens alle code uit jouw andere vraag te begrijpen en toe te passen voordat je vervolgvragen gaat stellen.
 
Het is natuurlijk wel de bedoeling dat je wat met de aangereikte suggesties doet. Om een heel programma voor je te maken lijkt mij niet het doel van deze site. En zoals eerder geschreven bestaan er al voldoende voorbeelden zonder dat je het wiel opnieuw hoeft uit te vinden.;)
 
Eigenlijk moet ik @VenA gelijk geven.
Dus meer omdat ik zelf er achter wou komen hoe dit op te lossen.( waarschijnlijk kan het beter)
Met een hulpkolom in de tabel, die wel op een of andere manier steeds gevuld moet zijn met de wedstrijdnummers.
 

Bijlagen

  • Kopie van bijarten met tabel.xlsm
    182,2 KB · Weergaven: 18
Albert bedankt hiervoor
maar hoe krijg je de tegenstander erbij
welke regel bepaald dat
groetjes ronnie
 
Wijzig het rode gedeelte in commandbutton1 in userform1
Code: 
Private Sub CommandButton1_Click()
Dim myArray() As String
Dim i As Long



x = ActiveSheet.ListObjects("Tabel1").ListRows.Count [COLOR="#FF0000"]+ 14[/COLOR]

i = 0

For j = 2 To x
    If LCase(Cells(j, 2)) = LCase(TextBox1) Then
        ReDim Preserve myArray(i)
            myArray(i) = Cells(j, [COLOR="#FF0000"]13[/COLOR]).Value
            
            i = i + 1
    End If
Next j
    
    
    With ActiveSheet.ListObjects("Tabel1")
     .AutoFilter.ShowAllData
     .Range.AutoFilter Field:=13, Criteria1:=myArray, Operator:=xlFilterValues
    End With
   
    
End Sub

Nog niet helemaal gecontroleerd, maar denk toch dat de fout hier zat.:d
 
Aangaande jouw vraag in #10:
Probeer de code maar eens te begrijpen.
Verdiep je eerst eens in wat een array is. (legio voorbeelden te vinden op WWW.)
Daarna zoek je eens op filteren met als criteria een array.

Succes:thumb:
 
Kan ook zonder hulpkolom., zelf maar even goed testen.

Er staan trouwens nog een aantal topics open, als er geen vragen meer zijn is het netjes om deze als opgelost te zetten.
 

Bijlagen

  • biljarten met tabel(1).xlsm
    182,4 KB · Weergaven: 17
Misschien eerst de hele tabel voorzien van consistente formules? Vanuit opmaak denken is vaak niet de beste werkwijze.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan