• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

data automatisch sorteren via macro

Status
Niet open voor verdere reacties.
L

leonv01

Gebruiker
Lid geworden
5 nov 2009
Berichten
8
Hallo, hoe kan ik data automatisch laten sorteren door een macro zonder een knop of iets dergelijks te gebruiken. In bijgevoegd voorbeeld moet de data van klein naar groot gesorteerd worden kolom U (juni) is de input voor een grafiek.

gr.
 

Bijlagen

Het gebruiken van een filter hiervoor is geen optie?

Selecteer het blok met gegevens. Dan bij gegevens -> filter.
Er komt dan een pijltje boven elke kolom te hangen. zo kan je elke kolom sorteren van hoog/laag e.d.

Dit werkt zonder macro maar hetzelfde resultaat is de uitkomst
 
Deze macro heb ik opgenomen. vervolgens via dit forum de code voor een change event opgezocht. Ik ben tot deze oplossing gekomen (zie bijlage).

wijzig de waarde in kolom U en zie wat er gebeurt.

VBA kenners maken de code vast veel korter!

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
'Sub sorteren()
'
' sorteren Macro (oeldere)
'

'
    Rows("3:100").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("U3:U100") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("P2:U100")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        
    End With
    
End Sub
 

Bijlagen

Laatst bewerkt:
oeldere zei:
VBA kenners maken de code vast veel korter!
Klik om te vergroten...

Dat vraagt om een reactie!:P
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Range("P3:U12").Sort key1:=Range("U3")
End Sub

Met vriendelijke groet,


Roncancio
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan