Discussions
Stay up-to-date with the latest news from NetSuite. You’ll be in the know about how to connect with peers and take your business to new heights at our virtual, in-person, on demand events, and much more.
New AI Community Guidelines. Please review and follow them to ensure AI use stays safe, accurate, and compliant.
Keep an eye out for upcoming NetSuite events, including meetups, workshops, and webinars. These sessions are a great way to connect with peers, learn from experts, and stay current on the latest NetSuite updates and best practices. Registration links are provided in each event.
Save $300 - limited to first 1,000 registrants
Join the NetSuite community to innovate, connect, and discover what’s next.
SuiteWorld brings thousands of innovators, builders, and leaders together to learn, connect, and shape what’s next. This October, explore how to build a stronger foundation for growth through inspiring keynotes, major product reveals, hands-on sessions, and unforgettable moments—all in one place for our biggest event of the year. Register now
Join the NetSuite community to innovate, connect, and discover what’s next.
SuiteWorld brings thousands of innovators, builders, and leaders together to learn, connect, and shape what’s next. This October, explore how to build a stronger foundation for growth through inspiring keynotes, major product reveals, hands-on sessions, and unforgettable moments—all in one place for our biggest event of the year. Register now
Excel macro to group exported reports
Hi,
I wrote a small excel macro that groups all reporting rows based on the indentation level that they are in. So that you easily can expand and collapse the groups.
It's very lightly tested and excel has a limitation of 8 levels.
Thought I'd share it if anyone has a need for it.
Sub NetsuiteToExcelGroup() Dim CurrentLine As Integer Dim LastLine As Integer Cells.RowHeight = 18.75 Cells.EntireRow.AutoFit LastLine = Cells(Rows.Count, 1).End(xlUp).Row With ActiveSheet.Outline .AutomaticStyles = False .SummaryRow = xlAbove .SummaryColumn = xlRight End With i = 1 Do While Cells(i, 1).Interior.Color <> 13684944 i = i + 1 Loop i = i + 1 CurrentLine = i Call Group(i, CurrentLine, LastLine) End Sub Sub Group(ByVal StartLine As Integer, ByRef CurrentLine As Integer, ByRef LastLine As Integer) stopper = False StartLine = CurrentLine Do While stopper = False If CurrentLine > LastLine Then Exit Do End If If Cells(CurrentLine, 1).IndentLevel < Cells(CurrentLine + 1,
0