Opgelost variabele hoeveelheid regels sorteren

[Sjaakz]

Heren/dames,

Vanuit mijn boekhoudprogramma laad ik een Excel lijst (zie bijgaand voorbeeld)

Deze wil ik sorteren op het werknummer kolom f (boekstuknummer).
Het aantal regels in het bestand neemt gedurende het jaar toe.
Via de wizard neemt hij het in eerste instantie meegenomen bereik mee. De later toegevoegde regels niet meer.

Alvast bedankt weer voor het snelle antwoord.

 

[peter59]

Hoe doe je dat inladen?
Als je hiervoor Power Query zou gebruiken dan was het een fluitje van een cent.

 

[Sjaakz]

Het is eigenlijk exporteren naar Excel vanuit Afas (daar werk ik nu 1,5 maand mee). Ik heb altijd met 4PS gewerkt in combinatie met Exsion en was het eigenlijk nooit een probleem.

 

[peter59]

Graag wat meer informatie, zoals:
Hoe ziet zo’n export eruit en hoe vaak wordt er geëxporteerd?
Worden deze vervolgens opgeslagen in een map of direct in een sheet geplakt?

 

[Sjaakz]

het bijgesloten voorbeeld is zo'n lijst.
per grootboekrekening kan het aantal regels variëren
en naarmate het jaar vordert nemen het aantal mutatie toe.

Met zelf puzzelen bedacht ik dit:

Sub sorteren()

Dim lastrow As Long

lastrow = Cells(Rows.Count, "f").End(xlUp).Row

Range("a" & lastrow).sort _
key1:=Range("f"), order1:=xlAscending, Header:=xlYes


End Sub

Waarom die smiley erin komt weet ik niet.

Maar werkt nog niet.

 

[edmoor]

Waarom die smiley erin komt weet ik niet.

Dat komt omdat je geen codetags gebruikt bij het plaatsen van je code.

 

[peter59]

En je hebt mijn vragen nog niet beantwoord.

 

[Sjaakz]

Na wat verder knutselen kom ik hierop en dat lijkt te werken.
Blijft dit goed gaan?


Sub sorteren()

Dim lastrow As Long

lastrow = Cells(Rows.Count, "f").End(xlUp).Row

Range("a1:"o"" & lastrow).sort _
key1:=Range("f1"), order1:=xlAscending, Header:=xlYes


End Sub

 

[edmoor]

Nog steeds geen codetags.
Klik op de link in mijn handtekening.
Gebruik hoofdletters voor kolomletters.
Leesbaarheid is belangrijk, ook bij korte stukjes.

Sub sorteren()
    Dim lastrow As Long

    lastrow = Cells(Rows.Count, "F").End(xlUp).Row
    Range("A1:O" & lastrow).Sort Key1:=Range("F1"), Order1:=xlAscending, Header:=xlYes
End Sub

 

[cow18]

Blijft dit goed gaan?

ja

 

[Sjaakz]

Heren bedankt voor het meedenken Top!
Edmoor ik ga de volgende keer op de codetags letten