van hoog naar laag

[tjalk]

Hallo,

 

Ik heb een vraag:

Per week (S1 tm S4) hebben we tellingen.

Ik zou graag zien dat het artikelen met de hoogste waarden automatisch bovenaan komen te staan. (totaal)

Dus artikelen van hoog naar laag.

Is er iemand die weet hoe ik dit kan doen.

Op dit moment doe ik het met een filter maar zou graag zien dat het automatisch aangepast wordt.

 

 

alvasrt bedankt voor de moeite, groetjes Tjalk

test.xlsx

[alpha]

Daarvoor hoef je de tabel slechts te sorteren van hoog naar laag, 1 van de basisbeginselen van Excel.

Selecteer de volledige tabel, kies in het menu: Gegevens - Sorteren - Sorteren op: Totaal - |Sorteren op: Waarden - Volgorde: van groot naar klein  - Klik op Ok.

[tjalk]

Dat doe ik nu met een filter maar zou graag zien dan als ik een nieuw getal invoer dat de stand dan automatisch aangepast wordt. (zonder zelf te moeten sorteren of filteren)

[alpha]

18 minuten geleden, tjalk zei:

zou graag zien dan als ik een nieuw getal invoer dat de stand dan automatisch aangepast wordt. (zonder zelf te moeten sorteren of filteren)

Dat kan door een sorteermacro te plaatsen in het blad behorend bij je tabel ("Private sub Worksheet_Change..."). 

Je kunt die macro handmatig opnemen met de macrorecorder of een zoekopdracht uitvoeren op internet, dan vind je meteen talloze voorbeelden.

5 december 2018 aangepast door alpha

[tjalk]

Zal het dan met een macro oplassen, dank je Alpha.

[emielDS]

zoiets?

sorteren zonder te sorteren..xlsm

[bakerman]

Vermijd het gebruik van Select, Selection, Activate.

Het vertraagt de code en is in 99% van de gevallen overbodig.

Maak gebruik van de With ..... End With structuur.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:E")) Is Nothing Then
        With ActiveWorkbook.Sheets("Blad1")
            .Sort.SortFields.Clear
            .Sort.SortFields.Add Range("F2"), xlSortOnValues, xlDescending, , xlSortNormal
            With .Sort
                .SetRange Cells(1).CurrentRegion
                .Header = xlYes
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        End With
    End If
End Sub

 

[tjalk]

Bedankt, dit is wat ik zoek. 

[alpha]

Je hoopt altijd (althans ik) dat, als je voor een eenvoudig probleem iemand duidelijke aanwijzingen geeft, het dan de vragensteller zelf lukt om te bereiken wat hij wilde. Helaas was dat niet het geval.

[tjalk]

Mijn excuus dat ik niet zo handig ben met Excel Alva.