Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > microsoft.public.scripting.vbscript > #11179
| X-Received | by 10.183.6.195 with SMTP id cw3mr18038830obd.47.1446928948913; Sat, 07 Nov 2015 12:42:28 -0800 (PST) |
|---|---|
| X-Received | by 10.182.250.169 with SMTP id zd9mr263919obc.1.1446928948823; Sat, 07 Nov 2015 12:42:28 -0800 (PST) |
| Path | csiph.com!xmission!news.glorb.com!i2no952455igv.0!news-out.google.com!fs1ni2064igb.0!nntp.google.com!i2no615253igv.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail |
| Newsgroups | microsoft.public.scripting.vbscript |
| Date | Sat, 7 Nov 2015 12:42:28 -0800 (PST) |
| Complaints-To | groups-abuse@google.com |
| Injection-Info | glegroupsg2000goo.googlegroups.com; posting-host=2602:306:cc2d:a330:507f:b391:d029:4ace; posting-account=oQcUqwoAAADiiE0D0Z3UguHkcNK_4fb7 |
| NNTP-Posting-Host | 2602:306:cc2d:a330:507f:b391:d029:4ace |
| User-Agent | G2/1.0 |
| MIME-Version | 1.0 |
| Message-ID | <fee3e422-c392-4249-8df6-3df79c0c00e5@googlegroups.com> (permalink) |
| Subject | SpecialCells(xlCellTypeVisible) |
| From | Ty <tyrone_bak@yahoo.com> |
| Injection-Date | Sat, 07 Nov 2015 20:42:28 +0000 |
| Content-Type | text/plain; charset=ISO-8859-1 |
| Xref | csiph.com microsoft.public.scripting.vbscript:11179 |
Show key headers only | 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
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