• 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.

automatisch sorteren

Status
Niet open voor verdere reacties.
R

ronnie123

Gebruiker
Lid geworden
21 nov 2007
Berichten
595
beste mensen
deze macro heb ik op genomen. nu wil ik graag dat het automatisch sorteerd als er in kolom c iets veranderd
groetjes ronnie

Code: 
Sub sorterenstand()
'
' sorterenstand Macro
'

'
    Range("B4:R13").Select
    ActiveWorkbook.Worksheets("stand").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("stand").Sort.SortFields.Add2 Key:=Range("C4:C13") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("stand").Sort
        .SetRange Range("B3:R13")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
 
Wat bedoel je met 'iets verandert' (s met een 't', geen 'd')? Je heb het bereik nu behoorlijk vastgepind op een vast blok. Verandert dat niet? Of is het juist de bedoeling dat het uitbreidt als je records toevoegt?
 
hallo octafish
in kolom c wordt steeds getallen bij opgeteld, nu wil ik dat de hoogste boven aan komt en alles van de rij mee sorteert
 
Zonder een goed gelijkend voorbeeldbestand gaat het deze keer ook niet lukken.
 
Worden de gegevens handmatig ingevoerd?

Dan kan het zo
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, ListObjects(1).Range.Columns(3)) Is Nothing Then
    With Sheets(1).ListObjects(1).Sort
        .SortFields.Clear
        .SortFields.Add2 _
            Key:=Range("Tabel1[[#All],[T-Pnt]]"), _
            SortOn:=xlSortOnValues, _
            Order:=xlDescending
        .Apply
    End With
End If
End Sub
 

Bijlagen

  • Map1.xlsm
    21,3 KB · Weergaven: 19
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C13")) Is Nothing Then
    'jouw code
End If
End Sub
 
@JVeer
De gegevens in kolom 3 worden bijna zeker niet handmatig ingevoerd.
Waarschijnlijk gaan we beiden de mist in omdat het voorbeeldbestand niet representatief is.
 
albert handmatig invoeren werkt het maar met de formule niet
Code: 
=SOM.ALS(wedstrijden!$B$15:$B$500;B6;wedstrijden!$J$15:$J503)
 
Laat eens zien hoe je de gegevens aanvult in kolom C
 
Ik geef het op...te onduidelijk voor mij
 
Probeer deze eens

Edit: andere bijlage geplaatst(kolom B kun je verbergen)
 

Bijlagen

  • bijarten (2) (2).xlsm
    163,6 KB · Weergaven: 17
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan