Tạo đường dẫn linh hoạt khi lọc dữ liệu

[Phương Phương mito]

Dear Anh chị,
Em có đoạn code Lọc dữ liệu

Sub laydulieu()
......
duonglink = "C:\Users\Desktop\Sachhay\DATA.xlsx"
.........
Sql = "SELECT * from [sheet3$A5:F100000] WHERE F5 BETWEEN " & thangbd & " and " & thangkt & " AND F6 BETWEEN " & tien1 & " and " & tien2 & ";"

Giờ đề linh hoạt duonglink, em muốn đặt đường linh này tại ô A2 tại Sheet1 chẳng hạn thì em việt lại thế nào ạ.

 

[huuthang_bd]

Sửa

duonglink = "C:\Users\Desktop\Sachhay\DATA.xlsx"

Thành

duonglink = Sheet1.Range("A2").Value

 

[Phương Phương mito]

Sửa

duonglink = "C:\Users\Desktop\Sachhay\DATA.xlsx"

Thành

duonglink = Sheet1.Range("A2").Value

Đúng rồi ạ. Em cảm ơn ạ.

 

[HeSanbi]

Dear Anh chị,
Em có đoạn code Lọc dữ liệu

Sub laydulieu()
......
duonglink = "C:\Users\Desktop\Sachhay\DATA.xlsx"
.........
Sql = "SELECT * from [sheet3$A5:F100000] WHERE F5 BETWEEN " & thangbd & " and " & thangkt & " AND F6 BETWEEN " & tien1 & " and " & tien2 & ";"

Giờ đề linh hoạt duonglink, em muốn đặt đường linh này tại ô A2 tại Sheet1 chẳng hạn thì em việt lại thế nào ạ.

Bạn thử sửa file Data.xlsx thành DữLiệu.xlsx xem có lỗi gì xảy ra không

Nếu có lỗi thì:
duonglink ="'" & Sheet1.Range("A2").Value & "'"

Rồi đến kết nối:

Nếu đang là file có đuôi xlsx bây giờ lưu file lại thành xlsm hoặc xlsb xem có lỗi không nếu có bạn tham khảo hàm đồng bộ SyncConnectionXL bên code link dưới

Cần xin hàm tự tạo rút gọn cột chứa dữ liệu và khoảng trống trên 70.000 dòng

Chào các bạn. Mình đang có thắc mắc liên quan đến hàm có thể rút gọn được cột chứa dữ liệu và khoảng trống mà có độ dài trên 70 nghìn dòng theo như mô tả trong file đính kèm. Các bạn giúp mình với nhé, hàm có tốc độ xử lý càng nhanh càng tốt. Mình cảm ơn :D

www.giaiphapexcel.com