bereik van filter dynamisch maken

Status
Niet open voor verdere reacties.
Code: 
Sub M_snb()
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False

  With Cells(1).CurrentRegion
    .Sort Cells(1, 4), , , , , , , 1
    .AutoFilter 4, 1
    .Offset(1).Rows.Delete
    .AutoFilter
  End With
End Sub
 
Excel verwijdert een aaneengesloten blok sneller.
Rows is een eigenschap van een aaneengesloten blok.
 
Laatst bewerkt:
Hsv, Dat is 'm die ik zocht. Weet dat ik al vele codes van jou heb opgeslagen.
Ben er weer blij mee, en ook Kaasplankje bedankt voor het meedenken.
Ga 'm afmelden.
 
Mooi zo,

Nog een variant.
Code: 
Sub hsv_4()
  With Cells(1).CurrentRegion
    .Sort Cells(1, 4), , , , , , , 1
    x = Application.Match(1, Columns(4), 0)
    y = Application.Match(1, Columns(4), 1)
    If IsNumeric(x) Then Rows(x & ":" & y).Delete
 End With
End Sub

Trouwens; hsv() over 10000 rijen 0.125 seconden hier op de teller.
 
Laatst bewerkt:
Gecombineerd met sorteren:

Code: 
Sub M_snb()
  Columns(4).Replace 1, "", 1
  Columns(4).SpecialCells(4).EntireRow.Delete
End Sub
 
snb . Dit is voor mij ook een hele mooie die ik niet kan schrijven maar wel snap, en ook kan gebruiken voor andere zaken, dus deze gaat ook opgeslagen worden.
Jij ook bedankt hiervoor.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan