AE giúp em đoạn code trích lọc data từ 1 mảng với 1 điều kiện (1 người xem)

[hotrongdai]

Chào anh chị, em có 1 bài tập về trích lọc dữ liệu từ sheet1 theo điều kiện "Bo phan", dùng 1 đoạn code để trích lọc sang các sheet "Bo phan" tương ứng.
Các anh chị giúp em với.
Em cám ơn ạ

 

[phihndhsp]

Chào anh chị, em có 1 bài tập về trích lọc dữ liệu từ sheet1 theo điều kiện "Bo phan", dùng 1 đoạn code để trích lọc sang các sheet "Bo phan" tương ứng.
Các anh chị giúp em với.
Em cám ơn ạ

Xem file này xem sao?

 

[Lê Duy Thương]

Chào anh chị, em có 1 bài tập về trích lọc dữ liệu từ sheet1 theo điều kiện "Bo phan", dùng 1 đoạn code để trích lọc sang các sheet "Bo phan" tương ứng.
Các anh chị giúp em với.
Em cám ơn ạ

CODE CỦA BẠN ĐÂY
TÔI ĐÃ SỬA TÊN SHEET1 THÀNH "DATA" BẠN THỬ XEM NHÉ

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim WS As Worksheet 
 Application.ScreenUpdating = False 
 If ActiveSheet.Name = "DATA" Then Exit Sub           
    ActiveSheet.Cells.Clear           
    ActiveSheet.[A1].Value = "Bo Phan"           
    ActiveSheet.[A2].Value = ActiveSheet.Name        
    Sheet1.Range("C2:E3600").AdvancedFilter 2, ActiveSheet.[A1:A2], ActiveSheet.[C3], False       
    ActiveSheet.[A1:A2].Clear    
Application.ScreenUpdating = False
End Sub

 

[hotrongdai]

CODE CỦA BẠN ĐÂY
TÔI ĐÃ SỬA TÊN SHEET1 THÀNH "DATA" BẠN THỬ XEM NHÉ

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim WS As Worksheet 
 Application.ScreenUpdating = False 
 If ActiveSheet.Name = "DATA" Then Exit Sub           
    ActiveSheet.Cells.Clear           
    ActiveSheet.[A1].Value = "Bo Phan"           
    ActiveSheet.[A2].Value = ActiveSheet.Name        
    Sheet1.Range("C2:E3600").AdvancedFilter 2, ActiveSheet.[A1:A2], ActiveSheet.[C3], False       
    ActiveSheet.[A1:A2].Clear    
Application.ScreenUpdating = False
End Sub

Bác giải thích giúp em dòng này với :

Sheet1.Range("C2:E3600").AdvancedFilter 2, ActiveSheet.[A1:A2], ActiveSheet.[C3], False

Em muốn cho địa chỉ sau khi fillter thì thể hiện như thế nào ạ

 

[Lê Duy Thương]

Bác giải thích giúp em dòng này với :

Sheet1.Range("C2:E3600").AdvancedFilter 2, ActiveSheet.[A1:A2], ActiveSheet.[C3], False

Em muốn cho địa chỉ sau khi fillter thì thể hiện như thế nào ạ

Sheet1.Range("C2:E3600")LÀ VÙNG DỮ LIỆU Ở SHEET DATA.SHEET INDEX CỦA SHEET DATA LÀ SHEET1
AdvancedFilter 2,LÀ FILTER VÀ COPY
ActiveSheet.[A1:A2] LÀ VÙNG ĐIỀU KIỆN LỌC CỦA SHEET KHI CHÚNG TA CHỌN
ActiveSheet.[C3] LÀ VÙNG SẼ ĐƯỢC COPY DỮ LIỆU SAU KHI FILTER SANG SHEET ĐƯỢC CHỌN
False LÀ KHÔNG LỌC DUY NHẤT NẾU LÀ TRUE THÌ SẼ LẤY DUY NHẤT .KHÔNG BIẾT GIẢ THÍCH CÓ ĐÚNG KHÔNG NỮA . DO SƯ PHẠM TÔI THUỘC DIỆN YẾU NHẤT GPE. MUỐN HOI THÊM THÌ HOI NICK PTM0412 HOẶC OVER AC Ý

 

