Har jeg forstået dig ret kan du indspille makroer til at gøre arbejdet for dig, både mht. kopiering fra det ene ark til det andet, og den efterfølgende sortering. Jeg har uploaded mit bud på hvordan man kan løse udfordringen.

uploads/210/Chauffør-Sortering_20110901.xls - uploads/210/Chauffør-Sortering_20110901.xls

 

Tak for dit fremragende forslag, det kan jeg bestemt godt bruge. (og det virker)

Jeg har blot et lille problem med schriptet, jeg kan ikke få sorteret den første linje, A2 - hos mig hedder den A5, resten på siden vil godt lade sig sortere, hopper jeg en linje ned og importere der og linjen ovenover er tom, er der ingen problemer.

 

Jeg skal lige nævne, jeg har kreeret en ny fil hvor jeg nu importere csv filen, altså på samme side hvor jeg sortere.

 

Se det schript jeg har sat ind som Makro:

 

Sub SorterChaufførnr()
'
' SorterChaufførnr Makro
' Makro indspillet 01-09-2011 af Ikkala
'

'
    Range("A5:Z25").Select
    Selection.Sort Key1:=Range("C5"), Order1:=xlAscending, Key2:=Range("A5") _
        , Order2:=xlAscending, Key3:=Range("E5"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
End Sub

 

Har du en ide til hvorfor den første linje ikke vil med i sorteringen ?

 

Hej Timer

 

Prøv at overskrive alle makroerne i dit "modul" med nedenstående koder.

 

Sub Kopier()
'
' Kopier Makro
' Makro kodet af PI
'

'
    Range("A5:z25").Select
    Selection.Copy
    Sheets("Kopiark").Select
    Range("A5").Select
    ActiveSheet.Paste
End Sub
Sub SorterChaufførnr()
'
' SorterChaufførnr Makro
' Makro kodet af PI
'

'
    Range("A5:z25").Select
    Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Key2:=Range("A5") _
        , Order2:=xlAscending, Key3:=Range("C5"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
End Sub
Sub TilbageTilStamdata()
'
' TilbageTilStamdata Makro
' Makro kodet af PI'

'
    Sheets("Stamdata").Select
    Range("A5").Select
End Sub
Sub SorterVagtnr()
'
' SorterVagtnr Makro
' Makro kodet af PI'

'
    Range("A5:z25").Select
    Selection.Sort Key1:=Range("C5"), Order1:=xlAscending, Key2:=Range("A5") _
        , Order2:=xlAscending, Key3:=Range("B5"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
End Sub

 

Tilbage efter en velfortjent ferie.

Tak for dit svar, lige hvad jeg skulle bruge.

Tak for din hjælp.

 

Hej Timer.