Nhờ chỉ lỗi sai trong đoạn code trích lọc dữ liệu từ trang chính sang các trang phụ

[PHM]

Dear cả nhà,

Em muốn tách các dữ liệu từ sheet th ra các sheet con theo bộ phận.
Em sửa tới lui mà không được, nhờ các anh chị giúp đỡ:

"
Sub loc_du_lieu()
Dim bophan As Range
For Each bophan In th.Range("p34")
With th.Range("c2:ll0")

.Parent.AutoFilterMode = False
.Autofiler Field:=2, Criterial:=bophan
.Parent.Autofileter.Range.Copy

.Sheets.Add after:=Sheets(Sheets.Count)
.Sheets(Sheets.Count).Name = bophan
.Sheets(Sheets.Count).Range("c2").PasteSpecial xlPasteValues
End With
Next

End Sub
"
Cám ơn quý anh chị!

 

[sealand]

Bạn sửa như sau:

Sub loc_du_lieu1()
    Dim bophan As Range
    For Each bophan In Sheet1.Range("p3:p4").Cells
      With Sheet1.Range("c2:m100")
       .Parent.AutoFilterMode = False
        .AutoFilter Field:=2, Criteria1:=bophan
         .Parent.AutoFilter.Range.Copy
         Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = bophan
       Sheets(Sheets.Count).Range("c2").PasteSpecial xlPasteValues
    End With
  Next
End Sub

 

[phulien1902]

'---------------------

 

[PHM]

Bạn sửa như sau:

Sub loc_du_lieu1()
    Dim bophan As Range
    For Each bophan In Sheet1.Range("p3:p4").Cells
      With Sheet1.Range("c2:m100")
       .Parent.AutoFilterMode = False
        .AutoFilter Field:=2, Criteria1:=bophan
         .Parent.AutoFilter.Range.Copy
         Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = bophan
       Sheets(Sheets.Count).Range("c2").PasteSpecial xlPasteValues
    End With
  Next
End Sub

Mình sửa lại theo bạn chỉ nhưng vẫn chưa chạy được.
Bạn xem lại giúp mình thử mình có sai gì không nha.

Cám ơn bạn rất nhiều!

 

[phulien1902]

Mình sửa lại theo bạn chỉ nhưng vẫn chưa chạy được.
Bạn xem lại giúp mình thử mình có sai gì không nha.

Cám ơn bạn rất nhiều!

Bạn thay:

th

bởi

Sheet1

hoặc

Sheets("th")

 

[PHM]

Bạn thay:

th

bởi

Sheet1

hoặc

Sheets("th")

Cám ơn bạn nhiều.
Mình chạy được code rồi.

 

[trandungnd]

EM BỊ LỖI GÌ MÀ KO CHẠY ĐƯỢC?
CÁC BÁC GIÚP EM VỚI.
Mình làm cả vd khác cũng báo lỗi

THANKS

 

[snow25]

EM BỊ LỖI GÌ MÀ KO CHẠY ĐƯỢC?
CÁC BÁC GIÚP EM VỚI.
Mình làm cả vd khác cũng báo lỗi

Cảm ơn

Bạn cho cái file lên.