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

VBA sorteren met twee voorwaarden

Status
Niet open voor verdere reacties.

AD1957

Verenigingslid
Lid geworden
27 feb 2016
Berichten
2.155
met de opdrachtknop "sorteren laatste onderhoudsdatum" in de userform wil ik graag ook direct
op postcode sorteren zodat ik een sortering krijg op onderhoudsdatum en postcode.
Na uren zoeken toch maar weer een beroep op dit forum.

Groet,
Albert

Bekijk bijlage ONDERHOUDSLIJST2.xlsb
 
Code:
Sub Sorteer()
    With Worksheets("Blad1").Range("A1").CurrentRegion
        .Sort .Columns("G"), xlAscending, , .Columns("C"), xlAscending, Header:=xlYes
    End With
End Sub
 
ik heb de code aangepast maar geen resultaat, geen extra sortering op postcode
 
Laatst bewerkt:
??? aangepast in userform1, button4
 
Wil je per datum een sortering op postcode of per postcode een sortering op datum ( hetgeen Cow18 dus heeft gerealiseerd)?
 
zal de volgorde van sorteren veranderen en kijken of het dan wel is wat ik zoek
 
Iets anders geschreven

Code:
Private Sub CommandButton4_Click()
  Cells(1).CurrentRegion.Sort [C1], , [G1], , , , , xlYes
End Sub
 
misschien was ik niet duidelijk in mijn vraagstelling:
de cellen in kolom G hebben een voorwaardelijke opmaak = Vandaag()-365 (cel kleurt geel)
wat ik zo willen bereiken:
alle gele cellen naar boven en tevens gesorteerd op postcode.

m.a.w. ik wil boven alleen gele cellen zien die gesorteerd zijn op postcode.


zal een even kijken wat de code van VenA doet.

p.s. ben een paar uurtjes weg, vandaar dat ik later pas kan reageren)
 
Laatst bewerkt:
Volgens mij staat er nergens dat er op kleur gesorteerd moet worden. Ipv uren zoeken kan je ook een macro opnemen.

Code:
Sub VenA()
  With Sheets("Blad1").Sort.SortFields
    .Clear
    .Add(Range("G1"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 255, 0)
    .Add Range("C1")
    .Add Range("G1")
    With .Parent.Parent.Sort
      .SetRange Cells(1).CurrentRegion
      .Header = xlYes
      .Apply
    End With
  End With
End Sub
 
Hallo VenA,
Deze code werkt perfect, excuus aan iedereen dat ik in de eerste vraagstelling niet duidelijk genoeg was.

Groet en dank,
Albert
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan