comboBox vs Listbox

I'm stumped!!

I am trying to populate a Combobox from a range of data. Using the code
below, I can fill a listbox. However, If I add ComboBox1 to the form and
change the code below from "Me.ListBox1.AddItem cell.Value" to
"Me.ComboBox1.AddItem cell.Value", I get an error: Runtime error 70
Permission denied. Can someone help?

Private Sub UserForm_Initialize()
Dim cell As Range
Dim rng As Range

With ThisWorkbook.Sheets("shOrder")
Set rng = .Range("a4", .Range("a4").End(xlDown))
End With

For Each cell In rng.Cells
Me.ListBox1.AddItem cell.Value
Next cell
End sub

--
Steve

That sounds as though you have set the RowSource property in the Combobox,
which means you cannoty add to the combo.

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Steve" <No Spam> wrote in message news:441606b0$1@dnews.tpgi.com.au...
> I'm stumped!!
>
> I am trying to populate a Combobox from a range of data. Using the code
> below, I can fill a listbox. However, If I add ComboBox1 to the form and
> change the code below from "Me.ListBox1.AddItem cell.Value" to
> "Me.ComboBox1.AddItem cell.Value", I get an error: Runtime error 70
> Permission denied. Can someone help?
>
> Private Sub UserForm_Initialize()
> Dim cell As Range
> Dim rng As Range
>
> With ThisWorkbook.Sheets("shOrder")
> Set rng = .Range("a4", .Range("a4").End(xlDown))
> End With
>
> For Each cell In rng.Cells
> Me.ListBox1.AddItem cell.Value
> Next cell
> End sub
>
> --
> Steve
>
>

Bob

That sounds right and is right!

Should have spotted that myself. Didn't even look at properties. Just swore
a lot. Strange that the latter didn't fix it <bg>.

--
Steve


"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
news:eWanZtvRGHA.5656@TK2MSFTNGP11.phx.gbl...
> That sounds as though you have set the RowSource property in the Combobox,
> which means you cannoty add to the combo.
>
> --
>
> HTH
>
> Bob Phillips
>
> (remove nothere from the email address if mailing direct)
>
> "Steve" <No Spam> wrote in message news:441606b0$1@dnews.tpgi.com.au...
>> I'm stumped!!
>>
>> I am trying to populate a Combobox from a range of data. Using the code
>> below, I can fill a listbox. However, If I add ComboBox1 to the form and
>> change the code below from "Me.ListBox1.AddItem cell.Value" to
>> "Me.ComboBox1.AddItem cell.Value", I get an error: Runtime error 70
>> Permission denied. Can someone help?
>>
>> Private Sub UserForm_Initialize()
>> Dim cell As Range
>> Dim rng As Range
>>
>> With ThisWorkbook.Sheets("shOrder")
>> Set rng = .Range("a4", .Range("a4").End(xlDown))
>> End With
>>
>> For Each cell In rng.Cells
>> Me.ListBox1.AddItem cell.Value
>> Next cell
>> End sub
>>
>> --
>> Steve
>>
>>
>
>

Bob

That sounds right and is right!

Should have spotted that myself. Didn't even look at properties. Just swore
a lot. Strange that the latter didn't fix it <bg>.

--
Steve


"Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
news:eWanZtvRGHA.5656@TK2MSFTNGP11.phx.gbl...
> That sounds as though you have set the RowSource property in the Combobox,
> which means you cannoty add to the combo.
>
> --
>
> HTH
>
> Bob Phillips
>
> (remove nothere from the email address if mailing direct)
>
> "Steve" <No Spam> wrote in message news:441606b0$1@dnews.tpgi.com.au...
>> I'm stumped!!
>>
>> I am trying to populate a Combobox from a range of data. Using the code
>> below, I can fill a listbox. However, If I add ComboBox1 to the form and
>> change the code below from "Me.ListBox1.AddItem cell.Value" to
>> "Me.ComboBox1.AddItem cell.Value", I get an error: Runtime error 70
>> Permission denied. Can someone help?
>>
>> Private Sub UserForm_Initialize()
>> Dim cell As Range
>> Dim rng As Range
>>
>> With ThisWorkbook.Sheets("shOrder")
>> Set rng = .Range("a4", .Range("a4").End(xlDown))
>> End With
>>
>> For Each cell In rng.Cells
>> Me.ListBox1.AddItem cell.Value
>> Next cell
>> End sub
>>
>> --
>> Steve
>>
>>
>
>