Lave unik liste med tal

Jeg har en makro jeg kan sende dig, hvis du vil ?

Makroen Indsætter et filter, søger i kolonne D, og kopierer resultatet til nyt ark, ikke så meget hokus pokus.

Hej.

Jeg vil meget gerne se en makro, hvis det kan lade sig gøre. :-)

Så har jeg brug for en mailadresse.

Min mailadr er kim snabela familienriis.dk

Du kan evt. også indsætte koden direkte her på siden :-)

Har sendt en fil til dig med følgende makro:

Sub Makro2()
    '** slå skærmopdatring og beregning fra for optimal hastighed **
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
   
    '** få startarkets navn for at kunne komme tilbage **
    StartArk = ActiveSheet.Name
    '** gå ned til næste område **
    Selection.End(xlDown).Select
   
    '** indsæt autofilter og kriterie fra A1 **
    '** Field:=4 angiver at det er data i kol 4 der skal matche A1 **
    Selection.AutoFilter Field:=4, Criteria1:=Range("a1").Value
       
    '** renser Ark2 **
    Sheets("Ark2").Select
    Columns("A:A").Select
    Selection.ClearContents
    Range("A1").Select
   
    '** kopiere **
    Sheets(StartArk).Select
    Range("A3:A1000").Copy
   
    '** indsæt de kopierede data i det nye ark **
    Sheets("Ark2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
   
    '** tilbage til startarket **
    Sheets(StartArk).Select
   
    '** slå autofilter fra igen **
    Selection.AutoFilter
   
    '** tilbage til normal **
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

Jeps. Det var lige som den skulle gøre.
Jeg takker mange gange for makroen.
HAr du et svar, så jeg kan tildele point :-)

Det var så lidt :-) - her er svar