automatische rangschikking

[lukassen]

Beste Ad,
Dit is natuurlijk ook een oplossing maar ik wil graag dat als ik nieuwe gegevens invoer dat dan al bij het invoeren de ranglijst iedere keer automatisch veranderd.
Groeten Loek

 

[Ad Becude]

Dan zul je zoiets bedoelen.

Ad.

 

[lukassen]

Beste Ad,
Volgens mij is dat de oplossing.
Ik heb het geprobeerd en het lukte me bijna.
Er ging daarna toch nog iets fout.
Omdat ik in het originele excelbestand verschillende bladen en formules gebruik
gaat het misschien verkeerd.
Ik heb 3 tabbladen.
Mag ik het bestand naar jou eigen e-mailadres opsturen zodat jij het voor mij verder oplost.
Volgens mij is het nog maar een klein probleem.
Groetjes Loek

 

[Wigi]

Ik zou dit doen:

- klik rechts op de bladtab van het blad waarin je tabel staat
- plak de code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim data As Range
Set data = Range("A2:G12")
If Target.Count = 1 And Not Intersect(Target, data) Is Nothing Then
    data.Sort Key1:=Range("G3"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1
End If
End Sub

Als je nog andere vragen hebt, stel die dan via het forum. Vooral aangaande de meerdere tabbladen. Ik ben er bijna zeker van dat er hier een oplossing gevonden zal worden

Wigi

 

[Ad Becude]

Ik ben het helemaal met Wigi eens.
Hier heeft een ander ook iets aan.

Ad.

 

[lukassen]

Mij is iets onduideijk.
Wat bedoel jij Ad met; daar heeft een ander ook wat aan?
En dat jij het met Wigi eens bent?
Omdat ik het bestand niet via het forum plaats?
Dat is het geval niet hoor.
Groetjes Loek
P.s. hoeveel kb mag een bestand zijn?

 

[Wigi]

Mij is iets onduideijk.
Wat bedoel jij Ad met; daar heeft een ander ook wat aan?
En dat jij het met Wigi eens bent?
Omdat ik het bestand niet via het forum plaats?
Dat is het geval niet hoor.
Groetjes Loek
P.s. hoeveel kb mag een bestand zijn?

Loek

Probeer een bestand toe te voegen en je ziet onmiddellijk de toegelaten limiet.

Zip je bestand eerst.

Je hoeft het origineel bestand niet bij te voegen maar vergeet dan niet dat het helpen langer en moeizamer zal duren.

Als je via het forum werkt kan iedereen lezen en volgen wat er gebeurt (en er wat van opsteken indien mogelijk). Dit gaat niet bij e-mailverkeer tussen 2 mensen.

Wigi

 

[Ad Becude]

Beste Loek,

Ik vindt het heel aardig van je dat je mij het bestand wilt toe sturen, maar gaande deze tread zijn er meerdere die op jou vragen reageren.
Daar ik zeker geen specialist in VBA ben, lijkt het me verstandiger om gewoon op het forum verder te gaan met je vragen.
De oplossingen die je geboden worden, kunnen ook door anderen gebruikt worden.
Dat bedoel ik dus met; daar heeft een ander ook wat aan.
Bestanden naar prive mail sturen, jij vraagt het nog, je moest eens weten hoeveel er ongevraagd gestuurd worden.
Denk erom ik wil je geen verwijt maken hoor, maar ik ben het dus met Wigi eens, dat we het gewoon via het forum voort zetten.

Met vriendelijke groet, Ad.

P.S. Niet boos zijn hoor, daar hebben we allemaal niets aan.

 

[lukassen]

Ok, ik begrijp het.
Het was niet de bedoeling om de andere forumgasten mijn bestand niet te laten zien hoor.
Ik dacht, als ik het bestand rechstreeks naar jou stuur dan kun jij, omdat jij met de oplossing kwam, er rustig naar kijken.
Ik doe gewoon iets verkeerd en het is volgens mij maar een kleine ingreep.
Ik ben niet boos hoor alhoewel mijn vorig berichtje misschien wel zo klonk.
Vanavond zet ik het bestand op dit forum.
Geen enkel probleem.
Groetjes Loek

 

[Wigi]

Als het confidentiële informatie is, zet jet het uiteraard niet op het forum. Wel kan je namen en andere gevoelige informatie vervangen door nepgegevens. Als de structuur en de bedoeling maar duidelijk zijn.

Probeer op een duidelijke manier uit te leggen wat er nog mankeert en wat het verschil moet zijn met de oplossingen die tot nu toe gegeven zijn.

Wigi

 

[lukassen]

Beste mensen,
Hier is mijn bestand.
Ik heb het ingekort maar blijft het zelfde idee.
Het gaat vooral om blad 1 (de ranglijst).
Als ik het doe zoals jullie mij vertellen dan doe ik toch iets verkeerd.
Willen jullie mij proberen te vertellen hoe dat komt.
Groetjes (de niet boze) Loek

 

[Wigi]

Loek

Volgens mij doet dit wat je wilt:

Private Sub Workbook_sheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Application.ScreenUpdating = False
Sheets("Ranglijst").Range("A2:P25").Sort Key1:=Sheets("Ranglijst").Range("p2"), _
    Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Application.ScreenUpdating = True
End Sub

Alleen moet je goed oppassen dat na het sorteren je overal de verwijzingen naar de juiste cellen hebt. Ik vermoed dat daar wat problemen kunnen opduiken en dat er als gevolg soms verkeerde sorteringen gaan zijn.

Wigi

 

[lukassen]

Beste mensen,
Eindelijk is het mij gelukt zoals ik het wil.:thumb:
Bedankt voor jullie hulp.:love:
Ik heb dank zij jullie weer wat meer kennis v.w.b. excel.
Als jullie het voorbeeldbestandje willen zien dan zet ik het op dit forum.
Nogmaals bedankt.
Groetjes Loek

 

[Wigi]

Als jullie het voorbeeldbestandje willen zien dan zet ik het op dit forum.

Doe maar als je wilt.

Graag gedaan Loek

Wigi

 

[lukassen]

Zoals afgesproken het voorbeelbestand zoals ik het wilde hebben.
Nogmaals bedankt voor jullie hulp.
Groetjes Loek