Filter og sortering

Beskrivelse

Filtrering og sortering af data i tabeller

Filtrering

Det filter der sidder på en tabel er et almindeligt autofilter, så det håndteres som vi "plejer".

Sæt et filter

Sub SetFilter()     [Oprettet_Tabel].AutoFilter Field:=2, Criteria1:=">150", _          Operator:=xlAnd, Criteria2:="<200" End Sub

Og fjern det igen

Sub SetFilter()     [Oprettet_Tabel].AutoFilter Field:=2 End Sub

Gennemløb af filtrerede data

Tja... igen benytter vi at det er et almindeligt autofilter

For Each c In [Oprettet_Tabel[B]].SpecialCells(xlCellTypeVisible)     Debug.Print c Next

Sortering

Ja, det kan så se sådan her ud:

Sub Sortering()     With [Oprettet_Tabel].ListObject.Sort          With .SortFields             .Clear             .Add [Oprettet_Tabel[B]], SortOn:=xlSortOnValues, _                     Order:=xlAscending         End With         .Header = xlYes         .Orientation = xlSortColumns         .Apply     End With End Sub

Forrige Gennemløb af data

Næste Formler

Brug for hjælp til VBA, VSTO eller SQL?

Scient Data tilbyder professionel IT-konsulentbistand

Kontakt Scient Data →