[hotrongdai]

Sheet1.Range("C2:E3600")LÀ VÙNG DỮ LIỆU Ở SHEET DATA.SHEET INDEX CỦA SHEET DATA LÀ SHEET1
AdvancedFilter 2,LÀ FILTER VÀ COPY
ActiveSheet.[A1:A2] LÀ VÙNG ĐIỀU KIỆN LỌC CỦA SHEET KHI CHÚNG TA CHỌN
ActiveSheet.[C3] LÀ VÙNG SẼ ĐƯỢC COPY DỮ LIỆU SAU KHI FILTER SANG SHEET ĐƯỢC CHỌN
False LÀ KHÔNG LỌC DUY NHẤT NẾU LÀ TRUE THÌ SẼ LẤY DUY NHẤT .KHÔNG BIẾT GIẢ THÍCH CÓ ĐÚNG KHÔNG NỮA . DO SƯ PHẠM TÔI THUỘC DIỆN YẾU NHẤT GPE. MUỐN HOI THÊM THÌ HOI NICK PTM0412 HOẶC OVER AC Ý

Anh xem giúp em với, với file này thì đoạn code này đúng không ? E thấy nó báo lỗi 1004 hic

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim WS As Worksheet
Application.ScreenUpdating = False
If ActiveSheet.Name = "DATA" Then Exit Sub
ActiveSheet.[A1].Value = "NHOM HANG"
ActiveSheet.[A2].Value = ActiveSheet.Name
Sheet1.Range("AO6:AS199").AdvancedFilter 2, ActiveSheet.[A1:A2], ActiveSheet.[D13], False
ActiveSheet.[A1:A2].Clear
Application.ScreenUpdating = False
End Sub

Link file :https://www.dropbox.com/s/udsdcm890olaomp/TEST THU.xls?dl=0

 

[Lê Duy Thương]

anh xem giúp em với, với file này thì đoạn code này đúng không ? E thấy nó báo lỗi 1004 hic

private sub workbook_sheetactivate(byval sh as object)
dim ws as worksheet
application.screenupdating = false
if activesheet.name = "data" then exit sub
activesheet.[a1].value = "nhom hang"
activesheet.[a2].value = activesheet.name
sheet1.range("ao6:as199").advancedfilter 2, activesheet.[a1:a2], activesheet.[d13], false
activesheet.[a1:a2].clear
application.screenupdating = false
end sub

link file : https://www.fshare.vn/file/hr566z8ubqj6

sao không thấy file nhỉ

 

[hotrongdai]

sao không thấy file nhỉ

https://www.dropbox.com/s/udsdcm890olaomp/TEST THU.xls?dl=0

Sao diễn đàn không cho up nên em up dropbox

 

[Lê Duy Thương]

BẠN THAY DÒNG NÀY LÀ OK
Sheets("DATA").Range("AO6:AS199").AdvancedFilter 2, ActiveSheet.[A1:A2], ActiveSheet.[D13:H13], False
CHÚ Ý SHEET3+SHEET NẾU KHÔNG CẦN THÌ TỰ XỬ ĐI

 

[hotrongdai]

BẠN THAY DÒNG NÀY LÀ OK
Sheets("DATA").Range("AO6:AS199").AdvancedFilter 2, ActiveSheet.[A1:A2], ActiveSheet.[D13:H13], False
CHÚ Ý SHEET3+SHEET NẾU KHÔNG CẦN THÌ TỰ XỬ ĐI

Sau khi copy thì nó không filter mà nó copy tất cả sang 2 sheet NHOM HANG luôn anh ơ

 

[Lê Duy Thương]

sau khi copy thì nó không filter mà nó copy tất cả sang 2 sheet nhom hang luôn anh ơ

là sAO không hiểu
xem file đây

 

[hotrongdai]

là sAO không hiểu
xem file đây

Thanks bác nhiều ạ, em hiểu rồi.