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

macro programeren

Status
Niet open voor verdere reacties.
V

Vriesacker

Gebruiker
Lid geworden
17 aug 2009
Berichten
140
der zit een fout in de programmatie van het sorteren.

er moet op elk werkblad gesorteerd kunnen worden met een marcoknop,

Ik heb 7 kolommen waar van 6 gesorteerd moeten worden, Kolom B, C, D, E, F, G
en dan vanaf rij 3 tem rij 52
kolom G is van groot naar klein
kolom D is van klein naar groot
 
Probeer deze eens:
Code: 
Sub Cobbe_sorteer()
With ActiveSheet
    .Range("B3:G52").Select
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range("G3:G52"), _
        SortOn:=xlSortOnValues, Order:=xlDescending
    .Sort.SortFields.Add Key:=Range("D3:D52"), _
        SortOn:=xlSortOnValues, Order:=xlAscending
End With
End Sub
 
werkt niet, kun je dat voor mij doen

werkt niet, kun je dat voor mij doen
 
macro

Probleem dat zich dan voor dat de bovenste regel gewoon blijft staan ipv mee te sorteren, eigenaardig genoeg!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan