Inventory macro

Hi!
I'm not new to VBA but I'm not as good as I would like. I want to develop an excel application for an inventory and searching the web for help I found something similar on this forum here:

Inventory help ver 1a.xls
http://www.excelforum.com/excel-prog...ro-needed.html

Although this is a great work, I would like to change the userform but the code in there is over my current skills, unfortunately.

What I have is a list with products that can have multiple locations. I also have the quantity field. I don't know if this is possible, but I would like to change the location to a combobox where, based on the value in on the textbox product, to list all possible locations. Also, I would be good if below the combobox a text will specify in how many location my product can be found. I want to allow users to add the product but also, if they choose a previous location for the product, to be able to edit quantities.

I already search the web and tried some things but nothing works and I'm not even close to what I want.
I'm willing to learn but I really need some advice or help.


-

Hi!
version1.xlsm
This is what I want to achieve.
I'm pretty ashamed on what I have done in there...I started by copying your code, bits by bits, just to understand what it does and how can I change it. Every time I thought I found something helpful on the web, I made some changes to your code and right now, the whole project is a mess.

This is first time I ever used userforms and combobox, never need them before...

I made some progress, now I'm trying to load values in combobox.

Sub ssss_Initialize
Dim cPart As Range
Dim cParts As Range
Dim ws As Worksheet
Set ws = Worksheets("Inventory")
Set cParts = Rangem(Range("b5"))
With ws
For Each cPart In cParts
  
 locations.AddItem cPart.Value
 .List(.ListCount - 1, 1) = cPart.Offset(0, 1).Value
End Sub

Function Rangem(RefCell As Range) As Range
    Dim prima As Range, ultima As Range
    With RefCell.Parent
    Set prima = .Cells(5, RefCell.Column)
    If IsEmpty(prima) Then Set prima = prima.End(xlDown)
    If prima.Address = .Cells(Rows.Count, RefCell.Column).Address Then
        Set Rangem = Nothing
    Else
        Set ultima = .Cells(Rows.Count, RefCell.Column).End(xlUp)
        Set Rangem = Range(prima, ultima)
        End If
        End With
    End Function

The form adds data if I input a location manually but I get this error: "Method or data member not found" - for

.List(.ListCount - 1, 1) = cPart.Offset(0, 1).Value

. Anyone has any idea what I'm doing wrong?

Done it !
Took me some time as I needed to understand user forms but the end result does exactly what I wanted
If someone needs the same thing, msg me and I will send the file.