Select Whole List or Items in List Box
 

Hi all, I need macro on a button which can select all the items or
list in ListBox1. Please can any friend can help.

Select Whole List or Items in List Box
 

Dim i As Long

With Me.ListBox1

.MultiSelect = fmMultiSelectExtended
For i = 1 To .ListCount

.Selected(i - 1) = True
Next i
End With


--
__________________________________
HTH

Bob

"K" wrote in message
...
Hi all, I need macro on a button which can select all the items or
list in ListBox1. Please can any friend can help.

Select Whole List or Items in List Box
 

On Feb 18, 10:32*am, "Bob Phillips" wrote:
Dim i As Long

* * With Me.ListBox1

* * * * .MultiSelect = fmMultiSelectExtended
* * * * For i = 1 To .ListCount

* * * * * * .Selected(i - 1) = True
* * * * Next i
* * End With

--
__________________________________
HTH

Bob

"K" wrote in message

...



Hi all, *I need macro on a button which can select all the items or
list in ListBox1. *Please can any friend can help.- Hide quoted text -

- Show quoted text -

Thanks lot Bob.

Select Whole List or Items in List Box
 

On Feb 18, 10:32*am, "Bob Phillips" wrote:
Dim i As Long

* * With Me.ListBox1

* * * * .MultiSelect = fmMultiSelectExtended
* * * * For i = 1 To .ListCount

* * * * * * .Selected(i - 1) = True
* * * * Next i
* * End With

--
__________________________________
HTH

Bob

"K" wrote in message

...



Hi all, *I need macro on a button which can select all the items or
list in ListBox1. *Please can any friend can help.- Hide quoted text -

- Show quoted text -

Bob do you know that what sort of adjusment I should make in your
macro if I want to select all the items or list in ListBox1 except the
last item

Select Whole List or Items in List Box
 

"K" wrote in message
...
On Feb 18, 10:32 am, "Bob Phillips" wrote:
Dim i As Long

With Me.ListBox1

.MultiSelect = fmMultiSelectExtended
For i = 1 To .ListCount

.Selected(i - 1) = True
Next i
End With

--
__________________________________
HTH

Bob

"K" wrote in message

...



Hi all, I need macro on a button which can select all the items or
list in ListBox1. Please can any friend can help.- Hide quoted text -

- Show quoted text -

Bob do you know that what sort of adjusment I should make in your
macro if I want to select all the items or list in ListBox1 except the
last item

For i = 1 To .ListCount - 1

HTH. Best wishes Harald

Select Whole List or Items in List Box
 

On Feb 18, 2:18*pm, "Harald Staff" wrote:
"K" wrote in message

...
On Feb 18, 10:32 am, "Bob Phillips" wrote:





Dim i As Long

With Me.ListBox1

.MultiSelect = fmMultiSelectExtended
For i = 1 To .ListCount

.Selected(i - 1) = True
Next i
End With

--
__________________________________
HTH

Bob

"K" wrote in message

....

Hi all, I need macro on a button which can select all the items or
list in ListBox1. Please can any friend can help.- Hide quoted text -

- Show quoted text -

Bob do you know that what sort of adjusment I should make in your
macro if I want to select all the items or list in ListBox1 except the
last item

For i = 1 To .ListCount - 1

HTH. Best wishes Harald- Hide quoted text -

- Show quoted text -

thanks Harald