Tabel sorteren

[tkint]

Beste,

Ik heb al eerder deze vraag gesteld en heb van een forumlid deze code ontvangen om te sorteren op kolom A (deze code werkt perfect)

Sub Sorterenopnaam()
laatsterij = Range("A" & Rows.Count).End(xlUp).Row
Range(Cells(3, 1), Cells(laatsterij, 8)).Select
Cells(1).CurrentRegion.Offset(1).Sort [a2], , , , , , , 1
'        Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
'        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
'        DataOption1:=xlSortNormal
End Sub

Met deze code zou ik wil sorteren op kolom H maar de waarden worden onderaan de tabel en ongesorteerd geplaatst.

Sub Sorterenopwinstpunten()
laatsterij = Range("A" & Rows.Count).End(xlUp).Row
Range(Cells(3, 1), Cells(laatsterij, 8)).Select
Cells(1).CurrentRegion.Offset(1).Sort [i2], , , , , , , 1
'        Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
'        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
'        DataOption1:=xlSortNormal
End Sub

 

[Jack Nouws]

je sorteert op i2 ipv h2

 

[Jack Nouws]

en hier heb je genoeg aan

Sub Sorterenopnaam()
  Cells(1).CurrentRegion.Offset(1).Sort [a2], , , , , , , 1
End Sub
Sub Sorterenopwinstpunten()
  Cells(1).CurrentRegion.Offset(1).Sort [h2], , , , , , , 1
End Sub

 

[tkint]

Beste,

Ik wil sorteren op kolom I ipv kolom H. Tikfoutje!

 

[tkint]

Beste,

Ik heb jouw code toegepast maar het resultaat is hetzelfde als met mijn code.

 

[Jack Nouws]

en zo

Sub Sorterenopwinstpunten()
  Cells(1).CurrentRegion.Offset(1).Sort [i2], 2, , , , , , 1
End Sub

 

[HSV]

Je sorteert xlascending, terwijl het xldescending moet zijn.

Cells(1).CurrentRegion.Offset(1).Sort [i2], [COLOR=#ff0000]2[/COLOR], , , , , , 1

 

[tkint]

Beste,

Hoe "stom" van mij. Ik heb begrepen dat, indien je geen parameter na sort invult er standaard xlascending gesorteerd wordt Zal ik niet meer vergeten!
Bedankt voor de snelle hulp.

 

[HSV]

Dat is niet stom van je, dat is ook zo.
Je wil xldescending sorteren toch?

 

[tkint]

Beste,

Jawel. Met de ingevulde parameter werkt de code perfect. Ik plaats de vraag als opgelost.

 

[HSV]

De 2 staat voor xldescending, niets of 1 staat voor xlascending.

Dat was niet stom van je (dat je het even weet). :thumb: