A/C giúp em code Save as file kèm cài password theo từng đơn vị tương ứng ạ

[mhdenhat]

Hi Anh/Chị,

A/C giúp em file đính kèm theo nhu cầu file là:
Bước 1. Lọc từng phòng ban tại cột B hoặc D
Bước 2. Sau đó copy toàn bộ paste value, giữ nguyên định dạng. Xóa các ô trống phía trên cùng nội dung cũ
Bước 3. Save as file và đặt password cho file theo từng phòng ban tương ứng bên sheet Password

Vấn đề em đang bị đó là nếu em paste value vào chung sheet 1 thì em không thể lọc được các phòng ban tiếp theo. Nhưng vì sheet1 lại là data để link với sheet2 nên em không thể tạo 1 workbook mới vậy thì sheet 2 ko hoạt động.

Cách làm như tách file nhưng vấn đề là có nhiều sheet đang link với nhau nên em không thể tách file mà chỉ lọc từng phòng ban rồi save as thành file mới.

Em cố gắng viết code được đến mục 1-2 trên, nhưng đến bước 3 thì bí cách. Nhờ A/C giúp em giải pháp ạ.

Em cảm ơn.

 

[mhdenhat]

Anh/Chị nào giúp em được không ạ

 

[Maika8008]

Anh/Chị nào giúp em được không ạ

Kiên nhẫn là 1 đức tính tốt. Nếu kiên nhẫn kèm ý chí tự lực nữa thì tốt hơn.

Bước 3 đó chỉ cần ghi macro rồi biên tập lại chút là được mà.

 

[mhdenhat]

Kiên nhẫn là 1 đức tính tốt. Nếu kiên nhẫn kèm ý chí tự lực nữa thì tốt hơn.

Bước 3 đó chỉ cần ghi macro rồi biên tập lại chút là được mà.

Dạ anh. Em sẽ cố gắng. Anh không cần code nhưng anh có thể chỉ em hướng làm cho vấn đề sau được không ạ:

"Vấn đề em đang bị đó là nếu em paste value vào chung sheet 1 thì em không thể lọc được các phòng ban tiếp theo. Nhưng vì sheet1 lại là data để link với sheet2 nên em không thể tạo 1 workbook mới vậy thì sheet 2 ko hoạt động."

Em cảm ơn anh nhiều.

 

[Maika8008]

Dạ anh. Em sẽ cố gắng. Anh không cần code nhưng anh có thể chỉ em hướng làm cho vấn đề sau được không ạ:

"Vấn đề em đang bị đó là nếu em paste value vào chung sheet 1 thì em không thể lọc được các phòng ban tiếp theo. Nhưng vì sheet1 lại là data để link với sheet2 nên em không thể tạo 1 workbook mới vậy thì sheet 2 ko hoạt động."

Em cảm ơn anh nhiều.

Link là thế nào? Hyperlink hay là công thức tham chiếu?

 

[HUONGHCKT]

Hi Anh/Chị,

A/C giúp em file đính kèm theo nhu cầu file là:
Bước 1. Lọc từng phòng ban tại cột B hoặc D
Bước 2. Sau đó copy toàn bộ paste value, giữ nguyên định dạng. Xóa các ô trống phía trên cùng nội dung cũ
Bước 3. Save as file và đặt password cho file theo từng phòng ban tương ứng bên sheet Password

Vấn đề em đang bị đó là nếu em paste value vào chung sheet 1 thì em không thể lọc được các phòng ban tiếp theo. Nhưng vì sheet1 lại là data để link với sheet2 nên em không thể tạo 1 workbook mới vậy thì sheet 2 ko hoạt động.

Cách làm như tách file nhưng vấn đề là có nhiều sheet đang link với nhau nên em không thể tách file mà chỉ lọc từng phòng ban rồi save as thành file mới.

Em cố gắng viết code được đến mục 1-2 trên, nhưng đến bước 3 thì bí cách. Nhờ A/C giúp em giải pháp ạ.

Em cảm ơn.

