Robbertdekeijzer
Gebruiker
- Lid geworden
- 28 mrt 2017
- Berichten
- 13
Goedemorgen,
Afgelopen week heb ik voor een excelbestand een stukje code gebruikt waardoor nu rijen(gegevens) over de verschillende tabbladen wordt verdeeld.
Het is nu alleen zo dat we gaan overstappen op google spreadsheets en nu werkt mijn stukje code niet meer. Weet iemand wat ik moet aanpassen?
Afgelopen week heb ik voor een excelbestand een stukje code gebruikt waardoor nu rijen(gegevens) over de verschillende tabbladen wordt verdeeld.
Het is nu alleen zo dat we gaan overstappen op google spreadsheets en nu werkt mijn stukje code niet meer. Weet iemand wat ik moet aanpassen?
Code:
Sub verwerken()
'
' Robbert Macro
'
' Sneltoets: Ctrl+r
With Sheets("Nieuwe gegevens").Cells(1).CurrentRegion
For j = 2016 To 2024
.AutoFilter 4, "*" & j
.Offset(1).Copy Sheets(CStr(j)).Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next j
.AutoFilter 4, "="
.Offset(1).Copy Sheets("Datum onbekend").Cells(Rows.Count, 1).End(xlUp).Offset(1)
.AutoFilter
.Offset(1).ClearContents
End With
Sheets("Nieuwe gegevens").Select
Range("A2").Select
End Sub