• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Sorteren op alle tabbladen

Status
Niet open voor verdere reacties.
R

Robsyl

Gebruiker
Lid geworden
1 nov 2012
Berichten
12
Hallo

Ik ben met een rooster bezig dat automatisch word ingevuld wanneer de uren planning wordt gemaakt
hierdoor komen de namen en start tijden in het rooster wat ik uitprint door elkaar te staan
in het voorbeeld bestand heb ik voor week 53 een macro gemaakt met "macro opnemen" die de de tijden sorteert van vroeg naar laat (CTRL-s als sneltoets)
ook moeten de lege cellen onderaan komen te staan
wat moet ik doen om dit voor alle tabbladen te laten werken

Gr Rob
 

Bijlagen

  • Voorbeeld Rooster.xlsm
    508,2 KB · Weergaven: 38
Niet echt een handig opzet. Verzamel de gegevens in 1 tabel en gebruik bv een draaitabel om de week overzichten te maken. Voor het sorteren is dit voldoende in het bestand. Duurt wel even met 53 tabjes en 6 sorteringen per blad.

Code: 
Sub VenA()
  For Each sh In Sheets
    For Each ar In sh.Range("B5:E44, G5:J44, L5:O44, Q5:T44, V5:Y44, AA5:AD44").Areas
      ar.Sort ar.Cells(1), , , , , , , xlNo
    Next ar
  Next sh
End Sub
 
Bedankt voor je reactie

ik zal het eens gaan proberen

Gr Rob
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan