Reading List Box Value
 

I will guess the listbox is from the forms toolbar instead of the control
toolbox toolbar

and Listbox_click is assigned to the listbox.


Sub Listbox_click()
dim sName as String
dim lbox as Listbox

sName = Application.Caller
set lbox = Activesheet.Listboxes(sName)

with lbox
msgbox sname & ": " & .list(.listindex)
End With


End Sub

--
Regards,
Tom Ogilvy


Bob Wilcox wrote in message
...
Hello,

In one module, I have sucessfully created and populated a
listbox on a worksheet. My last LOC in that module is to
Set objListBox = Nothing.

However, in the module, "ListBox_Click" (which does
display a MsgBox when clicked), I cannot determine the
values of the clicked data. Question, do I use Shapes,
Controls or somthing else? What and how do I set the
object?

B Wilcox

Reading List Box Value
 

I used the command:

Set objListBox = .Shapes.AddFormControl(xlListBox, 400,
10, 100, 400)

to create the list box.



-----Original Message-----
I will guess the listbox is from the forms toolbar
instead of the control
toolbox toolbar

and Listbox_click is assigned to the listbox.


Sub Listbox_click()
dim sName as String
dim lbox as Listbox

sName = Application.Caller
set lbox = Activesheet.Listboxes(sName)

with lbox
msgbox sname & ": " & .list(.listindex)
End With


End Sub

--
Regards,
Tom Ogilvy


Bob Wilcox wrote in message
...
Hello,

In one module, I have sucessfully created and populated
a
listbox on a worksheet. My last LOC in that module is
to
Set objListBox = Nothing.

However, in the module, "ListBox_Click" (which does
display a MsgBox when clicked), I cannot determine the
values of the clicked data. Question, do I use Shapes,
Controls or somthing else? What and how do I set the
object?

B Wilcox




.

Reading List Box Value
 

Yes, that produces a Listbox from the forms toolbar. My code works with
that.

Here is an example:

Sub Macro1()
Dim objListbox As Object
For Each shp In ActiveSheet.Shapes
shp.Delete
Next
With ActiveSheet
Set objListbox = .Shapes. _
AddFormControl(xlListBox, 400, 10, 100, 400)
End With
objListbox.ControlFormat.ListFillRange = _
"Sheet1!A1:A10"
ActiveSheet.ListBoxes(objListbox.Name) _
.OnAction = "Listbox_click"

End Sub


Sub Listbox_click()
Dim sName As String
Dim lbox As ListBox

sName = Application.Caller
Set lbox = ActiveSheet.ListBoxes(sName)

With lbox
MsgBox sName & ": " & .List(.ListIndex)
End With


End Sub

--
Regards,
Tom Ogilvy

"b wilcox" wrote in message
...
I used the command:

Set objListBox = .Shapes.AddFormControl(xlListBox, 400,
10, 100, 400)

to create the list box.



-----Original Message-----
I will guess the listbox is from the forms toolbar
instead of the control
toolbox toolbar

and Listbox_click is assigned to the listbox.


Sub Listbox_click()
dim sName as String
dim lbox as Listbox

sName = Application.Caller
set lbox = Activesheet.Listboxes(sName)

with lbox
msgbox sname & ": " & .list(.listindex)
End With


End Sub

--
Regards,
Tom Ogilvy


Bob Wilcox wrote in message
...
Hello,

In one module, I have sucessfully created and populated
a
listbox on a worksheet. My last LOC in that module is
to
Set objListBox = Nothing.

However, in the module, "ListBox_Click" (which does
display a MsgBox when clicked), I cannot determine the
values of the clicked data. Question, do I use Shapes,
Controls or somthing else? What and how do I set the
object?

B Wilcox




.