Sao bạn thay vị viết là "A/C giúp.." mà viết là "Anh, chị giúp" nó vừa tôn trọng và cầu thị hơn không?
Theo tôi bạn nên làm theo hướng này:
1/ Dùng vòng lặp duyệt từng Ô của cột B hoặc D (nếu đưa vào mảng thì là cột 2 hoặc 4 - với mảng Arr=Range("A9 và dòng cuối)
Nếu len(Arr(i,4) <=10 thì lấy Ô đó làm điều kiện lọc (như bạn đã làm) hoặc Dùng vòng lặp duyệt qua từng cột để lấy dữ liệu vào mảng kết quả.
Tìm Pass = hàm Find ví dự : Pass=Rng(Rng.Find(Ô ĐK).Row,2) với Set Rng= Sheets(Password").Range("A2:B dòng cuối)
2/ Mở một Folder mới với tên Tùy bạn- kiểm tra folder ấy đã tồn tại chưa, nếu
+ Đã tồn tại thì bỏ qua:
+ Chưa tồn tại thì : Tạo folder có tên là Tùy bạn
3/ kiểm tra Xem tên file bạn định thêm đã tồn tại chưa, nếu:
+Chưa tồn tại : Tạo thêm 1 file mới (Workbook mới)
+Đã tồn tại : bỏ qua
4/ Gán kết quả lọc được hoặc mảng kết quả ở bước 1 xuống sheet và đăt tên cho sheet ấy (tên Sh có thể là chính Ô Điều kiện ở bước 1- vì sau này sẽ liên quan đến Pass của file ấy)
5/Ghi lại file vừa mới tạo thêm ( với Pass đã tìm thấy ở trên và định dạng lại) vào folder (ở bước 2)
6/ Đưa bảng dữ liệu gốc trở về trạng thái ban đầu
Đấy là cách cổ điển mà tôi nghĩ là có thể đáp ứng được yêu cầu của bạn (nếu tôi hiểu đúng yêu cầu của bạn). tôi đã làm và có được kết quả tuy nó chạy hơi chậm.
Tin rằng sẽ có nhiều cách hay hơn và tối ưu hơn, nếu bạn đủ kiên nhẫn thì cứ tiếp tục chờ đợi các phương án tối ưu ấy từ các thành viên khác.

Nếu bạn chưa có đáp án thì có thể liên hệ với số Zalo 0986997214, để được hướng dẫn kỹ hơn.
Chúc bạn thành công.

 

[mhdenhat]

Link là thế nào? Hyperlink hay là công thức tham chiếu?

Dạ là công thức tham chiếu trong Sheet 2 ạ.

Sao bạn thay vị viết là "A/C giúp.." mà viết là "Anh, chị giúp" nó vừa tôn trọng và cầu thị hơn không?
Theo tôi bạn nên làm theo hướng này:
1/ Dùng vòng lặp duyệt từng Ô của cột B hoặc D (nếu đưa vào mảng thì là cột 2 hoặc 4 - với mảng Arr=Range("A9 và dòng cuối)
Nếu len(Arr(i,4) <=10 thì lấy Ô đó làm điều kiện lọc (như bạn đã làm) hoặc Dùng vòng lặp duyệt qua từng cột để lấy dữ liệu vào mảng kết quả.
Tìm Pass = hàm Find ví dự : Pass=Rng(Rng.Find(Ô ĐK).Row,2) với Set Rng= Sheets(Password").Range("A2:B dòng cuối)
2/ Mở một Folder mới với tên Tùy bạn- kiểm tra folder ấy đã tồn tại chưa, nếu
+ Đã tồn tại thì bỏ qua:
+ Chưa tồn tại thì : Tạo folder có tên là Tùy bạn
3/ kiểm tra Xem tên file bạn định thêm đã tồn tại chưa, nếu:
+Chưa tồn tại : Tạo thêm 1 file mới (Workbook mới)
+Đã tồn tại : bỏ qua
4/ Gán kết quả lọc được hoặc mảng kết quả ở bước 1 xuống sheet và đăt tên cho sheet ấy (tên Sh có thể là chính Ô Điều kiện ở bước 1- vì sau này sẽ liên quan đến Pass của file ấy)
5/Ghi lại file vừa mới tạo thêm ( với Pass đã tìm thấy ở trên và định dạng lại) vào folder (ở bước 2)
6/ Đưa bảng dữ liệu gốc trở về trạng thái ban đầu
Đấy là cách cổ điển mà tôi nghĩ là có thể đáp ứng được yêu cầu của bạn (nếu tôi hiểu đúng yêu cầu của bạn). tôi đã làm và có được kết quả tuy nó chạy hơi chậm.
Tin rằng sẽ có nhiều cách hay hơn và tối ưu hơn, nếu bạn đủ kiên nhẫn thì cứ tiếp tục chờ đợi các phương án tối ưu ấy từ các thành viên khác.

Nếu bạn chưa có đáp án thì có thể liên hệ với số Zalo 0986997214, để được hướng dẫn kỹ hơn.
Chúc bạn thành công.

Dạ cảm ơn góp ý từ Anh ạ. Nhu cầu em cần là file khi được tách ra theo từng phòng ban thì vẫn sẽ có Sheet 2 vì Sheet 2 đang có công thức tham chiếu từ Sheet 1. Nhưng nếu chỉ là tìm từng phòng ban để filter rồi tách ra file riêng thì file đó đang thiếu đi Sheet 2 (có công thức tham chiếu). Nên em vướng ở chỗ này ạ.

 

[HUONGHCKT]

Dạ là công thức tham chiếu trong Sheet 2 ạ.

Dạ cảm ơn góp ý từ Anh ạ. Nhu cầu em cần là file khi được tách ra theo từng phòng ban thì vẫn sẽ có Sheet 2 vì Sheet 2 đang có công thức tham chiếu từ Sheet 1. Nhưng nếu chỉ là tìm từng phòng ban để filter rồi tách ra file riêng thì file đó đang thiếu đi Sheet 2 (có công thức tham chiếu). Nên em vướng ở chỗ này ạ.

file tôi làm theo ý hiểu của mình là ; lọc ra và tạo 1 file mới có tên là tên mã số cột B hoặc D/sh Data và chỉ có 1 Sheet, Sh này (chính là kết quả lọc)
Có phải ý bạn là Tạo ra file mới có 2 sh (1 là Sh kết quả lọc, 1 là sheet 2 -như bạn nói) có pgair không. còn nếu có thêm ShPassword thì còn gọi gị là pass nữa.
Vậy thì hướng thế này.
1/lọc ra và tạo 1 file mới có tên là tên mã số cột B hoặc D/sh Data và chỉ có 1 Sheet, Sh này (chính là kết quả lọc) -như tôi đã nói ở trên.
2/ Thêm 1 Sheet nữa có tên là DS, và copy lại toàn bộ dữ liệu của Sheet DS của file gốc Paste vào Sheet DS của File mới.
3/Trên File gốc tạo 1 Hyperlink ngay tại cột B hoặc D (chính là mã vừa tạo ra file mới)

4/Các File mới tạo được lưu trữ trong cùng folder với file gốc

Nếu cột B hoặc D/Sh Data/File gốc có trùng thì sao?

Nếu bạn đủ kiên nhẫn thì cứ tiếp tục chờ đợi các phương án tối ưu ấy từ các thành viên khác.

Nếu bạn chưa có đáp án thì có thể liên hệ với số Zalo 0986997214, để được hướng dẫn kỹ hơn.