Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel VBA Populatig UserFrom Contols as Design Time.
UserFrom1.ComboBox1 = "John Howard"
The above code populates the control ComboBox1 with the string John Howard. This is just a Runtime with the ComboBox not retaining the string. What is the syntes for populating the control ComboBox at Design Time so that the string is retained even after closing and reopening/ -- Regards John Howard Sydney, Australia |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel VBA Populatig UserFrom Contols as Design Time.
hi
2 basic ways to do that. set the rowsource or use the add item method. this would more that likely be used in the userform initilazation. assuming you have a list on a sheet somewhere. Private Sub UserForm_Initialize() Me.ComboBox1.ListFillRange = "" Me.ComboBox1.ListFillRange = "A1:A12" end sub or the add item method Dim r As Range Set r = Sheets("sheet1").Range("A1:A12") me.ComboBox1.Clear For Each c In r me.ComboBox1.AddItem c.Value Next c above code is untested by should work. Regards FSt1 "John Howard" wrote: UserFrom1.ComboBox1 = "John Howard" The above code populates the control ComboBox1 with the string John Howard. This is just a Runtime with the ComboBox not retaining the string. What is the syntes for populating the control ComboBox at Design Time so that the string is retained even after closing and reopening/ -- Regards John Howard Sydney, Australia |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel VBA Populatig UserFrom Contols as Design Time.
Hi FSt1,
Thanks for the prompt response. Unfotunately I didn't explain myself well. What I meant to say was that I want to populate the ComboBox Value at Design Time not the ComboBox RowSource. It is intended that sometimes the value will be populated from its dropdown and other times from a value in another ComboBox. -- Regards John Howard Sydney, Australia "FSt1" wrote: hi 2 basic ways to do that. set the rowsource or use the add item method. this would more that likely be used in the userform initilazation. assuming you have a list on a sheet somewhere. Private Sub UserForm_Initialize() Me.ComboBox1.ListFillRange = "" Me.ComboBox1.ListFillRange = "A1:A12" end sub or the add item method Dim r As Range Set r = Sheets("sheet1").Range("A1:A12") me.ComboBox1.Clear For Each c In r me.ComboBox1.AddItem c.Value Next c above code is untested by should work. Regards FSt1 "John Howard" wrote: UserFrom1.ComboBox1 = "John Howard" The above code populates the control ComboBox1 with the string John Howard. This is just a Runtime with the ComboBox not retaining the string. What is the syntes for populating the control ComboBox at Design Time so that the string is retained even after closing and reopening/ -- Regards John Howard Sydney, Australia |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel VBA Populatig UserFrom Contols as Design Time.
Sub test()
Dim arrList Dim u As UserForm Dim cbo As ComboBox arrList = Array("Line 111", "Line 222", "Line 333") Set u = ThisWorkbook.VBProject.VBComponents("UserForm1").D esigner Set cbo = u.ComboBox1 cbo.List = arrList End Sub You'll need to Trust access to VB Project in your security settings. FWIW you can design an entire Userform from scratch with the Designer object. Regards, Peter T "John Howard" wrote in message ... UserFrom1.ComboBox1 = "John Howard" The above code populates the control ComboBox1 with the string John Howard. This is just a Runtime with the ComboBox not retaining the string. What is the syntes for populating the control ComboBox at Design Time so that the string is retained even after closing and reopening/ -- Regards John Howard Sydney, Australia |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Resizing of picture different in run time and design time | Excel Programming | |||
I need a basic quick time line design | Excel Discussion (Misc queries) | |||
The design of this website sucks big time | New Users to Excel | |||
Design time events | Excel Programming | |||
Userfrom code in written in Excel 2000 running in Excel 97 | Excel Programming |