Lọc dữ liệu từ sheet qua sheet có điều kiện (1 người xem)

[zerocoldtn]

- Làm thế nào để lọc dữ liệu từ sheet này qua sheet khác trong cùng 1 file và sắp xếp dữ liệu theo thứ tự bằng 1 click thôi, các AC GPE chỉ nhé, nội dung lộc như trong hình bên dưới và file đính kèm!

 

[giaiphap]

- Làm thế nào để lọc dữ liệu từ sheet này qua sheet khác trong cùng 1 file và sắp xếp dữ liệu theo thứ tự bằng 1 click thôi, các AC GPE chỉ nhé, nội dung lộc như trong hình bên dưới và file đính kèm!

Thứ nhất: Tại sao lọc sang sheet mới số lượng lại ít hơn sheet ban đầu mặc dù cột PSA đều chứa chữ G, vậy điều kiện lọc là gì?
Thứ hai: Sau khi sắp xếp thì cột số thứ tự có cần đánh lại hay không?

 

[Ba Tê]

- Làm thế nào để lọc dữ liệu từ sheet này qua sheet khác trong cùng 1 file và sắp xếp dữ liệu theo thứ tự bằng 1 click thôi, các AC GPE chỉ nhé, nội dung lộc như trong hình bên dưới và file đính kèm!

Record Macro:
- Copy sheet1 sang sheet2
- Sheet2 Sort cột C ...
- Tạo một cái gì đó để Click.

 

[zerocoldtn]

Thứ nhất: Tại sao lọc sang sheet mới số lượng lại ít hơn sheet ban đầu mặc dù cột PSA đều chứa chữ G, vậy điều kiện lọc là gì?
Thứ hai: Sau khi sắp xếp thì cột số thứ tự có cần đánh lại hay không?

Không có ít hơn anh ơi, tại em xóa bớt cho file nhẹ đó, sheet 1 bao nhiêu thì lọc sang sheet 2 bấy nhiêu, chủ yếu là phân ra thứ tự G1, G2, ...G6. Cột thứ tự đánh lại luôn, anh giúp nhé.!

 

[Ba Tê]

Không có ít hơn anh ơi, tại em xóa bớt cho file nhẹ đó, sheet 1 bao nhiêu thì lọc sang sheet 2 bấy nhiêu, chủ yếu là phân ra thứ tự G1, G2, ...G6. Cột thứ tự đánh lại luôn, anh giúp nhé.!

Cũng làm theo bài #3:

Public Sub GPE()
Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1")
Sheet2.Range("A1").CurrentRegion.Offset(1, 1).Sort Key1:=Sheet2.Range("C2"), Order1:=xlAscending
End Sub

 

[zerocoldtn]

Cũng làm theo bài #3:

Public Sub GPE()
Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1")
Sheet2.Range("A1").CurrentRegion.Offset(1, 1).Sort Key1:=Sheet2.Range("C2"), Order1:=xlAscending
End Sub

Cám ơn anh Ba tê, 1 click là giải quyết tất cả!