Cách nào Gộp dữ liệu từ nhiều Sheet không trùng rồi lọc theo ngày tháng . . . (1 người xem)

[nqdn2010]

Xin các thầy chỉ tôi cách Gộp dữ liệu từ nhiều Sheet (những sheet này có thể nhập dữ liệu thêm tùy ý) không trùng vào 1 sheet rồi lọc theo ngày tháng chỉ định. Xin cám ơn!

 

[Ba Tê]

Xin các thầy chỉ tôi cách Gộp dữ liệu từ nhiều Sheet (những sheet này có thể nhập dữ liệu thêm tùy ý) không trùng vào 1 sheet rồi lọc theo ngày tháng chỉ định. Xin cám ơn!

Dùng VBA, Nhập tháng Năm vào ô L1, L2 code sẽ Lọc.
Font chữ phải đồng nhất 1 font
Ngày tháng phải đúng kiểu Date
Nhớ Enable Macros

 

[nqdn2010]

Dùng VBA, Nhập tháng Năm vào ô L1, L2 code sẽ Lọc.
Font chữ phải đồng nhất 1 font
Ngày tháng phải đúng kiểu Date
Nhớ Enable Macros

- Cám ơn Ba Tê thật nhiều, tôi rất ưng ý, tuy nhiên khi nhập tháng 12 thì có trục trặc.
- Xin bỏ thời gian giúp tôi từng sheet với nhé!
- Tôi áp dụng của anh, mở rộng những sheet khác và nâng cao vấn đề đều giải quyết rất tốt. Đối với tháng 12, thật thảm bại. Mong anh bỏ chút thời gian giải quyết hộ tôi. Cám ơn.

 

[Ba Tê]

- Cám ơn Ba Tê thật nhiều, tôi rất ưng ý, tuy nhiên khi nhập tháng 12 thì có trục trặc.
- Xin bỏ thời gian giúp tôi từng sheet với nhé!
- Tôi áp dụng của anh, mở rộng những sheet khác và nâng cao vấn đề đều giải quyết rất tốt. Đối với tháng 12, thật thảm bại. Mong anh bỏ chút thời gian giải quyết hộ tôi. Cám ơn.

Thủ lại với file này xem .

 

[nqdn2010]

Thủ lại với file này xem .

Thật tuyệt, Cám ơn anh nhiều.
Còn khi tôi muốn lọc dữ liệu trực tiếp tại sheet đó thì sao hả anh?
Trong tập tin đính kèm tôi có nêu yêu cầu ở từng sheet xin anh bỏ thời gian giúp tôi nhé.
Chân thành cám ơn anh!

 

[Ba Tê]

Thật tuyệt, Cám ơn anh nhiều.
Còn khi tôi muốn lọc dữ liệu trực tiếp tại sheet đó thì sao hả anh?
Trong tập tin đính kèm tôi có nêu yêu cầu ở từng sheet xin anh bỏ thời gian giúp tôi nhé.
Chân thành cám ơn anh!

Cái này dùng công thức trong từng sheet cũng được mà.
Lỡ làm bằng VBA thì thêm cái nữa coi sao.
Thêm một Sub Tong trong Module. Trong từng sheet thêm cái này

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [L2:L3]) Is Nothing Then Tong
End Sub

 

[nqdn2010]

Cái này dùng công thức trong từng sheet cũng được mà.
Lỡ làm bằng VBA thì thêm cái nữa coi sao.
Thêm một Sub Tong trong Module. Trong từng sheet thêm cái này

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [L2:L3]) Is Nothing Then Tong
End Sub

- Cám ơn Anh vì đã bỏ thời gian cho tôi.
- Sao trong từng Sheet nó không hoạt động anh ơi.
- Anh lưu ý giúp em, khi xóa Ô L2 & L3 thì danh sách phải hiện ra đầy đủ trở lại.
- Cám ơn anh nhiều.

 

[Ba Tê]

- Cám ơn Anh vì đã bỏ thời gian cho tôi.
- Sao trong từng Sheet nó không hoạt động anh ơi.
- Anh lưu ý giúp em, khi xóa Ô L2 & L3 thì danh sách phải hiện ra đầy đủ trở lại.
- Cám ơn anh nhiều.

