Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > microsoft.public.scripting.vbscript > #11179

SpecialCells(xlCellTypeVisible)

Show all headers | View raw

Attempt to use "For Each TCell In CountRange.SpecialCells(xlCellTypeVisible)" for my excel problem.  It is not working.

Problem:  Only want to count colored cells that are filtered. Do not want count the hidden rows/cells.

Do anyone have an answer to my problem?

Function CountByColor(ICol as integer, CountRange As Range)

Application.Volatile

Dim TCell As Range

For Each TCell In CountRange.SpecialCells(xlCellTypeVisible)
    If ICol = TCell.value Then
        CountByColor = CountByColor + 1
    End If
Next TCell
End Function

Thanks,
Ty

Back to microsoft.public.scripting.vbscript | Previous | Next — Next in thread | Find similar

Thread

SpecialCells(xlCellTypeVisible) Ty <tyrone_bak@yahoo.com> - 2015-11-07 12:42 -0800
  Re: SpecialCells(xlCellTypeVisible) "Evertjan." <exxjxw.hannivoort@inter.nl.net> - 2015-11-07 22:26 +0100

csiph-web