Opgelost Voorraad sorteren

[mvdvlist]

Hallo allemaal,

ik heb weer iets in elkaar geknutseld dat op zich naar behoren werkt.

Als ik iets volgens FIFO principe (of LIFO) sorteer, sorteert de hele tabel. Wanneer ik dan in het Sales formulier in TextBox "Search Sales" het artikel invul, krijg ik de goede lijst.

Wat ik zou willen:

Wanneer ik zo sorteer, moeten alle artikelen op artikelnaam alfabetisch blijven staan, maar alleen ONDERLING op Delivery_Date worden gesorteerd. Is dit vast mogelijk in VBA, maar ik kom er niet uit. Eigenlijk is het een dubbele sortering.
Op werkblad WAT WIL IK zie je wat ik bedoel...

Ik ben benieuwd...

 

[popipipo]

Je kunt een 2e level toevoegen aan het filter
1e op artikel naam en 2e op datum.

 

[mvdvlist]

Zal ik morgen eens bekijken Popipo. Helaas de pc net uit. Bedtijd voor dit oude mannetje na een drukke dag... . Ben nieuwsgierig....

 

[AHulpje]

Sub Sorteer()
    With ActiveWorkbook.Worksheets("WAT WIL IK").ListObjects("Tabel18").Sort
        .SortFields.Clear
        .SortFields.Add2 Key:=Range("Tabel18[Article]")
        .SortFields.Add2 Key:=Range("Tabel18[Delivery Date]")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[HSV]

Sub hsv()
With Sheets("wat wil ik").ListObjects("tabel18").Range
   .Sort .Cells(1, 2), , .Cells(1, 8), , , , , 1
End With
End Sub

 

[mvdvlist]

Alle drie prachtige oplossingen. Ik ga dit zeker (ook) met VBA doen.
Die superkorte code van hsv moet ik echt eens goed bestuderen...
Hartelijk dank voor de oplossing. Dit topic gaat op slot..

 

[snb]

Of:

Sub M_snb()
  Blad1.ListObjects(1).Range.Sort Cells(1, 2), , Cells(1, 8), , , , , 1
End Sub

PS. het voltooid deelwoord van 'sell' is 'sold'.

 

[mvdvlist]

Je hebt gelijk. Ga ik corrigeren...

 

[HSV]

@snb,, onderstaande heeft geen betrekking op de Listobject als die ergens anders staat of vanuit een ander blad de code te laten draaien lijkt me.

Cells(1, 2), , Cells(1, 8)

 

[snb]

@HSV

Dacht ik eerst ook.
Ik testte het, zonder problemen.

 

[HSV]

Ik had het niet getest, maar nu wel, en mijn verwachting is waarheid geworden als de tabel in J1 begint.

Foutmelding: de sorteersleutel is ongeldig!

 

[snb]

dan moet je gebruiken

Cells(1, 12), , Cells(1, 18)

 

[HSV]

Uiteraard, maar niet vanuit een ander blad wat ik al vermelde.
De code van mij is robuuster, maakt niet uit vanwaar je de code aanroept of bij verplaatsing van de tabel.

 

[snb]

Je hebt gelijk; bij tweede test lukt het niet meer.
Dan maar toevlucht tot:

Sub M_snb()
  Blad1.ListObjects(1).Range.Sort Blad1.Cells(1, 2), , Blad1.Cells(1, 8), , , , , 1
End Sub