Anonymous
in reply to:
Anonymous
09-21-2016
05:58 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-21-2016
05:58 AM
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