giúp sửa lỗi: Runtime error '424' (1 người xem)

[tu_bill]

Sub loc_du_lieu()
Dim cn As Range, tc As Range
For Each cn In sheel.Range("el:e3")
For Each tc In Sheetl.Range("f1:f2")
With Sheetl.Range("a1:cl0")
.Parent.AutoFilterMode = False
.AutoFilter
.AutoFilter Field:=l, Criterial:=cn
.AutoFilter Field:=3, Criterial:=tc
.Parent.AutoFilter.Range.Copy
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = cn & "-" & tc
Sheets(Sheets.Count).Range("al").PasteSpecial xlpasteva
End With
Next
Next
End Sub

 

[truongvu317]

sheel.Range

Viết nhầm, sheet1 thì phải, vẫn còn sớm mà người đã không phân biệt được các chữ cái sao,