Sage 100

 View Only
  • 1.  Has anyone found a way in Sage Intelligence to sup

    Posted 08-14-2018 09:14
    Has anyone found a way in Sage Intelligence to suppress all the zero rows in all the worksheets in a report? I had found something in the Sage Intelligence forums a few years ago but it only worked on one sheet, not all of them


  • 2.  RE: Has anyone found a way in Sage Intelligence to sup

    Posted 08-14-2018 10:10
    This may help: https://www.sageintelligence.com/tips-and-tricks/sage-intelligence-tips-tricks/2015/05/hide-zero-rows-using-excel-functionality/


  • 3.  RE: Has anyone found a way in Sage Intelligence to sup

    Posted 08-14-2018 10:32
    But can this be automated to run on each sheet every time the report is run or a period selection is made?


  • 4.  RE: Has anyone found a way in Sage Intelligence to sup

    Posted 08-14-2018 11:27
    There are a couple ways; you can add it to the Macro section of the Advanced featues in SI and it will run after generation. Excel Macros can be assigned a keyboard shortcut, so that if a user changes period/year, then can invoke the macro: https://support.office.com/en-us/article/run-a-macro-5e855fd2-02d1-45f5-90a3-50e645fe3155


  • 5.  RE: Has anyone found a way in Sage Intelligence to sup

    Posted 08-14-2018 11:41
    I don't mess with SI much but could you design the template with the table having a filter on it to not show rows with a zero values and then save it?


  • 6.  RE: Has anyone found a way in Sage Intelligence to sup

    Posted 08-14-2018 14:12
      |   view attached
    Enclosed is what I use.

    Attachment(s)

    docx
    Sage_Intelligence.docx   39 KB 1 version


  • 7.  RE: Has anyone found a way in Sage Intelligence to sup

    Posted 08-15-2018 06:39
    Thanks everyone! I think I have something now, pending user testing. I altered the macro to not need a separate sum field to check for 0 - change the E & K as needed: Sub HideZeroRows() Dim sh As Worksheet Dim i As Long On Error Resume Next Application.Calculation = xlCalculationManual Application.ScreenUpdating = false For Each sh In ThisWorkbook.Worksheets For i = 8 To 150 sh.Rows(i).Hidden = Application.Sum(sh.Range(""E"" & i & "":K"" & i).Resize(, 36)) = 0 Next i Next sh Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub