Recent content by Belleke

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;))

Glad to help.:)

Like this?

Here you are.:)

Hi, Like this? 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...

Like this? 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() With Sheets("sheetname") .Range("A" &...

The code goes in a normal module not in ThisWorkbook module.

Maybe with something like this? (without a sample) Sub Protect_All_Formula_cells() On Error Resume Next Application.ScreenUpdating = False For i = 1 To Sheets.Count With Sheets(i) .Unprotect Password:="password" With .Cells .Locked = False .FormulaHidden = False End...

Does this help? Keep the excel file in the same folder as the Quotes (PDF) folder.

The VBA code in your file is password protected.

Hi, 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 With LB_00 .List = [ITs].Value .ColumnCount =...

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 Change...

Glad to help:)

Like this? See attached

Hi, See attached. 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