Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Listboxes Without User Form
Hello people,
I have one combobox on my sheet and I am trying to put a listbox on the same sheet. so when i click on Add To List button it should add the selected value from combobox to the listbox. but i m not able to insert a listbox. can anyone please help me with this. This is the code i m using to insert a listbox on my sheet. and i m getting Type Mismatch error Sub TEST() Dim oOLE As OLEObject Dim lstCustomers As ListBox Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListB ox.1", Left:=537, Top:=89, Width:=120, Height:=15) Set lstCustomers = oOLE.Object End Sub hope to hear something on this. Vipul Agheda |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Listboxes Without User Form
Why are you trying to add it in code, why not just add it in design?
-- __________________________________ HTH Bob "Vipul" wrote in message ... Hello people, I have one combobox on my sheet and I am trying to put a listbox on the same sheet. so when i click on Add To List button it should add the selected value from combobox to the listbox. but i m not able to insert a listbox. can anyone please help me with this. This is the code i m using to insert a listbox on my sheet. and i m getting Type Mismatch error Sub TEST() Dim oOLE As OLEObject Dim lstCustomers As ListBox Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListB ox.1", Left:=537, Top:=89, Width:=120, Height:=15) Set lstCustomers = oOLE.Object End Sub hope to hear something on this. Vipul Agheda |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Listboxes Without User Form
hello bob,
thanks for your reply and question actually i tried to add the listbox control in design mode, just straight from the Forms toolbox to my sheet but if i add it like that then i m not getting all those controls in the coding. i mean for example if i draw a listbox on my sheet, and name it as ListBox1, then i am not getting that control in code. thats why i m trying to add it using code. if you know how can i use drawn controls in coding please please let me know. thats what i wanted basically. thanks again. cheers mate "Bob Phillips" wrote: Why are you trying to add it in code, why not just add it in design? -- __________________________________ HTH Bob "Vipul" wrote in message ... Hello people, I have one combobox on my sheet and I am trying to put a listbox on the same sheet. so when i click on Add To List button it should add the selected value from combobox to the listbox. but i m not able to insert a listbox. can anyone please help me with this. This is the code i m using to insert a listbox on my sheet. and i m getting Type Mismatch error Sub TEST() Dim oOLE As OLEObject Dim lstCustomers As ListBox Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListB ox.1", Left:=537, Top:=89, Width:=120, Height:=15) Set lstCustomers = oOLE.Object End Sub hope to hear something on this. Vipul Agheda |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Listboxes Without User Form
hey Dave
thanks a lot mate it worked for me. u know i m trying to get this for last 3 days. and finally i got it from u many thanks bro cheers mate "Dave Peterson" wrote: Use: Dim lstCustomers As msforms.ListBox When you used: Dim lstCustomers As ListBox You were using the listbox from the Forms toolbar. Vipul wrote: Hello people, I have one combobox on my sheet and I am trying to put a listbox on the same sheet. so when i click on Add To List button it should add the selected value from combobox to the listbox. but i m not able to insert a listbox. can anyone please help me with this. This is the code i m using to insert a listbox on my sheet. and i m getting Type Mismatch error Sub TEST() Dim oOLE As OLEObject Dim lstCustomers As ListBox Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListB ox.1", Left:=537, Top:=89, Width:=120, Height:=15) Set lstCustomers = oOLE.Object End Sub hope to hear something on this. Vipul Agheda -- Dave Peterson |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Listboxes Without User Form
hi again dave,
now i got another problem when i tried to add items in the list box i created, i m not able to retrieve the added items but not able to see them. here is the code: Sub TEST1() Dim oOLE As OLEObject Dim lstCustomers As MSFORMS.ListBox Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListB ox.1", Left:=537, Top:=189, Width:=120, Height:=150) Set lstCustomers = oOLE.Object lstCustomers.AddItem "A" lstCustomers.AddItem "b" lstCustomers.AddItem "c" lstCustomers.AddItem "d" MsgBox lstCustomers.List(2) End Sub "Dave Peterson" wrote: Use: Dim lstCustomers As msforms.ListBox When you used: Dim lstCustomers As ListBox You were using the listbox from the Forms toolbar. Vipul wrote: Hello people, I have one combobox on my sheet and I am trying to put a listbox on the same sheet. so when i click on Add To List button it should add the selected value from combobox to the listbox. but i m not able to insert a listbox. can anyone please help me with this. This is the code i m using to insert a listbox on my sheet. and i m getting Type Mismatch error Sub TEST() Dim oOLE As OLEObject Dim lstCustomers As ListBox Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListB ox.1", Left:=537, Top:=89, Width:=120, Height:=15) Set lstCustomers = oOLE.Object End Sub hope to hear something on this. Vipul Agheda -- Dave Peterson |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Listboxes Without User Form
I don't know why that happens.
Maybe you could use Bob's idea and place the listbox where you want it. Just hide it or unhide it in your code. Vipul wrote: hi again dave, now i got another problem when i tried to add items in the list box i created, i m not able to retrieve the added items but not able to see them. here is the code: Sub TEST1() Dim oOLE As OLEObject Dim lstCustomers As MSFORMS.ListBox Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListB ox.1", Left:=537, Top:=189, Width:=120, Height:=150) Set lstCustomers = oOLE.Object lstCustomers.AddItem "A" lstCustomers.AddItem "b" lstCustomers.AddItem "c" lstCustomers.AddItem "d" MsgBox lstCustomers.List(2) End Sub "Dave Peterson" wrote: Use: Dim lstCustomers As msforms.ListBox When you used: Dim lstCustomers As ListBox You were using the listbox from the Forms toolbar. Vipul wrote: Hello people, I have one combobox on my sheet and I am trying to put a listbox on the same sheet. so when i click on Add To List button it should add the selected value from combobox to the listbox. but i m not able to insert a listbox. can anyone please help me with this. This is the code i m using to insert a listbox on my sheet. and i m getting Type Mismatch error Sub TEST() Dim oOLE As OLEObject Dim lstCustomers As ListBox Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListB ox.1", Left:=537, Top:=89, Width:=120, Height:=15) Set lstCustomers = oOLE.Object End Sub hope to hear something on this. Vipul Agheda -- Dave Peterson -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Date field in user form & Loading a user form on opening workbook | Excel Programming | |||
ref or tutorial for user forms, listboxes | Excel Programming | |||
Multi Listboxes with data dependent upon user choices | Excel Programming | |||
How to: User Form to assign a user defined range to a macro variab | Excel Programming | |||
Form/Listboxes -- problems | Excel Programming |