Sửa giúp code để lọc dữ liệu (1 người xem)

[ditimdl]

Sub AutoFilterAndCopy()
Sheets("Data").[A1:A50].AutoFilter Field:=1, Criteria1:="A"
Sheets("Data").[A1].Select
Range(Selection, Selection.End(xlDown)).Select
''//Kiểm tra xem dữ liệu filter có rỗng hay không:
''//Nếu rỗng thì thoát khỏi thủ tục:
If Selection.Rows.Count >= 65536 Then
Exit Sub
Else
''//Nếu không rỗng mới copy:
Selection.Copy 
Sheets("Report").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End If
''//Phần này không hoạt động được
Sheets("Data").[A1:A50].AutoFilter Field:=1, Criteria1:="D"
Sheets("Data").[A1].Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy 
Sheets("Report2).select
range("A2").select
....
End Sub

</SPAN></SPAN>
Đoạn code trên mình dùng để lọc dữ liệu, anh ca_dafi thêm phần kiểm tra dữ liệu sau khi filter, nếu kết quả filter rỗng thì thoát khỏi thủ tục lọc và copy, ngược lại thì copy sang 1 sheet khác. Code hoạt động tốt nhưng nó lại làm cho các sub lọc tiếp theo không thể chạy được. Nhờ các bác giúp em sửa giúp code để sau khi lọc phần tử A xong thì đoạn code trên ko tiến hành lọc tiếp phần tử D.
(Phần này em post bên phần xử lý dữ liệu nhưng không đúng chủ đề nên ít nhận được sự hổ trợ nên em cắt qua bên này. Mong các bác giúp.)

 

[sealand]

Hi anh,

Mình không thể show dữ liệu ra từng tháng theo sheet sao? Em cũng muốn sửa lại theo ý muốn nhưng không được. Vì mấy ông cấp trên không cho, chỉ show theo tháng qua các sheet.

Em muốn cái code giống như thế này http://www.giaiphapexcel.com/forum/showthread.php?13658-Sửa-giúp-code-để-lọc-dữ-liệu/page2
Khi nhập vào total sẽ tự động rút trích qua sheet tháng. Thanks a!

Sửa 1 chút là được thôi mà

 

[lamdathoa]

đây là file excel đã chỉnh lại.
http://loinhac.ucoz.com/load/0-0-0-27-20 (direct download) (giúp e tạo VBA vào file này nha).

Em muốn có cái VBA giống như file này attachment bên dưới
http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=15888&d=1222094452

Hix...e cố gắng đọc mấy cái e-book về VBA nhưng ko có những cấu trúc tương tự như vậy và cũng chỉ những cái đơn giản...nhưng lý do lớn nhất là e rất tệ về mấy cái code này..... Hix...giúp em nha.

 

[Quang_Hải]

đây là file excel đã chỉnh lại.
http://loinhac.ucoz.com/load/0-0-0-27-20 (direct download) (giúp e tạo VBA vào file này nha).

Em muốn có cái VBA giống như file này attachment bên dưới
http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=15888&d=1222094452

Hix...e cố gắng đọc mấy cái e-book về VBA nhưng ko có những cấu trúc tương tự như vậy và cũng chỉ những cái đơn giản...nhưng lý do lớn nhất là e rất tệ về mấy cái code này..... Hix...giúp em nha.

Bạn dùng thử 2 code này

Tạo 1 module và copy code này vào

Sub loc()
If ActiveSheet.Name <> "Total" Then
   With ActiveSheet
      .[Y1].Value = .[y3]
      .[Y2].Value = .Name
   End With
   With Sheets("Total")
      .[A3:Y65000].AdvancedFilter 2, [Y1:Y2], [A3:Y3]
   End With
End If
End Sub

Sau đó copy code này vào Thisworkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
loc
End Sub

 

[Quang_Hải]

Thôi gởi file luôn cho bạn cho chắc ăn, nếu không lại mất công trả lời nữa.

PS: Nhưng thật tình mà nói không ai lại tạo ra cả đống sheet như thế. Đúng là...