dropdown - accessing values
 

Hello,
I am creating a dropdown. And I have 2 quick questions.

Lets say I create like this

Sub bbb()

Dim objDD As Excel.DropDown

Set objRange = Range("J13")
Set objDD = ActiveSheet.DropDowns.Add( _
Range(objRange.Address).Left, _
Range(objRange.Address).Top, Range(objRange.Address).Width,
Range(objRange.Address).Height)

objDD.Display3DShading = True
objDD.AddItem ("11")
objDD.AddItem ("22")
objDD.Name = "combobox1"

End Sub




How can I set the default displayed value, to "22"?

From some cell. Lets say A1. How can I display the value? I tried: A1
"=combobox1". and did not work.

thanks for any help

dropdown - accessing values
 

OK,
I can select the value.

by
objDD.Value = 1


But still wondering how I can link the selected value into a cell somewhere

thanks




"greg" wrote in message
...
Hello,
I am creating a dropdown. And I have 2 quick questions.

Lets say I create like this

Sub bbb()

Dim objDD As Excel.DropDown

Set objRange = Range("J13")
Set objDD = ActiveSheet.DropDowns.Add( _
Range(objRange.Address).Left, _
Range(objRange.Address).Top, Range(objRange.Address).Width,
Range(objRange.Address).Height)

objDD.Display3DShading = True
objDD.AddItem ("11")
objDD.AddItem ("22")
objDD.Name = "combobox1"

End Sub




How can I set the default displayed value, to "22"?

From some cell. Lets say A1. How can I display the value? I tried: A1
"=combobox1". and did not work.

thanks for any help

dropdown - accessing values
 

Just wondering if anyone knows how to access a Excel.DropDown from a cell?
Not from VBA.
Thanks


"greg" wrote in message
...
OK,
I can select the value.

by
objDD.Value = 1


But still wondering how I can link the selected value into a cell
somewhere

thanks




"greg" wrote in message
...
Hello,
I am creating a dropdown. And I have 2 quick questions.

Lets say I create like this

Sub bbb()

Dim objDD As Excel.DropDown

Set objRange = Range("J13")
Set objDD = ActiveSheet.DropDowns.Add( _
Range(objRange.Address).Left, _
Range(objRange.Address).Top, Range(objRange.Address).Width,
Range(objRange.Address).Height)

objDD.Display3DShading = True
objDD.AddItem ("11")
objDD.AddItem ("22")
objDD.Name = "combobox1"

End Sub




How can I set the default displayed value, to "22"?

From some cell. Lets say A1. How can I display the value? I tried: A1
"=combobox1". and did not work.

thanks for any help