VBA : List efter dato

Hej,
Jeg ved ikke om det er mig der bare er tungnem eller ;-)
Men hvorfor laver du ikke bare sorteringe i Data arket
hvorfor skal data "flyttes" over i Start arket?

Det at du vil kunne ændre fra Start arket "tilbge" til Data arket gør det lidt svært. Er Kolonen A unik?

Hilsen
Tue Hellstern
www.F1-support.dk

Hej Hellstern.

Jeg ønsker det fremtidig skal ske automatisk, så derfor er jeg nød til at have denne måde :)

Ok, men kunne det ikke ske automatisk i Data arket?

Der kunne oprettes en makro der automatisk sorterede dette ark hver gang der kom en ændring?

Hilsen
Tue Hellstern
www.F1-support.dk

Hmm hvad med en knap, det ville være bedst :)

Hvordan havde du tænkt dig ?

Hej,
Denne makro sortere det aktive ark - i dit tilfælde Data arket.
Der bliver sorteret efter F med nyeste Dato øverst.

Sub mcrSortData()
    'Variable
    Dim n As Double
    Dim varArk As String
   
    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:=xlDescending, DataOption:=xlSortNormal
   
    'Sortering
    With ActiveWorkbook.Worksheets(varArk).Sort
        .SetRange Range("F1:F" & n)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
    Range("A1").Select
End Sub

Du kan evt. binde denne knap sammen med en knap.

Test makroen og lad mig vide om det er den noget i den retning du har brug for.

Hilsen
Tue Hellstern
www.F1-support.dk

Det er lidt vigtigt det kommer fra et andet ark. Kan vi lave det ?

Tester lige din kode senere :)

Hej,
Ikke helt sikker på hvad du mener :-)
Hvad er det der kommer fra et andet ark?

/Tue

Det nok mig som forklarer mig dårligt. Det er samme ark, men to forskellige sheets.

Det vigtigt at alt uden sortering ligger i sheetet data.

Derefter skal det sorteres i arket start.

Forstår du mig bedre nu ? :)

Har kigget lidt på koden. Den sorter kun F. Den skal tage alt fra a-f med. Desuden skriver den den højeste værdi i toppen, det skal være det den laveste. Altså den dato der tættest på dagens dato :)

Er kommet lidt videre :

Sub mcrSortData()
    'Variable
    Dim n As Double
    Dim varArk As String
   
    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

Jeg takker for jhælpen.
Vil du have points så skriv, er nød til at lukke mine åbne spm.
Så opretter jeg en tråd til dig :)