Opdaterer efter dato

Sub mcrSortData()
    'Variable
    Dim n As Double
    Dim varArk As String
'-------------------------------------------------------------------
    Sheets("Data").Select
    rng = Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Address
    Sheets("Data").Range(rng).Copy Sheets("Start").Range("A1")
    Sheets("Start").Select
'-------------------------------------------------------------------
    varArk = ActiveSheet.Name 'Navn på det aktive ark

    Range("A1").Select
    Selection.CurrentRegion.Select 'Marker området med data
   
    With Range("A1").CurrentRegion 'Find sidste Row
        n = .Rows(.Rows.Count).Row
    End With
   
    ActiveWorkbook.Worksheets(varArk).Sort.SortFields.Clear 'Fjern evt. aktiv sortering
    ActiveWorkbook.Worksheets(varArk).Sort.SortFields.Add Key:=Range("F1:F" & n), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
    'Sortering
    With ActiveWorkbook.Worksheets(varArk).Sort
        .SetRange Range("A1:F" & n)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
    Range("A1").Select
End Sub

Hej Ven.

Det virker næsten.

Den sender dataen over i start, men den glemmer at sorte.
Den sorter pt således (samme orden som den stor i data) :
1. august 2009
1. juli 2009
1. september 2009

Og den skulle se således her ud :
1. juli 2009
1. august 2009
1. september 2009

På forhånd tak :)

Tror sku det virker. Linje 1 må bare ikke bruges. Kan man begrænse det til 10 ?

hvad mener du med begrænse til 10 ?

Er denne linie 1 ?
Sheets("Data").Select

Tænkte på den kun viser de 10 første der sorteret i start. Forstår du mig eller forklarer jeg dårligt :)

Nej mener at der må ikke stå noget i første række A1:F1 får den kommer ikke med. Men det betyder intet :)

Min del af koden kopierer alt fra ark "Data" til ark "Start"

Herefter gøres arket "Start" aktivt så den oprindelige kode foretager sorteringen der.

Så hvis der er noget galt med det, så må det jo have været galt fra starten af. ???

tror du har ret :) Virker fint nu. Ved du evt det med at begrænse til ti ?

Jeg ved ikke hvad du mener med begrænse til ti ?

Altså så den kun viser de 10 første :)

Med Autofilter (i menuen Data) er det muligt at vise de 10 første

Du får pointsne men vil stadig gerne have en loop på.

Tak for hjælpen PT. :)

Skal koden kun hente/kopiere de 10 første rækker fra Data til Start
Eller skal den kopiere som nu alt og derefter sortere og derefter slette alt undtagen de 10 første rækker eller hvad er det der skal laves ?

Den skal sortere alt og kun vise de første 10. Altså slette alt undtagen de første ti :)

Hvis du indsætter denne linie lige før End Sub
Range("A11:IV65536").Clear

så slettes alt fra række 11 til og med række 65536
ret 11 til aktuel første række der skal slettes

hvis første række er dynamisk må du sige til

Sig til hvis der skal ændres noget

Tak for hjlælpen :) Det smukt :)