• 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 planning

Status
Niet open voor verdere reacties.
M

monty1a

Gebruiker
Lid geworden
29 dec 2006
Berichten
202
Weer een vraagje van mij!

Ik maak aan de hand van een overzicht hieraan worden een x aantal tabbladen gemaakt ( K (1), K(2) enz.) deze worden ingevuld door de desbetreffende personen.
Hieraan word weer een planning gemaakt. Tot nu toe werkt alles perfect.
Alleen vragen ze nu of het mogelijk is om de selectie te maken aan de hand van een cel (L4) zodat deze worden gesorteerd per ploeg.

Ik hoop dat ik een beetje duidelijk ben, en ik heb een voorbeeldje erbij gedaan om het duidelijker te maken.
Bekijk bijlage Test.xlsb

Mvg Marcel
 
Sorry ...
Moet per ploeg verdeeld worden..
Het kunnen verschillenden ploegen zijn ... de ploegnamen kunnen wel eens veranderd worden dus is ook geen vaste ploegnaam.

Dit omdat het dan makkelijker te zien is wat welke ploeg moet doen!
 
Laatst bewerkt:
Ik heb het bestandje ingevuld zodat het misschien wat duidelijker word.

Het gaat om kolom A in het tabblad Planning. De ploegen staan nu door elkaar heen, en ik zou deze graag automatisch gesorteerd willen zien.

Thanx

Bekijk bijlage Test.xlsb
 
Ik kan geen oplossing met formules bedenken.
Onderstaande VBA-routine werkt ook. Plaats hem in de werkbladmodule "Planning". Iedere keer dat je dat werkblad activeert werkt de macro de gegevens bij.
Code: 
Private Sub Worksheet_Activate()
    Dim i As Long
    Dim Rng As Range
    
    With CreateObject("System.Collections.Arraylist")
        For i = 2 To Sheets.Count
            .Add Sheets(i).Range("L4") & "|" & i - 1
        Next
        .Sort
        Application.DisplayAlerts = False
        Set Rng = Sheets("Planning").Range("A48").Resize(.Count)
        Rng.Value = Application.Transpose(.ToArray)
        Rng.TextToColumns , 1, , , , , , , 1, "|"
        Application.DisplayAlerts = True
    End With
End Sub
 
Perfect Timshel,

Maar kan je me misschien ook helpen zodat hij de kolommen C t/m N automatisch invult?

Thanx!
 
In de INDIRECT-formules in die kolommen verwijs je naar RIJ()-47:
Code: 
=ALS.FOUT(INDIRECT("'K ("&[COLOR="#FF0000"]RIJ()-47[/COLOR]&")'!f12");"")
vervang overal het roodgekleurde gedeelte door een verwijzing naar de corresponderende cel in kolom B:
Code: 
=ALS.FOUT(INDIRECT("'K ("&[COLOR="#FF0000"]$B48[/COLOR]&")'!f12");"")
 
Helaas werkt de VBA code niet in mij n originele bestand waar ik vele meerdere tabbladen heb:confused:
 
Wist ik het maar...jammer.
Mocht iemand nog een ideetje hebben, dan hoor ik het graag.
 
Waarom zou die code niet werken als je ze achter de tab Planning hangt?
Ik zie verder geen enkele relatie met de gesorteerde lijst in kolom A met een andere cel.
Als je een oplossing nastreeft zal je toch iets meer duidelijk moeten zijn wat je nu eigenlijk wil bereiken.
En een voorbeeldbestand dat de reële toestand weergeeft wil wel eens helpen.
 
Ik heb nu een x aantal tabbladen toegevoegd als in het originele bestand, want in het originele bestand staan nog eens 20 tabbladen verborgen en een x aantal meer zichtbaar.
Het originele bestand kan ik niet plaatsen omdat deze veel te groot is.

Ik hoop dat jullie hier iets mee kunnen...
 

Bijlagen

  • Test2.xlsb
    134,8 KB · Weergaven: 37
Probeer het eens zo:
Code: 
Private Sub Worksheet_Activate()
    Dim Rng As Range
    Dim Sh As Worksheet
    
    With CreateObject("System.Collections.Arraylist")
        For Each Sh In Sheets
            If Sh.Name Like "K (*)" Then .Add Sh.Range("L4") & "|" & Mid(Sh.Name, 4, Len(Sh.Name) - 4)
        Next
        .Sort
        Application.DisplayAlerts = False
        Set Rng = Range("B48").Resize(.Count)
        Rng.Value = Application.Transpose(.ToArray)
        Rng.TextToColumns , 1, , , , , , , 1, "|"
        Application.DisplayAlerts = True
    End With
End Sub

...en vergeet niet je formules aan te passen volgens #8.
 

Bijlagen

  • Test2.xlsb
    134,8 KB · Weergaven: 38
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan