I have created a list box using the multi select function. What I would like
to do is be able to highlight multiple items(not in any particular order) in
the list box and then return their selection to cells M1, M2, M3 and so on.

I tried writing in a macro code to do this but it didn't seem to help. I
got the code from a previous posting but kep getting an error message about
the ME function:
Dim i As Long
Dim j As Long
With.Me.ListBox1
For i= 0 To .List Count -1
If.Selected(i) Then
j=j + 1
me.range("A" & j).Value = .List(i)
End If
Next i
end With
End Sub

Does anyone out there have any suggestions for someone new to excel? Thank
you!

Dim i As Long
Dim j As Long
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
j = j + 1
ActiveSheet.Range("M" & j).Value = .List(i)
End If
Next i
End With


--
HTH

Bob Phillips

"LilyDog7" wrote in message
...
I have created a list box using the multi select function. What I would
like
to do is be able to highlight multiple items(not in any particular order)
in
the list box and then return their selection to cells M1, M2, M3 and so
on.

I tried writing in a macro code to do this but it didn't seem to help. I
got the code from a previous posting but kep getting an error message
about
the ME function:
Dim i As Long
Dim j As Long
With.Me.ListBox1
For i= 0 To .List Count -1
If.Selected(i) Then
j=j + 1
me.range("A" & j).Value = .List(i)
End If
Next i
end With
End Sub

Does anyone out there have any suggestions for someone new to excel? Thank
you!

thanks bob, I copied your code exactley but I am getting an error message
"Invalid use of ME keyword" still. any suggestions?

"Bob Phillips" wrote:

Dim i As Long
Dim j As Long
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
j = j + 1
ActiveSheet.Range("M" & j).Value = .List(i)
End If
Next i
End With


--
HTH

Bob Phillips

"LilyDog7" wrote in message
...
I have created a list box using the multi select function. What I would
like
to do is be able to highlight multiple items(not in any particular order)
in
the list box and then return their selection to cells M1, M2, M3 and so
on.

I tried writing in a macro code to do this but it didn't seem to help. I
got the code from a previous posting but kep getting an error message
about
the ME function:
Dim i As Long
Dim j As Long
With.Me.ListBox1
For i= 0 To .List Count -1
If.Selected(i) Then
j=j + 1
me.range("A" & j).Value = .List(i)
End If
Next i
end With
End Sub

Does anyone out there have any suggestions for someone new to excel? Thank
you!

Is the listbox on a worksheet, I assumed it was on a userform? If it is not
a userform, your code means that it must be a Control Toolbox listbox, and
therefore it should be stored in the worksheet code module, and Me will work
fine then..

--
HTH

Bob Phillips

"LilyDog7" wrote in message
...
thanks bob, I copied your code exactley but I am getting an error message
"Invalid use of ME keyword" still. any suggestions?

"Bob Phillips" wrote:

Dim i As Long
Dim j As Long
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
j = j + 1
ActiveSheet.Range("M" & j).Value = .List(i)
End If
Next i
End With


--
HTH

Bob Phillips

"LilyDog7" wrote in message
...
I have created a list box using the multi select function. What I
would
like
to do is be able to highlight multiple items(not in any particular
order)
in
the list box and then return their selection to cells M1, M2, M3 and
so
on.

I tried writing in a macro code to do this but it didn't seem to help.
I
got the code from a previous posting but kep getting an error message
about
the ME function:
Dim i As Long
Dim j As Long
With.Me.ListBox1
For i= 0 To .List Count -1
If.Selected(i) Then
j=j + 1
me.range("A" & j).Value = .List(i)
End If
Next i
end With
End Sub

Does anyone out there have any suggestions for someone new to excel?
Thank
you!

thanks that did work! now using the control toolbox list form, is there a
way i can highlight multiple items from a listbox and have them listed in
cell M!, M2 M3 etc...? right now the way it is set up, i can only highlight 1
item at atime.

"Bob Phillips" wrote:

Dim i As Long
Dim j As Long
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
j = j + 1
ActiveSheet.Range("M" & j).Value = .List(i)
End If
Next i
End With


--
HTH

Bob Phillips

"LilyDog7" wrote in message
...
I have created a list box using the multi select function. What I would
like
to do is be able to highlight multiple items(not in any particular order)
in
the list box and then return their selection to cells M1, M2, M3 and so
on.

I tried writing in a macro code to do this but it didn't seem to help. I
got the code from a previous posting but kep getting an error message
about
the ME function:
Dim i As Long
Dim j As Long
With.Me.ListBox1
For i= 0 To .List Count -1
If.Selected(i) Then
j=j + 1
me.range("A" & j).Value = .List(i)
End If
Next i
end With
End Sub

Does anyone out there have any suggestions for someone new to excel? Thank
you!

You have to set the MultiSelect property to fmMultiSelectMulti

--
HTH

Bob Phillips

"LilyDog7" wrote in message
...
thanks that did work! now using the control toolbox list form, is there a
way i can highlight multiple items from a listbox and have them listed in
cell M!, M2 M3 etc...? right now the way it is set up, i can only
highlight 1
item at atime.

"Bob Phillips" wrote:

Dim i As Long
Dim j As Long
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
j = j + 1
ActiveSheet.Range("M" & j).Value = .List(i)
End If
Next i
End With


--
HTH

Bob Phillips

"LilyDog7" wrote in message
...
I have created a list box using the multi select function. What I
would
like
to do is be able to highlight multiple items(not in any particular
order)
in
the list box and then return their selection to cells M1, M2, M3 and
so
on.

I tried writing in a macro code to do this but it didn't seem to help.
I
got the code from a previous posting but kep getting an error message
about
the ME function:
Dim i As Long
Dim j As Long
With.Me.ListBox1
For i= 0 To .List Count -1
If.Selected(i) Then
j=j + 1
me.range("A" & j).Value = .List(i)
End If
Next i
end With
End Sub

Does anyone out there have any suggestions for someone new to excel?
Thank
you!

And you got more responses in .misc.

LilyDog7 wrote:

I have created a list box using the multi select function. What I would like
to do is be able to highlight multiple items(not in any particular order) in
the list box and then return their selection to cells M1, M2, M3 and so on.

I tried writing in a macro code to do this but it didn't seem to help. I
got the code from a previous posting but kep getting an error message about
the ME function:
Dim i As Long
Dim j As Long
With.Me.ListBox1
For i= 0 To .List Count -1
If.Selected(i) Then
j=j + 1
me.range("A" & j).Value = .List(i)
End If
Next i
end With
End Sub

Does anyone out there have any suggestions for someone new to excel? Thank
you!

--

Dave Peterson