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

Automatisch sorteren

Status
Niet open voor verdere reacties.

jomas

Nieuwe gebruiker
Lid geworden
23 aug 2016
Berichten
3
Beste Excel experts,
Voor mijn vereniging ben ik een pool aan het opzetten, het voorspellen van de toto van verschillende wedstrijden. Op zich is dat geen probleem alleen het sorteren wil ik automatiseren. Mijn bedoeling is: als het tabblad met de tussenstand of de eindstand wordt geopend zou ik willen dat meteen de tabel gesorteerd wordt, zonder knoppen o.i.d. Het eerst op de punten, daarna op naam. Hoe los ik dat op?
Ik heb een voorbeeld hier bij aangehangen voor het gemak.
Alvast bedankt.

Bekijk bijlage Map2.xlsx
 
Laatst bewerkt:
jomas,

welkom op Helpmij.nl!
Kijk eens of dit werkt
 

Bijlagen

  • Kopie van Map2 hs.xlsm
    21 KB · Weergaven: 46
Ik heb matrix formules gebruikt en wat hulpvelden.
 

Bijlagen

  • Toto(pcb).xlsx
    14,8 KB · Weergaven: 30
Haije, Gijsbert1 en Piet, bedankt dat jullie hebben willen meedenken.
De oplossing van Gijsbert1 spreekt mij het meest aan, mede omdat ik niet bekend ben met VBA.
Ik ga proberen het in de pool te zetten en als het niet lukt of ik heb nog vragen, dan meld ik me wel weer.
 
Met een beetje code en een tab minder en een kleine aanpassing in de lay-out.

Selecteer in de tab stand in B1 wat je wilt zien.

Bij het activeren van de tab gebeurt dit
Code:
Private Sub Worksheet_Activate()
    Cells(3, 2).CurrentRegion.Sort [I3], 2, [B3], , , , , xlYes
End Sub

En bij het wijzigen van B1 gebeurt dit
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then Columns("C:H").Hidden = Target.Value = "Eindstand"
End Sub
 

Bijlagen

  • Map2-2.xlsb
    17,6 KB · Weergaven: 29
nog een ideetje? zonder matrix formules
 

Bijlagen

  • sorteren.xlsx
    14,1 KB · Weergaven: 35
VenA en Plongske ook bedankt voor het meedenken. Ik heb de oplossing van Gijs toegepast en dat werkt naar behoren.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan