Nhờ giúp dùm code list box (1 người xem)

[thoai]

Mình có sheet data chứa dữ liệu phiền các Anh chị giúp mình code list box sao cho lấy tên đường thì kết quả sẽ trả về giá trị theo hình của sheet link. Xin cảm ơn

 

[Hoang2013]

Bạn cắt dòng lệnh

 With Sh

thay vô dòng lệnh

 With Sheets("CSDL")

trong macro có tên trên là được.

 

[thoai]

Bạn cắt dòng lệnh

 With Sh

thay vô dòng lệnh

With Sheets("CSDL")

trong macro có tên trên là được.

Nhờ Anh chỉnh dùm: 4 ô list box sẽ lấy dữ liệu từ 4 sheet tương ứng:
+ LB1: lấy dữ liệu ở sheet SKOD.
+ LB2: lấy dữ liệu ở sheet SKOT.
+ LB3: lấy dữ liệu ở sheet TMOD.
+ LB4: lấy dữ liệu ở sheet TMOT.

Xin cảm ơn

 

[VetMini]

Nhờ Anh chỉnh dùm: 4 ô list box sẽ lấy dữ liệu từ 4 sheet tương ứng:
+ LB1: lấy dữ liệu ở sheet SKOD.
+ LB2: lấy dữ liệu ở sheet SKOT.
+ LB3: lấy dữ liệu ở sheet TMOD.
+ LB4: lấy dữ liệu ở sheet TMOT.

Xin cảm ơn

Ví dụ tên của ca cái lit bóc là LBox:
With Sheets(Choose(CInt(Right(LBox,1), "SKOD", "SKOT", "TMOD", "TMOT"))

 

[thoai]

Ví dụ tên của ca cái lit bóc là LBox:
With Sheets(Choose(CInt(Right(LBox,1), "SKOD", "SKOT", "TMOD", "TMOT"))

Ví dụ tên của ca cái lit bóc là LBox:
With Sheets(Choose(CInt(Right(LBox,1), "SKOD", "SKOT", "TMOD", "TMOT"))

Mình đã làm 2 List box đầu đã chính xác, riêng 2 List box sau nó không đúng do vẫn lấy giá trị từ sheet SKOT. , bạn gán dùm mình code cho 2 list box: LB3 và LB4 theo
+ LB3: lấy dữ liệu ở sheet TMOD.
+ LB4: lấy dữ liệu ở sheet TMOT.

 

[thoai]

Mình đã làm 2 List box đầu đã chính xác, riêng 2 List box sau nó không đúng do vẫn lấy giá trị từ sheet SKOT. , bạn gán dùm mình code cho 2 list box: LB3 và LB4 theo
+ LB3: lấy dữ liệu ở sheet TMOD.
+ LB4: lấy dữ liệu ở sheet TMOT.

. Nhờ mọi người hỗ trợ