1/ Từng sheet không hoạt động là sao hổng hiểu.
2/ Anh lưu ý giúp em, khi xóa Ô L2 & L3 thì danh sách phải hiện ra đầy đủ trở lại.
Câu này không có trong yêu cầu trước đây, và cũng hổng hiểu luôn, code có ẩn danh sách đâu mà phải hiện ra đầy đủ?
Hay là muốn khi L2 và L3 bằng trống thì ô M2 bằng tổng những ô có tên bé trong cột B?
Nếu đúng như vậy thì xem lại file này, code hổng "nhúc nhích" thì hổng biết à nghe.

 

[nqdn2010]

1/ Từng sheet không hoạt động là sao hổng hiểu.
2/ Anh lưu ý giúp em, khi xóa Ô L2 & L3 thì danh sách phải hiện ra đầy đủ trở lại.
Câu này không có trong yêu cầu trước đây, và cũng hổng hiểu luôn, code có ẩn danh sách đâu mà phải hiện ra đầy đủ?
Hay là muốn khi L2 và L3 bằng trống thì ô M2 bằng tổng những ô có tên bé trong cột B?
Nếu đúng như vậy thì xem lại file này, code hổng "nhúc nhích" thì hổng biết à nghe.

- Cám ơn anh nhiều!
- Ý tôi là khi nhập vào ô L2 & L3 của sheet 1 => 6 thì hệ thống lọc danh sách có tháng và năm tương ứng của danh sách sheet đó và ô M2 hiện tổng trẻ trong danh sách (tập tin của anh gởi đã thể hiện điều này) , khi ô L2&L3 trống thì danh sach trở lại đầy đủ như ban đầu.
- Không hiểu sao, máy tôi không lọc theo từng sheet.
- Mong anh xem lại hộ tôi.
- Cám ơn anh rất nhiều.

 

[Ba Tê]

- Cám ơn anh nhiều!
- Ý tôi là khi nhập vào ô L2 & L3 của sheet 1 => 6 thì hệ thống lọc danh sách có tháng và năm tương ứng của danh sách sheet đó và ô M2 hiện tổng trẻ trong danh sách (tập tin của anh gởi đã thể hiện điều này) , khi ô L2&L3 trống thì danh sach trở lại đầy đủ như ban đầu.
- Không hiểu sao, máy tôi không lọc theo từng sheet.
- Mong anh xem lại hộ tôi.
- Cám ơn anh rất nhiều.

Mới hơi hiểu ý một chút.
Xem File, các sheet từ 1 đến 6, nhập tháng, năm xong bấm nút. Muốn trở lại DS ban đầu thì bấm nút nữa
.Chú ý:
- Vùng O13 là điều kiện lọc, không được xóa.
- Cuối bảng dữ liệu của các sheet không được Merge Cells nhé

 

[nqdn2010]

Mới hơi hiểu ý một chút.
Xem File, các sheet từ 1 đến 6, nhập tháng, năm xong bấm nút. Muốn trở lại DS ban đầu thì bấm nút nữa
.Chú ý:
- Vùng O13 là điều kiện lọc, không được xóa.
- Cuối bảng dữ liệu của các sheet không được Merge Cells nhé

-Cám ơn anh thật nhiều!
- Thật như ý. Tuyệt cú mèo.
- Cả đêm em "mò" chả được gì.
- Quá trình thực hành có gì em lại làm phiền, mong Thầy giúp nhé! Cám ơn Thầy nhiều.

 

[nqdn2010]

Mới hơi hiểu ý một chút.
Xem File, các sheet từ 1 đến 6, nhập tháng, năm xong bấm nút. Muốn trở lại DS ban đầu thì bấm nút nữa
.Chú ý:
- Vùng O13 là điều kiện lọc, không được xóa.
- Cuối bảng dữ liệu của các sheet không được Merge Cells nhé

- Xin anh tạo giúp tôi: "nút bấm" khi bấm thì nó hiện màn hình chờ in với những trang có dữ liệu thôi. còn những trang không có dữ liệu mặc dù có công thức cũng không hiện lên và không in được.
- Chúc anh vui khỏe.