Chuột phải lựa chọn nhiều danh sách: khách hàng, nhà cung cấp thì thêm code ntn???

[minhcong.tckt]

em gửi file đính kèm, mong các anh chị thêm code cho em để khi chuột phải em có thể chọn được cả DMNCC (nhà cung cấp)
Tại sheet DMDVKH em có 2 vùng danh mục: 1 là DMDVKH 2 là DMNCC

tại sheet nhận mã em muốn khi chuột phải tại cột A thì chọn DMDVKH cột B thì chọn DMNCC thì làm ntn???

Chân thành cảm ơn!!!

 

[ndu96081631]

em gửi file đính kèm, mong các anh chị thêm code cho em để khi chuột phải em có thể chọn được cả DMNCC (nhà cung cấp)
Tại sheet DMDVKH em có 2 vùng danh mục: 1 là DMDVKH 2 là DMNCC

tại sheet nhận mã em muốn khi chuột phải tại cột A thì chọn DMDVKH cột B thì chọn DMNCC thì làm ntn???

Chân thành cảm ơn!!!

Thì bạn làm thêm 2 OptionButton nữa ---> Chọn Option1 thì lấy source DMDVKH, chọn Option2 thì lấy source DMNCC
Quá đơn giản

 

[minhcong.tckt]

Anh làm cụ thể trên file em gửi để em học tập, chỗ nào cần thêm anh nói cho em với, em mới tập làm nên chưa biết,
Mong anh giúp đỡ!!!

 

[Ba Tê]

Anh làm cụ thể trên file em gửi để em học tập, chỗ nào cần thêm anh nói cho em với, em mới tập làm nên chưa bít,
Mong anh giúp đỡ!!!

Cái chữ màu đỏ nếu chịu khó gõ thêm chữ ê thì mọi người trên GPE vui liền.
Sao nhiều người Việt không biết chính tả tiếng Việt nhỉ?
Với lại đây là Box Lập trình với Excel chứ không phải thư giãn.
Híc! Spam nữa rồi.
(Ngày nào không gặp concogia và KTGG mình lại càng khoái Spam)

 

[ndu96081631]

Anh làm cụ thể trên file em gửi để em học tập, chỗ nào cần thêm anh nói cho em với, em mới tập làm nên chưa bít,
Mong anh giúp đỡ!!!

Thì giống vầy đây:

Private Sub UserForm_Initialize()
  LB.List() = Sheets("DMDVKH").Range("DMDVKH").Value
End Sub

Private Sub OptionButton1_Click()
  LB.List() = Sheets("DMDVKH").Range("DMDVKH").Value
End Sub

Private Sub OptionButton2_Click()
  LB.List() = Sheets("DMDVKH").Range("DMNCC").Value
End Sub