SUMVISIBLE

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


SUM -


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



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