lọc dữ liệu đưa vào combobox (1 người xem)

[jthanhtung]

các anh giúp em đoạn code em cảm ơn nhiều, có 2 combobox 1 & 2, từ cột A sheet1 lọc lấy dữ liệu duy nhất đưa vào combobox1 thành list, khi click chuột để chọn trong list combobox1 để lọc cột B sheet1 đưa vào combobox2.

 

[Hai Lúa Miền Tây]

Bạn xem file đính kèm và tự biến chế nhé

 

[jthanhtung]

Bạn xem file đính kèm và tự biến chế nhé

Cám ơn anh Hai Lúa, anh dùng DAO vậy cho em hỏi thêm chỗ này, nếu mình lấy dữ liệu của 2 cột A & B từ workbook khác (vd tên là book1.xlsm) thì chỗ:

Sub MoKetNoi()
Set db = OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0; HDR=No")
End Sub

khai biến lại như thế nào vậy anh Hai Lúa? em cảm ơn

 

[Hai Lúa Miền Tây]

Cám ơn anh Hai Lúa, anh dùng DAO vậy cho em hỏi thêm chỗ này, nếu mình lấy dữ liệu của 2 cột A & B từ workbook khác (vd tên là book1.xlsm) thì chỗ:
khai biến lại như thế nào vậy anh Hai Lúa? em cảm ơn

Bạn sửa như sau:

Sub MoKetNoi()
dim strPath a string
strPath= "Đường dẫn đến file nguồn"
Set db = OpenDatabase(strPath, False, False, "Excel 8.0; HDR=No")
End Sub