Hey guys what is the code to count the number of selected
items in a listbox. I know how to count the total number
of items in a listbox but how do you count the total
number of items that are selected?


Thank you
Todd Huttenstine

This is a followup to my original post:

I came up with the following code...

Dim Counter As Long
Counter = 0
With ListBox1
For i = 0 To .ListCount - 1
ListValue = .List(i)
If .Selected(i) = True Then
Counter = Counter + 1
End If
Next
MsgBox Counter
End With

Can anyone tell me if there is a more effecient way of
doing this?


Thanks
Todd Huttenstine




-----Original Message-----
Hey guys what is the code to count the number of selected
items in a listbox. I know how to count the total number
of items in a listbox but how do you count the total
number of items that are selected?


Thank you
Todd Huttenstine
.

Dim Counter As Long
Counter = 0
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Counter = Counter + 1
End If
Next
MsgBox Counter
End With

No reason to assign the list value to listvalue

Why are you worried about this? There is no built in count you can access.
You must have some pretty tight code if you are worried about this
efficiency.

--
Regards,
Tom Ogilvy

"Todd Huttenstine" wrote in message
...
This is a followup to my original post:

I came up with the following code...

Dim Counter As Long
Counter = 0
With ListBox1
For i = 0 To .ListCount - 1
ListValue = .List(i)
If .Selected(i) = True Then
Counter = Counter + 1
End If
Next
MsgBox Counter
End With

Can anyone tell me if there is a more effecient way of
doing this?


Thanks
Todd Huttenstine




-----Original Message-----
Hey guys what is the code to count the number of selected
items in a listbox. I know how to count the total number
of items in a listbox but how do you count the total
number of items that are selected?


Thank you
Todd Huttenstine
.

Dim i As Long
Dim c As Long

With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
c = c + 1
End If
Next i
End With

MsgBox c & " items selected"


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Todd Huttenstine" wrote in message
...
Hey guys what is the code to count the number of selected
items in a listbox. I know how to count the total number
of items in a listbox but how do you count the total
number of items that are selected?


Thank you
Todd Huttenstine

Thank you

Yes I need to count the number of selected items in the
listbox as a validation. I have items(week numbers for
each month) in the listbox tied to pivotfields(weeks worth
of data) in pivot tables. I have a pivot table underneath
the pivot table I am manipulating with the listbox. I
want to ensure that a user does not select more than 6
pivotfields (in the listbox) so it does not build the
pivot table on top of the second pivot table below. A
user will never need to select more than 6 months of data
because there are no more than 6 full/incomplete weeks in
any givin month.



Todd
-----Original Message-----
Dim Counter As Long
Counter = 0
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Counter = Counter + 1
End If
Next
MsgBox Counter
End With

No reason to assign the list value to listvalue

Why are you worried about this? There is no built in
count you can access.
You must have some pretty tight code if you are worried
about this
efficiency.

--
Regards,
Tom Ogilvy

"Todd Huttenstine"
wrote in message
...
This is a followup to my original post:

I came up with the following code...

Dim Counter As Long
Counter = 0
With ListBox1
For i = 0 To .ListCount - 1
ListValue = .List(i)
If .Selected(i) = True Then
Counter = Counter + 1
End If
Next
MsgBox Counter
End With

Can anyone tell me if there is a more effecient way of
doing this?


Thanks
Todd Huttenstine




-----Original Message-----
Hey guys what is the code to count the number of
selected
items in a listbox. I know how to count the total
number
of items in a listbox but how do you count the total
number of items that are selected?


Thank you
Todd Huttenstine
.



.