Autosort partslist with 2 parts list on 1 sheet

[Robin_Erich]

I use a I-logic rule I found on this forum to sort the parts list by POS and toggle auto sort on update,

my workplace uses 2 seperate parts lists, one for normal parts and one for purchased parts.

I would like to change the code so that it does the auto sort for both lists, is this possible?

the code we use:

On Error Resume Next
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oPartsList As PartsList
oPartsList = oDrawDoc.ActiveSheet.PartsLists.Item(1)
oPartsList.Sort2("POS", True, , , , , , True)

[JhoelForshav · Accepted solution]

@Robin_Erich 

Something like this should work then? 🙂

On Error Resume Next
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
For Each oPartsList As PartsList In oDrawDoc.ActiveSheet.PartsLists
oPartsList.Sort2("POS", True, , , , , , True)
Next

[Robin_Erich]

Thanks! it works like a charm.. have a nice day!