Xử lý lỗi: subscribe out of range

[nthhoa.han]

Xin chào các bạn
Mình k biết làm sao để file đính kèm chạy đc. Mình muốn tách sheet tổng hợp thành sheet chị tiết nhưng bị báo lỗi: "subscribe out of range". Rất mong các bạn giúp mình sớm. Mình cảm ơn ạ!
Mã code:
Sub Tach_XMHD()
Dim rng As Range, cel As Range
Dim ws As Worksheet
Set rng = Range("a14:L59")
For Each cel In Range("o1223")
Sheets("Sheet1").Select
Range("j8").Value = cel.Value
Set ws = Worksheets.Add(after:=Sheets(Sheets.Count))
rng.AutoFilter field:=6, Criteria1:=cel.Value
Sheets("Sheet1").Select
Range("A1:L100").Copy ws.Cells(1, 1)

 

[leonguyenz]

Xin chào các bạn
Mình k biết làm sao để file đính kèm chạy đc. Mình muốn tách sheet tổng hợp thành sheet chị tiết nhưng bị báo lỗi: "subscribe out of range". Rất mong các bạn giúp mình sớm. Mình cảm ơn ạ!
Mã code:
Sub Tach_XMHD()
Dim rng As Range, cel As Range
Dim ws As Worksheet
Set rng = Range("a14:L59")
For Each cel In Range("o1223")
Sheets("Sheet1").Select
Range("j8").Value = cel.Value
Set ws = Worksheets.Add(after:=Sheets(Sheets.Count))
rng.AutoFilter field:=6, Criteria1:=cel.Value
Sheets("Sheet1").Select
Range("A1:L100").Copy ws.Cells(1, 1)

Code bạn viết dùng tên sheet là "Sheet1", mà sửa thành "tong hop" thì phải sửa lại trong code. Hoặc sửa "tong hop" thành "Sheet1".

 

[ptm0412]

Không có sheet nào tên Sheet1 để select

 

[befaint]

Sheets("Sheet1").Select

Mình đổi thành
Sheets(1).Select
thử xem

 

[VetMini]

Làm mình cứ ngỡ do phiên bản Excel hết hạn, cần Subscribe lại.

... bị báo lỗi: "subscribe out of range". ...

.
.