Sorteren in Excel

[Hippootje]

Hey,

Zou graag met vba met behulp van een knop sorteren

vb heb 5 kolomen in gebruik a b c d e
en zou graag al deze gegevens willen sorteren via kolom e aflopend

Iemand ????

 

[Edje_007]

Hoi

Zoiets ?

Columns("A:E").Select
    Selection.Sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select

deze code achter een knop plaatsen

Suc6

Ed

 

[Wigi]

Bedankt voor het typwerk Ed (of was het de macrorecorder )

Columns("A:E").Sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Wigi

 

[EJProsman]

Deze topic is wel lang geleden maar ik heb nog ff een vraag. Is het mogelijk om deze code ook aan een blad toe te kennen, bijvoorbeeld alleen voor blad2?
En hoe zit de code er dan uit?

Alvast bedankt!

 

[ExcelAmateur]

EJProsman,

Zeker lang geleden deze vraag.

Gebruik wel even een test file hier voor.
Zet een CommandButton op Blad2 en zet deze code daar onder.

Private Sub CommandButton1_Click()
  Columns("A:E").Sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortNormal
End Sub

Wanneer hij niet werkt weet je dit snel genoeg, denk ik.

 

[EJProsman]

Het erg lang geleden, 2006. Maar de topic is wel handig voor mijn Excelbestand.
Maar ik zie dat ik niet helemaal duidelijk geweest ben in mijn vraag Sorry daarvoor. Ik bedoelde, als de CommandButton op blad1 staat, hoe moet de code dan zijn om in blad2 te sorteren

Groetjes
EJProsman

 

[ExcelAmateur]

EJProsman,

Sorry dat ik zo laat reageer, had andere verplichtingen.
Test deze code.

Private Sub CommandButton1_Click()
  Worksheets("Blad2").Sort.SortFields.Add Key:=Range("E1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With Worksheets("Blad2").Sort
      .SetRange Range("B1:E6")
      .Orientation = xlTopToBottom
      .Apply
    End With
  Range("A1").Select
End Sub

 

[mooske04]

in programmacode?

Kun je deze code ook in de programmacode zetten? Bijvoorbeeld als je cel F8-f10 wijzigt dat ie dan automatisch bereik A18:k30 sorteert op kolom b? Zou ideaal zijn als je er geen knop voor hoeft te maken, maar dat je het gewoon in de programmacode van het werkblad zet....

 

[huijb]

Nu is het mooi geweest. geopend in 2006, wederom reactie in 2010 en nu weer in 2011. Deze topic is dusdanig gedateert dat deze met rust gelaten mag worden. Topic gaat op slot.