Lọc sản phẩm ở nhiều sheet và lưu thành file riêng (1 người xem)

[camlam06]

Em xin chào cách anh/chị, em có một vấn đề với việc lọc, tách, lưu file, và em có tìm kiếm trên diễn đàn, có một số chủ đề đã bàn luận gần giống với vấn đề của em, nhưng do bài đã cách mấy năm. Nên em xin phép đăng mới ở đây, nếu không phải, xin nhờ ad chuyển giùm vào chủ đề đúng giúp em.
Em có một file gồm 3 sheet (file thực tế nhiều hơn) là Xuất, Nhập, Tồn. Ở mỗi sheet sẽ có 3 sản phẩm (thực tế nhiều hơn). Em cần lọc theo từng sản phẩm một ở cả 3 sheet, nghĩa là mỗi file chỉ để 1 sản phẩm, các sản phẩm còn lại sẽ bị xóa đi, sau đó lưu thành file riêng có tên file, sản phẩm được giử lại tương ứng. "File Gốc" không bị thay đổi. Có bao nhiêu sản phẩm tách ra bấy nhiêu file. Chi tiết em trình bày rõ trong sheet "Yêu cầu" của file "File Gốc"
Mong các anh/chị trong diễn đàn hướng dẫn giúp em, đặc biệt là các anh/chị lão làng như anh ndu96081631, BNTT......... Em cảm ơn !

 

[dhn46]

Ngoài cách anh Hai Lúa bạn tham khảo thử file này xem có đúng ý không.

 

[tueyennhi]

Ở #9 anh Hai Lúa đã giải quyết, code chạy rất nhanh, nhưng vấn đề em gặp là file temp không thể định dạng được, tương tự như ở #19 đang thắc mắc. Ý em là có cách nào vẫn duy trì được định dạng file temp như file gốc không ?

Ừm không thấy anh ấy nói gì thì một là anh ấy bận hai là ado nó không cho thế.

 

[tueyennhi]

Ngoài cách anh Hai Lúa bạn tham khảo thử file này xem có đúng ý không.

Cách này ổn chỉ phải cái chạy hơi chậm. của mình dữ liệu 5000 dòng 23 cột chạy đơ luôn (

 

[dhn46]

Cách này ổn chỉ phải cái chạy hơi chậm. của mình dữ liệu 5000 dòng 23 cột chạy đơ luôn (

Ơ, bạn với chủ Topic cùng chung bài hỏi ah? Dữ liệu của bạn có công thức không?

Update:

Update luôn vậy, bạn kẹp 2 dòng này 1 ở đầu sub, 1 ở cuối sub

'Đầu sub
Application.Calculation = xlCalculationManual 


.......code


'Cuối sub
Application.Calculation = xlCalculationAutomatic

 

[tueyennhi]

Ơ, bạn với chủ Topic cùng chung bài hỏi ah? Dữ liệu của bạn có công thức không?

Update:

Update luôn vậy, bạn kẹp 2 dòng này 1 ở đầu sub, 1 ở cuối sub

'Đầu sub
Application.Calculation = xlCalculationManual


.......code


'Cuối sub
Application.Calculation = xlCalculationAutomatic

Ừm của mình không có một dòng công thức nào cả. Cái ADO rất hay ở khoản xử lý mau lẹ mỗi tội nó không tự định dạng được. Nếu có code nào tự duyệt file đang đóng và định dạng theo vùng thì tốt quá

 

[dhn46]

Ừm của mình không có một dòng công thức nào cả. Cái ADO rất hay ở khoản xử lý mau lẹ mỗi tội nó không tự định dạng được. Nếu có code nào tự duyệt file đang đóng và định dạng theo vùng thì tốt quá

Bạn làm theo hướng dẫn bài #24 và phản hồi lại tôi nhé.

 

[tueyennhi]

Bạn làm theo hướng dẫn bài #24 và phản hồi lại tôi nhé.

Vì code của bạn làm được mọi thứ nên mình có áp dụng thêm ở chủ đề tăng tốc code nhưng không thấy hiệu quả.

\
With Application
     .Calculation = xlCalculationManual
     .ScreenUpdating = False
     .EnableEvents = False
     .DisplayAlerts = False
     .Cursor = xlWait
     .StatusBar = StatusBarMsg
     .EnableCancelKey = xlErrorHandler
   End With

 

[dhn46]

Tôi quên mất sự kiện Save, bạn thử lần nữa nhé

'Đầu sub
Application.CalculateBeforeSave = False

...Code

'Cuối sub
Application.CalculateBeforeSave = True

 

[camlam06]

Vấn đề định dạng em nghĩ có thể dùng VBA trên file temp, và VBA chỉ chạy định dạng lại trước khi đóng (Workbook_BeforeClose)

 

[tueyennhi]

Vấn đề định dạng em nghĩ có thể dùng VBA trên file temp, và VBA chỉ chạy định dạng lại trước khi đóng (Workbook_BeforeClose)

Vậy code đó ở trong file temp hay là file chứa dữ liệu nguồn bạn? Ý tưởng hay. Mình làm thử trên temp thì không có tác dụng chứng tỏ workbook không mở.