SUMVISIBLE

Returns the total value of the numbers in cells that are visible

Public Function SUMVISIBLE(ByVal rgeSearchCells As Range) As Double 
Dim rgeCell As Range
For Each rgeCell In rgeSearchCells
   If ( (rgeCell.Rows.Hidden = False) And (rgeCells.Columns.Hidden = False) ) Then
      SUMVISIBLE = SUMVISIBLE + rgeCell.Value
   End If
Next rgeCell
End Function



© 2019 Better Solutions Limited. All Rights Reserved. © 2019 Better Solutions Limited TopPrevNext