match data based on three combobox & three columns and populate values into textbox

[leap out]

hi
I have many comboboxes and three comboboxes . each three comboboxes linked with COL A,B,C when select the items for each three comboboxes should populate the values in textbox
useform

sheet LIST

msg.xlsm
	A	B	C	D
1	BRAND	TYPE	ORIGIN	QUANTITY
2	20-W50 208L	Q8	EU	300
3	20-W50 12x1L	Q8	EU	400
4	20-W50 15x1L	Q8	EU	500
5	20-W50 12x1L	CAS	ST	600
6	20-W50 15x1L	CAS	ST	700
7	10-W40 208L	ENI	IT	800
8	10-W40 208L	CAS	ST	900
9	10-W40 208L	Q8	EU	250
list

 

[DanteAmor]

Try this:

Private Sub CommandButton1_Click()
  Dim a As Variant
  Dim i As Long
  
  a = Sheets("list").Range("A2", Sheets("list").Range("D" & Rows.Count).End(3)).Value
  For i = 1 To UBound(a)
    If a(i, 1) = ComboBox1 And a(i, 2) = ComboBox2 And a(i, 3) = ComboBox3 Then TextBox1 = a(i, 4)
    If a(i, 1) = ComboBox4 And a(i, 2) = ComboBox5 And a(i, 3) = ComboBox6 Then TextBox2 = a(i, 4)
  Next
End Sub

 

[leap out]

exactly this is what I want . just I would add messge box if I choose the items for each three combox if thy are not matched with COL A,B,C then show message"the items are not matched, please try again"

 

[DanteAmor]

Try :

Private Sub CommandButton1_Click()
  Dim a As Variant
  Dim i As Long
  
  TextBox1 = ""
  TextBox2 = ""
  a = Sheets("list").Range("A2", Sheets("list").Range("D" & Rows.Count).End(3)).Value
  For i = 1 To UBound(a)
    If a(i, 1) = ComboBox1 And a(i, 2) = ComboBox2 And a(i, 3) = ComboBox3 Then TextBox1 = a(i, 4)
    If a(i, 1) = ComboBox4 And a(i, 2) = ComboBox5 And a(i, 3) = ComboBox6 Then TextBox2 = a(i, 4)
  Next
  If TextBox1 = "" Then MsgBox "For textbox1. The items are not matched, please try again"
  If TextBox2 = "" Then MsgBox "For textbox2. The items are not matched, please try again"
End Sub

 

[leap out]

you're super great !
thanks very much for your assistance

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.