Need to know how many tasks returned after appling filter

[luvgreen]

Greetings!

Is there a way to get count of tasks returned from applying filter? Thanks.

 

[luvgreen]

Also how can I know if filter returns nothing. Thanks.

 

[JackD]

Sub countOfFilteredTasks()
SelectAll
On Error GoTo ErrorHandler
MsgBox ActiveSelection.Tasks.Count
Exit Sub

ErrorHandler:
MsgBox "No tasks returned by filter"

End Sub

-Jack

Also how can I know if filter returns nothing. Thanks.

Thanks.

 

[John]

luvgreen,
I use the following to count the tasks in a filter,
SelectTaskColumn
ActiveSelection.count

There are various way to tell if the filter returned a null set.
Probably the most common is when a loop is used to do something with the
data in the tasks returned by the filter.
For Each t in ActiveSelection.Tasks
If Not t is Nothing Then
[do what you need]
Else
[returned set was null]
End If
Next t

If you are not in a loop you could also simply trap the error with code
such as this:
On Error Resume Next
Set Area = ActiveSelection.Tasks
If Err <> 0 Then
[the returned set is null]
Else
[there is at least one task in the returned set]
End If

Hope this helps.
John

 

[luvgreen]

Thank you Jack. You are so generous to share your knowledge.

 

[luvgreen]

Thank you John for your detailed answer. I do appreciate your help.

 

[Marty]

Thanks for the help Jack. You are awesome.

Sub countOfFilteredTasks()
SelectAll
On Error GoTo ErrorHandler
MsgBox ActiveSelection.Tasks.Count
Exit Sub

ErrorHandler:
MsgBox "No tasks returned by filter"

End Sub

-Jack



Thanks.