• 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.

Vraag over sorteren datums in macro

Status
Niet open voor verdere reacties.

kippiebla

Gebruiker
Lid geworden
13 aug 2016
Berichten
287
In het voorbeeldbestand wordt met de macro "ja" rijen gekopieerd vanuit werkblad "Bron" naar werkblad "Kopie". Alle rijen worden gekopieerd behalve waar in kolom C "fout" of "niet goed" staat. Dat werkt goed. behalve dat de volgorde van de datum genoemd in kolom B omgekeerd worden. In werkblad "Bron" staan in kolom B het nog oplopende datums en in werkblad "Kopie" zijn het aflopende datums. Kan iemand helpen hoe ik dat moet omkeren (of liever gezegd behouden...)
 

Bijlagen

de loop van boven naar beneden draaien?

Code:
Sub ja()
[COLOR="#FF0000"]  For i = 5 To Cells(Rows.Count, 3).End(xlUp).Row[/COLOR]
        If Cells(i, 3) = "Ja goed" Or Cells(i, 3) = "Ja" Or Cells(i, 3) = "Ja ok" Then
            Range("A" & i & ":C" & i).Copy Sheets("Kopie").Cells(Rows.Count, 1).End(xlUp).Offset(1)
            'Cells(i, 3).EntireRow.Delete '(eventueel de gekopieerde rijen verwijderen)
        End If
    Next
End Sub
 
Een autofilter erop.

Code:
Sub hsv()
With Sheets("bron").Cells(5, 1).CurrentRegion.Offset(1)
 .AutoFilter 3, "ja*"
 .Copy Sheets("kopie").Cells(Rows.Count, 1).End(xlUp).Offset(1)
 .AutoFilter
End With
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan