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 |
comboBox vs Listbox
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 ... 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 |
comboBox vs Listbox
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" wrote in message ... 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 ... 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 |
All times are GMT +1. The time now is 10:44 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com