Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
default drop box to a value?
Hello,
I have a drop down box. Can I default it to a value? I have a macro and I have added a drop box, but would like it to default to a value. Right now, it leaves it blank. Please advise any feedback. Thanks, Juan |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
default drop box to a value?
Juan,
set the listindex property, or less reliably, set the value property of the combobox. e.g. if the combo is on a form: Private Sub UserForm_Initialize() Dim lCount As Long With ComboBox1 For lCount = 0 To 99 .AddItem lCount Next lCount .ListIndex = 0 'or not as reliable '.Value = 99 End With End Sub Robin Hammond www.enhanceddatasystems.com "juan" wrote in message ... Hello, I have a drop down box. Can I default it to a value? I have a macro and I have added a drop box, but would like it to default to a value. Right now, it leaves it blank. Please advise any feedback. Thanks, Juan |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
default drop box to a value?
Hell Robin,
thanks for the info, but I'm not using in a form. I created a macro to put the drop box on a sheet. Here's the macro portion: ActiveSheet.DropDowns.Add(111, 23.25, 75, 15.75).Select With Selection .Placement = xlFreeFloating .PrintObject = True End With With Selection .ListFillRange = "Sheet1!$P$2:$P$13" .LinkedCell = "$D$1" .DropDownLines = 8 .Display3DShading = False End With What I want is to default it to let say Cell P2 from my list range. Please advise. Thank u for your time. Juan -----Original Message----- Juan, set the listindex property, or less reliably, set the value property of the combobox. e.g. if the combo is on a form: Private Sub UserForm_Initialize() Dim lCount As Long With ComboBox1 For lCount = 0 To 99 .AddItem lCount Next lCount .ListIndex = 0 'or not as reliable '.Value = 99 End With End Sub Robin Hammond www.enhanceddatasystems.com "juan" wrote in message ... Hello, I have a drop down box. Can I default it to a value? I have a macro and I have added a drop box, but would like it to default to a value. Right now, it leaves it blank. Please advise any feedback. Thanks, Juan . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
default drop box to a value?
I've never actually done this before, but it looks like the value property
Sub Test() ActiveSheet.DropDowns.Add(111, 23.25, 75, 15.75).Select With Selection .Placement = xlFreeFloating .PrintObject = True End With With Selection .ListFillRange = "Sheet1!$P$2:$P$13" .LinkedCell = "$D$1" .DropDownLines = 8 .Display3DShading = False '*************add this .Value = 1 '******************* End With End Sub Robin Hammond www.enhanceddatasystems.com "Juan" wrote in message ... Hell Robin, thanks for the info, but I'm not using in a form. I created a macro to put the drop box on a sheet. Here's the macro portion: ActiveSheet.DropDowns.Add(111, 23.25, 75, 15.75).Select With Selection .Placement = xlFreeFloating .PrintObject = True End With With Selection .ListFillRange = "Sheet1!$P$2:$P$13" .LinkedCell = "$D$1" .DropDownLines = 8 .Display3DShading = False End With What I want is to default it to let say Cell P2 from my list range. Please advise. Thank u for your time. Juan -----Original Message----- Juan, set the listindex property, or less reliably, set the value property of the combobox. e.g. if the combo is on a form: Private Sub UserForm_Initialize() Dim lCount As Long With ComboBox1 For lCount = 0 To 99 .AddItem lCount Next lCount .ListIndex = 0 'or not as reliable '.Value = 99 End With End Sub Robin Hammond www.enhanceddatasystems.com "juan" wrote in message ... Hello, I have a drop down box. Can I default it to a value? I have a macro and I have added a drop box, but would like it to default to a value. Right now, it leaves it blank. Please advise any feedback. Thanks, Juan . |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
default drop box to a value?
Hello Robyn,
it seems to work, but now my problme is that it stays the drop box seems to stay active. Have Squares around it, so my stops doesn't perform the rest. Is there a way around this? really appreciate all the help you are providing. Thanks, Juan -----Original Message----- I've never actually done this before, but it looks like the value property Sub Test() ActiveSheet.DropDowns.Add(111, 23.25, 75, 15.75).Select With Selection .Placement = xlFreeFloating .PrintObject = True End With With Selection .ListFillRange = "Sheet1!$P$2:$P$13" .LinkedCell = "$D$1" .DropDownLines = 8 .Display3DShading = False '*************add this .Value = 1 '******************* End With End Sub Robin Hammond www.enhanceddatasystems.com "Juan" wrote in message ... Hell Robin, thanks for the info, but I'm not using in a form. I created a macro to put the drop box on a sheet. Here's the macro portion: ActiveSheet.DropDowns.Add(111, 23.25, 75, 15.75).Select With Selection .Placement = xlFreeFloating .PrintObject = True End With With Selection .ListFillRange = "Sheet1!$P$2:$P$13" .LinkedCell = "$D$1" .DropDownLines = 8 .Display3DShading = False End With What I want is to default it to let say Cell P2 from my list range. Please advise. Thank u for your time. Juan -----Original Message----- Juan, set the listindex property, or less reliably, set the value property of the combobox. e.g. if the combo is on a form: Private Sub UserForm_Initialize() Dim lCount As Long With ComboBox1 For lCount = 0 To 99 .AddItem lCount Next lCount .ListIndex = 0 'or not as reliable '.Value = 99 End With End Sub Robin Hammond www.enhanceddatasystems.com "juan" wrote in message .. . Hello, I have a drop down box. Can I default it to a value? I have a macro and I have added a drop box, but would like it to default to a value. Right now, it leaves it blank. Please advise any feedback. Thanks, Juan . . |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
default drop box to a value?
Sub Test()
With ActiveSheet.DropDowns.Add(111, 23.25, 75, 15.75) .Placement = xlFreeFloating .PrintObject = True .ListFillRange = "Sheet1!$P$2:$P$13" .LinkedCell = "$D$1" .DropDownLines = 8 .Display3DShading = False '*************add this .Value = 1 '******************* End With End Sub -- Regards, Tom Ogilvy "Juan" wrote in message ... Hello Robyn, it seems to work, but now my problme is that it stays the drop box seems to stay active. Have Squares around it, so my stops doesn't perform the rest. Is there a way around this? really appreciate all the help you are providing. Thanks, Juan -----Original Message----- I've never actually done this before, but it looks like the value property Sub Test() ActiveSheet.DropDowns.Add(111, 23.25, 75, 15.75).Select With Selection .Placement = xlFreeFloating .PrintObject = True End With With Selection .ListFillRange = "Sheet1!$P$2:$P$13" .LinkedCell = "$D$1" .DropDownLines = 8 .Display3DShading = False '*************add this .Value = 1 '******************* End With End Sub Robin Hammond www.enhanceddatasystems.com "Juan" wrote in message ... Hell Robin, thanks for the info, but I'm not using in a form. I created a macro to put the drop box on a sheet. Here's the macro portion: ActiveSheet.DropDowns.Add(111, 23.25, 75, 15.75).Select With Selection .Placement = xlFreeFloating .PrintObject = True End With With Selection .ListFillRange = "Sheet1!$P$2:$P$13" .LinkedCell = "$D$1" .DropDownLines = 8 .Display3DShading = False End With What I want is to default it to let say Cell P2 from my list range. Please advise. Thank u for your time. Juan -----Original Message----- Juan, set the listindex property, or less reliably, set the value property of the combobox. e.g. if the combo is on a form: Private Sub UserForm_Initialize() Dim lCount As Long With ComboBox1 For lCount = 0 To 99 .AddItem lCount Next lCount .ListIndex = 0 'or not as reliable '.Value = 99 End With End Sub Robin Hammond www.enhanceddatasystems.com "juan" wrote in message .. . Hello, I have a drop down box. Can I default it to a value? I have a macro and I have added a drop box, but would like it to default to a value. Right now, it leaves it blank. Please advise any feedback. Thanks, Juan . . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Drop Down Default | Excel Discussion (Misc queries) | |||
Default to Top of Drop Down List | Excel Worksheet Functions | |||
How do I set cell drag and drop to be on as a default | Excel Discussion (Misc queries) | |||
Drag&Drop / Cut &Paste default perameters | Excel Discussion (Misc queries) | |||
drop down list default | Excel Worksheet Functions |