Creating Warehouse Database in VBA Excel: Adding Products, Quantity, and Auto-updating Date-Time

Hello all


I will answer the questions right away, I'm not looking for a ready-made, I haven't used exel for 7 years and I'd rather do it on SQL and PHP

I have a task not for my strength and time. I need to do in exel, which is a strange option for me, the warehouse base in which I search for the product, it falls into the box with the entire (3 columns) name, then I add the size and quantity of the order below, which then goes to the next window with orders from the customer. Plus adding a data client. Adding the date and time of your order would be fun to download automatically.



What do I have a product search and the date automatically pops up after pressing a button on the keyboard but I would like it to be constant because it can be edited. I have to add to the sheet but I need to check the last empty cell and add another order.

I would like to ask you to take a look and suggest how to go about it.

How to change it to search in 3 columns?


With Sheets ("Base")
list = Range ("Base! A: A"). Value

'we need a multidimensional list
list2 = Application.Transpose (list)

'we filter the list
list2 = Filter (list2, Me.TextBox1.Value, True, vbTextCompare)

'I put a filtered list into the Listbox
Me.ListBox2.List = List2
End With
End Sub

I need to do a search, will anyone help?

Uh oh! So you have to re-program from scratch ...
Starting with "list = Range (" Base! B: B "). Value" - the array has size = number of rows in the sheet = 1,048,576 in Excel 2007.

I understand that the 'TextBox1' will be filled with criteria for filtering the 'ListBox2' list containing the list of articles from the "Database".

Filtering a multi-column list was once implemented by one of the forum users. An example in the appendix. Notice the Instr / Left (contains / from left) in the code for the criteria text boxes.

dj_wlodi_2000 wrote:

How to change it to search in 3 columns?

dj_wlodi_2000 wrote:

Filter (list2, Me.TextBox1.Value, True, vbTextCompare)

Function ' Filter 'does not support "multidimensions" - if the target allows it, then divide it into three stages, separate search for each column - if not, because it is to be one-whole, then you need to find some substitute of the type: equating variables in a simple loop, e.g. ' To ... Loop 'plus array or' Find 'in a loop plus an array, etc.

The program is working you had to do everything from the beginning thanks for your support