Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Anonymous
in reply to: Anonymous

I was able to tweak it ... THANKS One more thing ... How can I sort one column, then the next column? I want to sort VENDOR if no PART NUMBER, that works. After that, I want to sort STOCK NUMBER within the VENDOR sort. On Error Resume Next Dim oDrawDoc As DrawingDocument oDrawDoc = ThisApplication.ActiveDocument Dim oPartsList1 As PartsList oPartsList1 = oDrawDoc.ActiveSheet.PartsLists.Item(1) If oPartsList1 Is Nothing Then Resume Next oPartsList1.Sort("PART NUMBER") If ("PART NUMBER") Is Nothing Then Resume Next oPartsList1.Sort("VENDOR") oPartsList1.Renumber oPartsList1.SaveItemOverridesToBOM