counting comments

[Robert Shlemkevich]

I am looking for a way to do one of two things. Either count the number of
comments in a row or column of cells, or to count the number of times a
specific word appears in a series of comments in a row or column.

Any suggestions?

[Gary''s Student]

check out this reference:

http://www.pcreview.co.uk/forums/thread-1770361.php

you can generalize this by using your range in place of ROWS(1)
--
Gary''s Student


"Robert Shlemkevich" wrote:

> I am looking for a way to do one of two things. Either count the number of
> comments in a row or column of cells, or to count the number of times a
> specific word appears in a series of comments in a row or column.
>
> Any suggestions?

[Gary''s Student]

Here is an adaptation of Pearson's code that I got to work:

Function ccount(r As Range) As Integer
Dim C As Comment
Dim r1 As Range
ccount = 0
For Each r1 In r
On Error Resume Next
Set C = r1.Comment
If Err.Number = 0 Then
ccount = 1 + 1
End If
On Error GoTo 0
Next
End Function
--
Gary''s Student


"Gary''s Student" wrote:

> check out this reference:
>
> http://www.pcreview.co.uk/forums/thread-1770361.php
>
> you can generalize this by using your range in place of ROWS(1)
> --
> Gary''s Student
>
>
> "Robert Shlemkevich" wrote:
>
> > I am looking for a way to do one of two things. Either count the number of
> > comments in a row or column of cells, or to count the number of times a
> > specific word appears in a series of comments in a row or column.
> >
> > Any suggestions?