I have an excel file with 2 worksheets (Sheet 1 and Sheet 2) and a userform with a listbox. The listbox should pull 2 columns from sheet 2 but it always pull the columns from sheet 1.
I am using the following code:
ListBox1.RowSource = “A2:B50“
I tried:
ListBox1.RowSource = “Sheet2!A2:B50“
but get an
Runtime error 380 code. Could not set the RowSource property. Invalid property value.
How do I fix that?
Following code just work fine for me.
Private Sub UserForm_Initialize()
Me.ListBox1.RowSource = "Sheet2!A2:B10"
End Sub
When open form shows like...
Related
So i have a Userform,
On this UserForm I have a ComboBox (comboDepartment), a TextBox (txtCode), and another TextBox (textDescription). Each ComboBox selection has a sheet. (e.g. Robo1, Robo2, etc...). The worksheets have 2 columns ( Column A = is the Error Code and Column B = is the Error Description)
Now my question, Depending on (comboDepartment) comboBox selection have it select the proper worksheet (Maybe set it as a varible?).
Next user would input an Error Code into (txtCode) TextBox (Just Numbers e.g. 1,2,3, etc...), after inputing the code I need it to fill in the (textDescription) TextBox from column B from the worksheet depending on the error code the user inputed.
Was wondering if this is at all possible?
Thank you in advance!
Collect all sheets by getting their names and add them on your combobox. On your Private sub Userform_Initialize method:
For each deptSheet in Thisworkbook.Worksheets
comboDepartment.AddItem deptSheet.Name
Next
Create a private variable for your worksheet (dim deptSheet as Worksheet) and set the selected value on the combobox. On your Private sub comboDepartment_Change method:
set deptSheet = Thisworkbook.Sheets(comboDepartment.Value)
You may now reference the sheet on the selected dropdown by: deptSheet.Range("...
I am building an Excel workbook with a userform built with vba. I have a listbox control on it with multiple columns. I want the column headers to appear. So from what I read, I am forced to populate the listbox using the RowSource property. I tied the RowSource to a listobject. The userform also has buttons to add or remove rows in the listobject, which need to be repeated in the listbox. When I try to update the RowSource after a change in the listbox, Excel crashes and reopens every time.
I have a solution to work around this problem. If I populate the listbox using the List property, I can add and remove rows and everything works fine. But if I do use the List property, it is not possible to have column headers in the listbox. There is a solution for this too as suggested by Jonas_Hess in this post: How to add headers to a multicolumn listbox in an Excel userform using VBA. But I would of prefered to have the column headers in the listbox itself.
To reproduce the problem I built a simple form with a listbox and a button. I tied the RowSource of the listbox to a listobject. The listobject only has three rows and 1 column. The cell values are 1, 2, 3. The button's purpose is to add new rows to the listobject and update the listbox.
Here's the code:
Private Sub UserForm_Initialize()
ListBox1.RowSource = Worksheets(1).ListObjects(1).DataBodyRange.Address
End Sub
Private Sub cmdAdd_Click()
Dim Table As ListObject
Set Table = Worksheets(1).ListObjects(1)
Table.Resize Range(Cells(1, 1), Cells(Table.ListRows.Count + 2, 1))
Table.DataBodyRange(Table.ListRows.Count, 1).Value = Table.DataBodyRange(Table.ListRows.Count - 1, 1).Value + 1
ListBox1.RowSource = Empty
ListBox1.RowSource = Table.DataBodyRange.Address
End Sub
I am wondering if there is a way to add or delete rows of the RowSource property of a listbox in Excel VBA.
Following ProfoundlyOblivious suggestions, I tried the same code on a colleagues workstation. He has Excel 2016 32 bits on Windows 10 64 bits. Turns out Excel was crashing at the Table.Resize line for him. This gave me the idea to try and reassign the ListBox1.RowSource = Empty prior to messing to the ListObject. Everything worked fine. Excel did not crash when reassigning the RowSource, on both workstations.
Here's the modified code:
Private Sub UserForm_Initialize()
ListBox1.RowSource = Worksheets(1).ListObjects(1).DataBodyRange.Address
End Sub
Private Sub cmdAdd_Click()
Dim Table As ListObject
ListBox1.RowSource = Empty
Set Table = Worksheets(Feuil1.Index).ListObjects(1)
Table.Resize Worksheets(Feuil1.Index).Range(Worksheets(Feuil1.Index).Cells(1, 1), Worksheets(Feuil1.Index).Cells(Table.ListRows.Count + 2, 1))
Table.DataBodyRange(Table.ListRows.Count, 1).Value = Table.DataBodyRange(Table.ListRows.Count - 1, 1).Value + 1
ListBox1.RowSource = Table.DataBodyRange.Address
End Sub
I have cell A1 = Number, A2 = 1, A3 = 2, A4 = 3. Clicking the add button added a new value below the usedrange and in the ListBox.
It looks like using the ListObject.Resize method when it is linked to a RowSourceis not stable on all Excel versions and was the source of my problem.
In userform I inserted ComboBox and i have to add list through Array following are the code. I want that whether it is possible that in ComboBox list will get from a Range in sheet (like in case of Data Validation)
Private Sub UserForm_Initialize()
ComboBox1.List = Array("Item1", "Item2", "Item3", "Item4")
End Sub
you can use the range in the sheet to create, even a named range, e.g.:
combobox1.list = range(cells(1,1),cells(100,1)).value
combobox2.list = sheets(1).range("NamedRange")
arr = array("1","2","3")
combobox3.list = arr
This is how you'd use a range to set the row source of a combo box. You can also do this in vba.
Me.combobox1.RowSource = "MyRange"
You can set this to a Table (ListObject) instead of a static range. Create a Table with your list of values, instead of just using a static range of cells. This way when you need to add to the list, you simply enter the new values, which are added to the Table. In my example, I have a Table named "Table1" and a column with the heading "Numbers". Then call this function:
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "=Table1[Numbers]"
End Sub
You have to do this on the Iniitalize, since setting the RowSource from the ComboBox Properties will cause Excel to crash the first time you add an item to your list.
This gives you a list that you can edit without having to edit the code behind the UserForm.
I have a combobox to a userform and the its not an activesheet in excel so not sure how to go about it.
The sheet name is "DoNotPrint - Rate Index" and the values within that sheet to appear in the combobox are the columns C2:AS2.
Private Sub ComboBox1_Change()
Sheets("DoNotPrint - Rate Index").Range("C2:AS2") = ComboBox1.Value
End Sub
I tried this code and the combobox list isn't populating those column when the combobox list button is clicked.
The code you posted is for taking what's in the combobox and putting it on the sheet, when it's selected. But if I understand correctly your issue is you can't get the combobox populated. Because you are using a single row as your dataset and not a single column you will need to transpose your data.
Private Sub UserForm_Initialize()
ComboBox1.List = WorksheetFunction.Transpose(Sheet1.Range("C2:AS2"))
End Sub
I've got a spreadsheet with two sheets, lets call them Sheet A and Sheet B.
From Sheet A, I click a button and it opens a form with a listbox.
Sheet B has 10 columns of data.
I want to select 3 of these columns contents, (A, B, F).
And display them in this one listbox in different columns but it just isn't working and can't find the correct way to do this..
This is what I have so far:
git://gist.github.com/4131461.git
So in the end I want a list box with 3 columns, each populate with the ranges 1-10 from 3 columns..
I just started doing VBA and I have no idea how to do this..
Help?
lbData is the listbox, change Sheet2 as appropriate to reference your data. Add the below in the userform:
Private Sub UserForm_Initialize()
With Me.lbData
.ColumnCount = 3
.ColumnWidths = "33;33;33"
.RowSource = Sheet2.Range("A1:C10").Address
End With
End Sub