VBA sorteren met twee voorwaarden

[AD1957]

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

 

[cow18]

Sub Sorteer()
    With Worksheets("Blad1").Range("A1").CurrentRegion
        .Sort .Columns("G"), xlAscending, , .Columns("C"), xlAscending, Header:=xlYes
    End With
End Sub

 

[AD1957]

ik heb de code aangepast maar geen resultaat, geen extra sortering op postcode

 

[cow18]

??? aangepast in userform1, button4

 

[AD1957]

volgens mij goed gedaan

Bekijk bijlage ONDERHOUDSLIJST2.xlsb

 

[SjonR]

Wil je per datum een sortering op postcode of per postcode een sortering op datum ( hetgeen Cow18 dus heeft gerealiseerd)?

 

[AD1957]

zal de volgorde van sorteren veranderen en kijken of het dan wel is wat ik zoek

 

[VenA]

Iets anders geschreven

Private Sub CommandButton4_Click()
  Cells(1).CurrentRegion.Sort [C1], , [G1], , , , , xlYes
End Sub

 

[AD1957]

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)

 

[VenA]

Volgens mij staat er nergens dat er op kleur gesorteerd moet worden. Ipv uren zoeken kan je ook een macro opnemen.

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

 

[AD1957]

Hallo VenA,
Deze code werkt perfect, excuus aan iedereen dat ik in de eerste vraagstelling niet duidelijk genoeg was.

Groet en dank,
Albert