(auto)filter van bestand kopiëren

[StephaanK]

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

 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

 

[remcosteege]

Hiermee verwijder je de dubbelen. je moet wel een nieuw blad toevoegen, naam: blad1

Sub Macro1()

    Sheets("blad1").Columns("A:A").Value = Sheets("Sheet2").Columns("H:H").Value

    Sheets("blad1").Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes

End Sub

 

[StephaanK]

het kan soms heel eenvoudig zijn, maar je moet er aan denken
bedankt voor de oplossing
S