1. Have a look at the properties of the listbox. (ColumnWidths)
2. For the column headers I used 2 labels. If you want headers in the listbox you have to use RowSource instead of List and I never use RowSource.
(I was told once RowSource is for people that use VBA but don't know VBA;))
Don't forget to change the correct path in the code first (3x)
No need to open Data file.
When the user form is opened, Warehouse 1 is loaded. If you change to tab 2 then Warehouse 2 is loaded, if you go back to tab 1 Warehouse 1 is loaded.
When you use the search function, the...
Change Sheetname with the real name of your sheet where the listbox records have to go.
Put the code under a button, make sure the name of the button and the buttonname in the code are the same.
Private Sub CommandButton1_Click()
Maybe with something like this? (without a sample)
On Error Resume Next
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
.Locked = False
.FormulaHidden = False
You did it pretty well. It was partly my fault, now that I've looked at your file it's clearer.
First remark, avoid using AddItem,it is a slow way to fill combo-en listboxes.
Wat did you do wrong.
To fill the listbox you used
.List = [ITs].Value
You get this error because you don't have 31 Columns in your listbox. (listbox start with column 0)
Name your textboxes as I do and start with T_00 OR T_01
assuming we have 10 textboxes then you use For i = 0 To 9 or For 1 T0 10.
To start in Column T
For the Add New Record button
You kan add a comment with de edit button.
Comment is added in column A, but you can easy change it.
in de Edit Record button code change the 1 with the column number you want.
ws.Cells(fnd.Row, 1).AddComment T_18.Value