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...)
-
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
- Onderwerp starter kippiebla
- Startdatum
- Status
SjonR
Verenigingslid
- Lid geworden
- 10 nov 2016
- Berichten
- 3.317
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
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.919
- Office versie
- Bèta Insider Office 365
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
