gefilterde gegevens

[Kristinho1978]

Vraagje - ik heb een excelbestand met een filter op basis van het land (kolom AM). Zie voorbeeldbijlage "Book1".

Nu wil ik graag met een macro het blad zodanig overschrijven, dat alle regels die weggefilterd zijn, ook definitief verdwijnen. En dat dus alleen nog hetgeen gefilterd is, overblijft. Zie voorbeeldbijlage "Book2".

Bekijk bijlage Book1.xlsxBekijk bijlage Book2.xlsx

Hoe kan ik dat met een macro voor elkaar krijgen?

 

[pasan]

Onder een ActiveX besturingselement (knop)

Private Sub CommandButton1_Click()
p = Cells(5, 1).CurrentRegion
 For i = UBound(p) To 1 Step -1
  If Cells(i + 5, 1).EntireRow.Hidden = True Then Rows(i + 5).Delete Shift:=xlUp
 Next
End Sub

 

[snb]

Dan kun je beter filteren wat je wil verwijderen

Sub M_snb()
   with sheets(1).cells(1).currentregion
      .autofilter 39, "<>Duitsland"
      .entirerow.delete
      .autofilter
   end with
End Sub

Alleen de Duitsland regels blijven over.

Maar kijk ook eens naar 'advancedfilter'.

 

[Kristinho1978]

Werkt uitstekend pasan, heel goed. Mooi.

Probleem is echter dat het regel voor regel gebeurt en dat is niet erg als het 100 regels zijn, maar wel als het er 100.000 zijn

Is er ook een snelle variant? Waarbij je de gefilterde gegevens kopieert (bijvoorbeeld op het klembord plaatst), vervolgens de hele sheet leegmaakt en het daarna inplakt?
Of nog sneller, waarbij je de gefilterde gegevens over de data heen plakt en de rest verwijdert?

 

[Kristinho1978]

Bij jou gaan de records niet echt weg snb, toch?

Het idee is dat alle gefilterde records echt uit de file verdwijnen. Het doel is om de file kleiner te maken.

 

[MDN111]

Een mogelijke "snelle variant" is misschien de gefilterde lijst kopiëren naar een andere sheet, vervolgens de originele sheet verwijderen en de nieuwe sheet de naam geven van de originele sheet, zoals in de bijlage.

Grtz,
MDN111.

 

[Kristinho1978]

Klopt, iets soortgellijks heb ik uiteindelijk gedaan
Thanks!

 

[snb]

Bij jou gaan de records niet echt weg snb, toch?

Het idee is dat alle gefilterde records echt uit de file verdwijnen. Het doel is om de file kleiner te maken.

Heb je mijn code wel getest ?
Wat zou 'delete' in de code betekenen ?