Code lọc Advace Filter?

[win-sun]

- Sáng nay em có gửi bài nhưng bị bắt lổi. em xin gửi lại File nhờ các anh chị xem giúp.
- em dùng maro ghi lại quá trình advace filter, từ sheet inphieu rút trích sang data theo thứ tự từng phiếu.

Sheets("INPHIEU").Range("A9:G32").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("INPHIEU").Range("A9:G10"), CopyToRange:=Sheets("DATA").Range("A" & [A65000].End(xlUp).Row + 2), Unique:=True
End Sub

 

[ndu96081631]

- Sáng nay em có gửi bài nhưng bị bắt lổi. em xin gửi lại File nhờ các anh chị xem giúp.
- em dùng maro ghi lại quá trình advace filter, từ sheet inphieu rút trích sang data theo thứ tự từng phiếu.

Sheets("INPHIEU").Range("A9:G32").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("INPHIEU").Range("A9:G10"), CopyToRange:=Sheets("DATA").Range("A" & [A65000].End(xlUp).Row + 2), Unique:=True
End Sub

Tóm lại yêu cầu của bạn là gì? Đọc file mà chẳng hiểu gì!
Trong file bạn có nói về "SỐ PHIẾU" trong khi dử liệu của bạn, tôi chẳng thấy chổ nào là SỐ PHIẾU cả
Nói lại 1 lần cho rõ ràng bạn ơi!
Nếu bạn cảm thấy tiếng Việt khó viết quá, có thể ghi bằng tiếng Anh (có khi lại dể hiểu hơn)

 

[win-sun]

Tóm lại yêu cầu của bạn là gì? Đọc file mà chẳng hiểu gì!
Trong file bạn có nói về "SỐ PHIẾU" trong khi dử liệu của bạn, tôi chẳng thấy chổ nào là SỐ PHIẾU cả
Nói lại 1 lần cho rõ ràng bạn ơi!
Nếu bạn cảm thấy tiếng Việt khó viết quá, có thể ghi bằng tiếng Anh (có khi lại dể hiểu hơn)

- Dạ em chỉ cần copy cái vùng in phiếu sang sheet data thôi anh ơi, số phiếu thì không cần đâu, em theo dõi ngày in phiếu, mỗi tuần em in một lần.
- ở sheet data em chỉ cần dử liệu sắp xếp nối đuôi nhau như thế là được rồi, mỗi khi in xong em chay maro chép dử liệu sang data theo thứ tự từ trên xuống vây thôi anh.

 

[ndu96081631]

- Dạ em chỉ cần copy cái vùng in phiếu sang sheet data thôi anh ơi, số phiếu thì không cần đâu, em theo dõi ngày in phiếu, mỗi tuần em in một lần.
- ở sheet data em chỉ cần dử liệu sắp xếp nối đuôi nhau như thế là được rồi, mỗi khi in xong em chay maro chép dử liệu sang data theo thứ tự từ trên xuống vây thôi anh.

trời... ngay từ đầu bạn chỉ cần nói muốn copy dử liệu tại Sheet INPHIEU, paste nối đuôi vào sheet DATA là được rồi ---> Nói cái gì Advanced Filter.. rồi SỐ PHIẾU... loạn cả lên
Vầy thôi

Sub CopyData()
  With Sheets("INPHIEU").Range("A9").CurrentRegion
    With Intersect(.Cells, .Offset(1))
      Sheets("DATA").Range("A65536").End(xlUp).Offset(2).Resize(.Rows.Count, .Columns.Count) = .Value
    End With
  End With
End Sub

 

[win-sun]

trời... ngay từ đầu bạn chỉ cần nói muốn copy dử liệu tại Sheet INPHIEU, paste nối đuôi vào sheet DATA là được rồi ---> Nói cái gì Advanced Filter.. rồi SỐ PHIẾU... loạn cả lên
Vầy thôi

Sub CopyData()
  With Sheets("INPHIEU").Range("A9").CurrentRegion
    With Intersect(.Cells, .Offset(1))
      Sheets("DATA").Range("A65536").End(xlUp).Offset(2).Resize(.Rows.Count, .Columns.Count) = .Value
    End With
  End With
End Sub

- cảm ơn anh ngàn lần, chúc anh luôn mạnh khỏe và thành công...