Selectie sorteren met een macro

[jgmiddel]

Ik gebruik onderstaande code om bepaalde cellen te selecteren:

With Rng.Parent
.Select
.Range("B4", LastCell).Select
End With

Die LastCell is variabel. De ene keer zal dus B4:N6 geselecteerd zijn, een volgende keer bijvoorbeeld B4:O29. Hoe dan ook, ik moet de waarden in de selectie sorteren. Iemand enig idee hoe dat moet? Ik werk in Excel 2007.

 

[Cobbe]

Neem een macro op met de sortering zoals jij ze wil.
Dan is die code redelijk eenvoudig aan te passen.

Cobbe

 

[WimenBeer]

Ik gebruik onderstaande code om bepaalde cellen te selecteren:

With Rng.Parent
.Select
.Range("B4", LastCell).Select
End With

Die LastCell is variabel. De ene keer zal dus B4:N6 geselecteerd zijn, een volgende keer bijvoorbeeld B4:O29. Hoe dan ook, ik moet de waarden in de selectie sorteren. Iemand enig idee hoe dat moet? Ik werk in Excel 2007.

Ik heb de volgende code gewoon gemaakt met macro opnemen en een kan je een beetje aangepassen. Wellicht geeft het je een idee in de goede richting.

    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("A1:A23"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("A1:A23")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Wim

 

[Roncancio]

Ik gebruik onderstaande code om bepaalde cellen te selecteren:

With Rng.Parent
.Select
.Range("B4", LastCell).Select
End With

Die LastCell is variabel. De ene keer zal dus B4:N6 geselecteerd zijn, een volgende keer bijvoorbeeld B4:O29. Hoe dan ook, ik moet de waarden in de selectie sorteren. Iemand enig idee hoe dat moet? Ik werk in Excel 2007.

Je kunt bovenstaande code vervangen door 1 regel:

Range("B4:" & LastCell).Sort Key1:=Range("B4")

Met vriendelijke groet,


Roncancio