macro om te sorteren

[sharda002]

hallo, kunnen jullie mij helpen met een macro om te sorteren.

In een urenregstratie laat ik alles sorteren op weeknummer en op medewerker maar daar ik vanaf 2011 bezig ben loop ik tegen een probleem aan dat deze ook 2011 weergeeft
( deze hebben dezelfde weeknummers als 2012 natuurlijk)
ik heb inkolom "p" het jaartal staan
Ik wil een macro die eerst kijkt in kolom "p" en daar selecteerd op jaartal alvorens deze gaat sorteren op weeknummers. en zodoende 2011 overslaat.


groet

john

 

[gast0224]

Dat kun je toch doen met de macrorecorder?

 

[robdgr]

Een mogelijkheid:

Sub sorteer()
        Application.ScreenUpdating = False
            With [A2:P1000]
                .Sort [P1], xlAscending
                .Sort [A1], xlAscending
            End With
        [A65536].End(xlUp).Offset(1).Select
        ActiveWorkbook.Save
         Application.ScreenUpdating = True
End Sub

Deze aangepaste code niet getest.

 

[sharda002]

Wat ik zoek is een macro met een voorwaarde, die alleen het jaar 2012 selecteerd en daarna gaat selecteren.

De andere code erkt niet, het probleem wat er is dat in kolom "p"zowel 2011 als 2012 staat

als deze sorteerd in deze volgorde:
jaartal - weeknummer - Naam

Is de uitkomst

Naam Bedrijf weeknr Datum Jaar
Daniel van Winsen HSE 1 maandag 03 jan 11 2011
Daniel van Winsen HSE 1 dinsdag 04 jan 11 2011
Daniel van Winsen HSE 1 dinsdag 04 jan 11 2011
Daniel van Winsen HSE 1 woensdag 05 jan 11 2011
Daniel van Winsen HSE 1 donderdag 06 jan 11 2011
Daniel van Winsen HSE 1 vrijdag 07 jan 11 2011
Daniel van Winsen HSE 1 maandag 02 jan 12 2012
Daniel van Winsen HSE 1 dinsdag 03 jan 12 2012
Daniel van Winsen HSE 1 woensdag 04 jan 12 2012
Daniel van Winsen HSE 1 donderdag 05 jan 12 2012
Daniel van Winsen HSE 1 vrijdag 06 jan 12 2012
Daniel van Winsen HSE 2 maandag 10 jan 11 2011
Daniel van Winsen HSE 2 maandag 10 jan 11 2011
Daniel van Winsen HSE 2 dinsdag 11 jan 11 2011
Daniel van Winsen HSE 2 woensdag 12 jan 11 2011
Daniel van Winsen HSE 2 donderdag 13 jan 11 2011
Daniel van Winsen HSE 2 vrijdag 14 jan 11 2011
Daniel van Winsen HSE 2 vrijdag 14 jan 11 2011
Daniel van Winsen HSE 2 maandag 09 jan 12 2012
Daniel van Winsen HSE 2 dinsdag 10 jan 12 2012
Daniel van Winsen HSE 2 woensdag 11 jan 12 2012
Daniel van Winsen HSE 2 donderdag 12 jan 12 2012
Daniel van Winsen HSE 2 vrijdag 13 jan 12 2012
Daniel van Winsen HSE 3 maandag 17 jan 11 2011
Daniel van Winsen HSE 3 dinsdag 18 jan 11 2011
Daniel van Winsen HSE 3 woensdag 19 jan 11 2011
Daniel van Winsen HSE 3 donderdag 20 jan 11 2011
Daniel van Winsen HSE 3 vrijdag 21 jan 11 2011
Daniel van Winsen HSE 3 zaterdag 22 jan 11 2011
Daniel van Winsen HSE 3 maandag 16 jan 12 2012
Daniel van Winsen HSE 3 dinsdag 17 jan 12 2012
Daniel van Winsen HSE 3 woensdag 18 jan 12 2012
Daniel van Winsen HSE 3 donderdag 19 jan 12 2012
Daniel van Winsen HSE 3 vrijdag 20 jan 12 2012

 

[ExcelAmateur]

sharda002,

Volgens mij gaat de oplossing beter lukken als je een voorbeeld hier plaatst.
Met er in duidelijk wat je wenst.

Het helemaal nabouwen heeft men geen zin in.

 

[ExcelAmateur]

sharda002,

Ik heb toch maar een voorbeeldje gemaakt.
Als je indeling is zo als in mijn voorbeeld, werkt het ook met het filter.

 

[sharda002]

Bedankt voor de moeite maar als je meer namen zou invullen word het met de huidige macro niets.
Autofilters gebruik ik overigens niet het gaat mij erom dat die het blad sorteerd.

maar om de vraag makkelijker te stellen;

Hoe schrijf je een macro welke eerst kijkt in kolom "p' en allen de regels sorteerd waar in kolom "P" het jaartal "2012" staat?

 

[ExcelAmateur]

sharda002,

Hoe schrijf je een macro welke eerst kijkt in kolom "p' en allen de regels sorteerd waar in kolom "P" het jaartal "2012" staat?

Dit kun je met de MacroRecorden doen.
Deze schrijft de code voor al je handelingen die je doet.
Hij schrijft te veel code maar dat kun je naderhand inkorten.

Als je dit gebruikt?
Heb ik van rogdgr aangepast sorteer op kolom P, kijk of de sleutel [P1] klopt en of het bereik klopt [A2-P1000]

Sub sorteer()
   Application.ScreenUpdating = False
        With [A2:P1000]
           .Sort [P1], xlAscending
         End With
        [A65536].End(xlUp).Offset(1).Select
    Application.ScreenUpdating = True
End Sub

 

[sharda002]

Ik ken het principe van de macrorecorder maar deze maakt geen uitzonderingsregels of voorwaardelijke regels.

wie helpt mij verder?

 

[Cobbe]

Je helpt het beste jezelf door een voorbeeldje te posten.
Je kan natuurlijk stoïcijns de vraag blijven herhalen maar dat brengt niet op.