Ranking sorteren

[tilly86]

Bekijk bijlage Ranking.xlsx

Goedenavond,

Graag zou ik in dit bestand een macro hebben waarmee de lijst van deelnemers 1 tm 64 gerangschikt word op basis van de totaal stand.
Door vert.zoeken en gegevensvalidatie kan ik makkelijk de behaalde punten onder punten verdeling invoegen.
Maar door de vert.zoeken krijg ik de macro niet voor elkaar, hij veranderd dan de formule (cellen ) waarna die verwijzen.

Ik hoop dat iemand me hiermee kan helpen.

groet, Tilly.

 

[VenA]

Je moet de formule eerst aanpassen.

=VERT.ZOEKEN(B4;[COLOR="#FF0000"]$[/COLOR]V[COLOR="#FF0000"]$[/COLOR]4:[COLOR="#FF0000"]$[/COLOR]W[COLOR="#FF0000"]$[/COLOR]16;2;ONWAAR)

Hiermee wordt het bereik waarin je wilt zoeken vastgezet en kan je wel sorteren.

 

[snb]

Verander word in wordt, veranderd in verandert, waarna in waarnaar, totaal stand in totaalstand, punten verdeling in puntenverdeling

 

[tilly86]

Je moet de formule eerst aanpassen.

=VERT.ZOEKEN(B4;[COLOR="#FF0000"]$[/COLOR]V[COLOR="#FF0000"]$[/COLOR]4:[COLOR="#FF0000"]$[/COLOR]W[COLOR="#FF0000"]$[/COLOR]16;2;ONWAAR)

Hiermee wordt het bereik waarin je wilt zoeken vastgezet en kan je wel sorteren.

Dankjewel VenA ,dit ga ik vanavond veranderen

 

[gast0660]

@Snbie,
waarom???
LAEDERE FACILE,MEDERI DIFFICILE

 

[snb]

@D

Omdat dit een taalforum (o.a. de taal VBA) is.

 

[tilly86]

Heel erg bedankt! het is gelukt

 

[VenA]

Da's mooi.:d
Je hebt de vraag in VBA sectie geplaatst en dan is het voor diegenen die een soortgelijke vraag hebben wel handig dat je ook even de VBA oplossing plaatst. En zeer waarschijnlijk krijg je dan ook wat betere code aangereikt.

 

[tilly86]

Alle cellen veranderd naar : =VERT.ZOEKEN(B4;$V$4:$W$16;2;ONWAAR)
en daarna de volgende macro "Sorteren" erin gezet :

Sub Sorteren()
'
' Sorteren Macro
'

'
Range("A4:T68").Select
ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("T4:T68"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Blad1").Sort
.SetRange Range("A4:T68")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
MsgBox "Ranking is gesorteerd", vbInformation
End With
End Sub

 

[VenA]

Bedankt voor de terugkoppeling.

Om te sorteren is is dit voldoende.

Sub VenA()
  Cells(4, 1).CurrentRegion.Sort Cells(4, 20), 2
End Sub