Sorteren met macro?

[Dillondarko]

Hoi,

In Excel 2007 heb ik een simpel kasboek gemaakt, waarbij ik datum, omschrijving, uitgave enz. kan invoeren. Als ik dus een paar transacties op datum gesorteerd invoer, en ik voer later een vroegere datum in, staat dat niet meer gesorteerd. Is dat met een macro op te lossen? Ik heb het bestandje bijgevoegd, geconverteerd naar Excel 97-2003.

Alvast bedankt.

EDIT: Ik bedoel dan wel de hele horizontale lijn, dus van A t/m E, zodat de omschrijving en het bedrag ook meegesorteerd worden.

 

[tilpi]

Deze vraag is al vele malen aan de orde geweest.
Gebruik de zoekfunctie eens.
En anders neem eens een macro op met de macrorecorder, die dit moet doen en zie het resultaat
Selecteeer het bereik en sorteer oplopend op kolom met de datum.
Kom je er niet uit dan horen we het wel.

Mvg

Piet

 

[Dillondarko]

Sorry, maar waarop moet ik dan zoeken?

Ik ben maar een beginneling Excel...

De macrorecorder heb ik wel gevonden, maar welke handelingen ik moet uitvoeren is mij nog onbekend. Moet ik terwijl ie loopt gewoon standaard knip- en plakwerk doen?

 

[tilpi]

OK. Daar gaat 'ie.

Tab Ontwikkelaars>Macro opnemen>OK>
Selecteren B6 t/m E27 en Rechtsklikken
Dan Sorteren>Sorteren van oud naar nieuw
Tab Ontwikkelaars>Opname stoppen.

Je hebt inmiddels gezien dat de boel keurig gesorteerd is.
Als dat niet al te vaak voorkomt heb je daar eigenlijk geen macro voor nodig.

Zo ja, dan kan je deze macro aan een knop hangen als volgt:

Tab Ontwikkelaars>Invoegen>Formulierbesturingselementen>Knop
Teken met de muis ergens oop het blad een rechthoek en tevens verschijnt er een dialoogvenster Macro toewijzen aan object.
Selecteer de naam van de macro em klik op OK

Vanf nu kan sorteren dus via de knop

Doe ook eens Alt+F11. Je komt dan in de VBA-editor
Klik op Modules en Module 1.
Daar kan je de code zien die je zojuist hebt opgenomen.

Mvg

Piet

 

[Dillondarko]

Zo ja, dan kan je deze macro aan een knop hangen als volgt:

Tab Ontwikkelaars>Invoegen>Formulierbesturingselementen>Knop
Teken met de muis ergens oop het blad een rechthoek en tevens verschijnt er een dialoogvenster Macro toewijzen aan object.
Selecteer de naam van de macro em klik op OK

Vanf nu kan sorteren dus via de knop.

Bedankt voor je goede uitleg. Alleen het stukje met die knop invoegen wil niet. Ik kon al geen tab ontwikkelaars vinden, maar de macro maken is wel gelukt. Hoe kan ik op een andere manier een knop voor de macro maken?

 

[tilpi]

TabOntwikkelaars wordt niet standaard geïnstalleerd.
Daarvoor doe.
(uit m'n hoofd want ik heb hier 2007 niet)
Officeknop>Opties voor Excel>Populair>Lint Ontwikkelaars toevoegen (of zoiets)
Daar staat het Invoegen gedeelte met de knop.

Mvg

Piet

 

[Dillondarko]

't Stond inderdaad iets in die richting, en het is gelukt. Bedankt!!

 

[bertvanmaaren]

Sorteren op datum of op afschriftnummer

Beste Dillondarko,

Heb zelf twee macrootjes gemaakt voor het sorteren op datum of sorteren op afschriftnummer:

Sub Sorteren_Datum()
'
' Sneltoets: CTRL+d
'
Selection.Sort Key1:=Range("D134"), Order1:=xlAscending, Key2:=Range( _
"F134"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom
End Sub

Sub Sorteren_Afschrift()
'
' Sneltoets: CTRL+a
'
Selection.Sort Key1:=Range("C134"), Order1:=xlAscending, Key2:=Range( _
"D134"), Order2:=xlAscending, Key3:=Range("F134"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
End Sub

Hierbij moet ik wel eerst het gebied selecteren (aantal regels) wat ik wil sorteren, daarna druk ik op [Ctr d] voor sorteren op datum of op [Ctrl a] voor sorteren op afschriftnummer. De datums staan bij mij in kolom D en de afschriftnummers in kolom C. Tevens heb ik in de sheet twee knoppen gemaakt en daar de bijpassende macro aangehangen.

 

[Dillondarko]

Bedankt voor je macrootjes. Heb ze nog niet gebruikt, maar dat ga ik (denk ik) wel doen.