in het bestand in bijlage zou ik van de kolom H waarin datums staan de lijst van de unieke datums moeten kunnen kopiëren naar andere kolom
ik dacht dat via de filteroptie te doen, aangezien je dan al de lijst hebt, maar ik slaag er niet in om de lijst te kopiëren naar de kolom. Ik zou met de huidige gegevens de 12 maanden van 2014 willen zien van cel Q2
het originele bestand bevat meer jaren en maanden en deze kunnen variëren in aantallen
STephaan
ik dacht dat via de filteroptie te doen, aangezien je dan al de lijst hebt, maar ik slaag er niet in om de lijst te kopiëren naar de kolom. Ik zou met de huidige gegevens de 12 maanden van 2014 willen zien van cel Q2
Code:
With Sheets("Sheet2")
lastrow = .Cells(Rows.Count, "H").End(xlUp).Row
.AutoFilterMode = False
.Range("H1:H" & lastrow).AutoFilter , field:=8, Criteria1:="*"
.Range("H1:H" & lastrow).SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet2").Range("q2")
End With
het originele bestand bevat meer jaren en maanden en deze kunnen variëren in aantallen
STephaan