Enkel bepaalde tijden filteren.

[davylenders123]

Heb datasheet waar in kolom a datum en tijd staat vermeld . dd.mm.jjjj uu:mm
De tijden kunnen alle minuten bevatten
Bv
17.10.2022 12:03
17.10.2022 12:05
17.10.2022 12:06
17.10.2022 12:08
17.10.2022 12:10
17.10.2022 12:15
17.10.2022 12:16
17.10.2022 12:20
...
Ik moet enkel de rijen met de tijden hebben om de 5 min .
17.10.2022 12:05
17.10.2022 12:10
17.10.2022 12:15
17.10.2022 12:20
...
Hoe kan ik dat het beste verwezenlijken?

Doe het nu door de rijen van andere tijden te verwijderen maar gaat soms over 50 tot 100 lijnen die ik moet wissen.
Wil een makkelijkere manier hiervoor.
Bestaat deze ?

 

[AHulpje]

Hiermee zou het moeten lukken:

Sub OmDeVijfMinuten()
    For r = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
        If Minute(Cells(r, 1)) Mod 5 <> 0 Then
            Rows(r).Delete
        End If
    Next
End Sub

En als je het zonder macro wilt doen zet dan deze formule in een vrije kolom en trek hem door naar beneden:

=ALS(REST(MINUUT(A1);5)<>0;"MAG WEG";"")

Vervolgens een filter op die kolom met "MAG WEG" en dan de gefilterde rijen allemaal tegelijk verwijderen.

 

[JEC.]

Met AdvancedFilter kan het ook

Sub jec()
 Dim x
 With Cells(1).CurrentRegion
    Set x = .Offset(, .Columns.Count + 1).Resize(2, 1)
    x(2).Formula = "=mod(minute(A2),5)<>0"
    .AdvancedFilter 1, x
    .Offset(1).EntireRow.Delete
    .Parent.ShowAllData
    x.ClearContents
 End With
End Sub

 

[AlexCEL]

Of met Power Query als je toch nog meer gegevensbewerking moet toepassen.

 

[davylenders123]

Alle bedankt voor jullie super snelle oplossingen weer. :thumb:
Heb het opgelost met de macro.
Heb ze beide geprobeerd en beide gaven ze hetzelfde resultaat.

Bedankt :thumb: