Forum

Multi-ComboBox sele...
 
Notifications
Clear all

Multi-ComboBox select in orders doesnt import location QTY into textbox

3 Posts
2 Users
0 Reactions
75 Views
(@stevenbehr1)
Posts: 92
Estimable Member
Topic starter
 

Hi,

In orders, I created these combo boxes to signify lines order.

On the first line, the 5th ComboBox under location (Arow5), I created a Multi-ComboBox that looks up both the location and QTY.

This Arow5 is looked up by row source LocArow1 in a name manager.

 

The code I got is

Private Sub Arow5_Change()
Arow5.List = RowValue
Me.Arow6 = Application.WorksheetFunction.VLookup(Me.Arow5, Sheet9.Range("LocToQty"), 2, 0)
End Sub

Usually when you select in normal combo it populates the QTY from the respective locations. But now I got multi, I want the storeman select the locations and view how many locations there is with the QTY and still populate the QTY in Arow6.

The order form is in Interface TAB - Main menu - Add order. You just look at catergory then AISG ; Product ; AISG FEMALE TO MALE CONNECTOR RET CABLE, INPUT 3 in QTY a part number will turn up, Location (this is where is gets Interesting) now I would like to select a location with enough QTY and populate it in the in stock.

Is there a way to populate the Mulit combobox QTY to Arow6

I have taken some passwords off but when you login the information is

Username: Betty

Passcode : 1111

 

If you cant access Interface or a problem you can unprotect password is "Online"

 

Much appreciated

 

Steve

 
Posted : 02/06/2020 7:54 am
(@stevenbehr1)
Posts: 92
Estimable Member
Topic starter
 

Hi Again,

 

I figured 1 item below in orders

Private Sub Arow4_Chnage ()
Dim i As Long
For i = 1 To Application.WorksheetFunction.CountA(Sheet9.Range("B:B"))
Me.Arow5.AddItem Sheet9.Cells(i, 1)
For X = 1 To 2
Me.Arow5.List(Arow5.ListCount - 1, X) = Sheet9.Cells(i, X + 1)
Next X
Next i
End Sub

This code sorter work but brings other data???? bit confused here

Private Sub Arow5_Change()
Me.ListBox1.AddItem Me.Arow5
For X = 1 To 2
Me.ListBox1.List(ListBox1.ListCount - 1, X) = Me.Arow5.Column(X)
Next X
End Sub

Im pretty sure im almost there but can you check my working out!

 

Thanks

 

Steve

 
Posted : 02/06/2020 6:06 pm
Philip Treacy
(@philipt)
Posts: 1629
Member Admin
 

Hi Steve,

In Private Sub Arow5_Change() you can use 

Me.Arow6.Value = Arow5.List(Arow5.Value, 1)

Regards

Phil

 
Posted : 09/06/2020 12:37 am
Share: