Combobox lấy giá trị theo điều kiện

[Ronaldinho7]

Chào các bác trên diễn đàn
Nhờ các bác viết code để Combobox1 nhận giá trị từ ô A1:C1 (A, B, C)
1. Nếu Combobox1 nhận giá trị A thì combobox2 nhận giá trị từ ô A2:A11
2. Nếu Combobox1 nhận giá trị B thì combobox2 nhận giá trị từ ô B2:B6
3. Nếu Combobox1 nhận giá trị C thì combobox2 nhận giá trị từ ô C2:C9


Nhờ các bác giúp đỡ nhé
Xin cảm ơn

 

[HUONGHCKT]

Chào các bác trên diễn đàn
Nhờ các bác viết code để Combobox1 nhận giá trị từ ô A1:C1 (A, B, C)
1. Nếu Combobox1 nhận giá trị A thì combobox2 nhận giá trị từ ô A2:A11
2. Nếu Combobox1 nhận giá trị B thì combobox2 nhận giá trị từ ô B2:B6
3. Nếu Combobox1 nhận giá trị C thì combobox2 nhận giá trị từ ô C2:C9
View attachment 275333

Nhờ các bác giúp đỡ nhé
Xin cảm ơn

Hy vọng đúng ý.
Hỏi bạn tại sao không làm 1 Textbox và Listbox nhỉ?
Nhấn vào mặt cười và chọn trong Combobox 1

 

[Ronaldinho7]

Hy vọng đúng ý.
Hỏi bạn tại sao không làm 1 Textbox và Listbox nhỉ?
Nhấn vào mặt cười và chọn trong Combobox 1

Cảm ơn bác nhiều nhé, đúng như mong đợi rồi ạ
Em làm 2 Combobox là do:
Combobox1: Em lấy danh sách mã hàng
Combobox2: Tên công đoạn của mã hàng đó
Đại khái làm 2 Combobox cho tiện khi chỉ việc lựa chọn, tránh sai bác à!

 

[Ronaldinho7]

Em chào các bác!
Nhờ các bác hỗ trợ thêm đoạn code điều kiện combobox2 để rỗng sẽ hiện thông báo và không cho nhập ạ!
Cảm ơn các bác nhiều!

 

[biboylenka1]

Em chào các bác!
Nhờ các bác hỗ trợ thêm đoạn code điều kiện combobox2 để rỗng sẽ hiện thông báo và không cho nhập ạ!
Cảm ơn các bác nhiều!

Bạn thêm

Private Sub Save_Click()
Dim lr As Long
If Cmb2.Value <> "" Then
    lr = Sheet1.Range("g" & Rows.Count).End(3).Row
    Sheet1.Range("g" & lr + 1).Value = Cmb1.Text
    Sheet1.Range("h" & lr + 1).Value = Cmb2.Text
    Cmb1.Text = ""
    Cmb2.Text = ""
Else
    Cmb2.SetFocus
    MsgBox "Phai nhap combobox2"
End If
End Sub