Sorteren

[Stone52]

Excellers,

In een werkblad maak ik gebruik van een knop om de inhoud te sorteren. Nu wil ik met dezelfde knop om en om oplopend en aflopend sorteren.
Wie weet raad.

 

[LucHeyndrickx]

Hallo Stone,

Sub Sorteren()
'
' Sorteren Macro
' Sorteert A Kolom afwisselend op en aflopend
'

'

If Range("A1") < Range("A65536").End(xlUp) Then
Cells.Sort key1:=Range("A3"), order1:=xlDescending
Else
Cells.Sort key1:=Range("A1"), order1:=xlAscending
End If
End Sub


Luc

 

[richard1970]

Hoi stone52,

Dat kan via VBA. Ik neem aan dat je wel wat kennis van hebt. Ik heb onderstaande procedure gestest en bij mij werkt het:

Sub WisselendSorteren()
ActiveSheet.Shapes("AutoShape 1").Select
If Selection.Text = "Aflopend sorteren" Then
Columns("A:C").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess
ActiveSheet.Shapes("AutoShape 1").Select
Selection.Characters.Text = "Oplopend sorteren"
ElseIf Selection.Text = "Oplopend sorteren" Then
Columns("A:C").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
ActiveSheet.Shapes("AutoShape 1").Select
Selection.Characters.Text = "Aflopend sorteren"
End If
Range("A1").Select
End Sub

Het kan een stuk eleganter, maar dit is werkbaar. Zoals je misschien gezien hebt, verander ik de tekst van de knop om aan te geven welke actie deze uit zal voeren na activeren.
Als ik bij mij de actieknop selecteer zie ik in het naamvak "AutoVorm 1" staan, en in het engels voor VBA is dat "AutoShape 1".
Voor mijn tabel selecteer ik kolom A t/m C (Je kunt je tabel ook een naam geven en daarnaar verwijzen), en de kolom waarop ik sorteer is A. In cel A1 begint dan de Key1, de eerste waarde waarop gesorteerd wordt. Er zijn maximaal 3 Keys mogelijk in excel. (Ook wel weer een oplossing op te vinden, maar dan moet je meer kennis van VBA hebben dan ik).

Succes met aanpassen,

Richard

 

[Stone52]

Heren,


Bedankt voor de reactie en de oplossing.