Nhờ các bạn tìm lỗi trong code

[vuha]

Tôi có code sau:

Sub In_tat_ca_HDLD_click()
Dim rng As Range, clls As Range
Set rng = Range(Sheet10.[b7], Sheet10.[b65535].End(xlUp))
For Each clls In rng
[A7] = clls.Value
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, collate:=True
Next
End Sub

Khi tôi thực hiện code trên thì lệnh thực hiện bình thường nhưng khi thực hiện code dưới đây thì báo lỗi như trong file word đính kèm, tôi nhấn debug thì dòng báo lỗi là dòng được tô đỏ. Tôi không hiểu tại sao. Mong các bạn tìm lỗi và khắc phục giúp. Thanks.

Sub In_tat_ca_Phu_luc_HDLD_click()
Dim rng As Range, clls As Range
Set rng = Range(Sheet10.[ae7], Sheet10.[ae65535].End(xlUp))
For Each clls In rng
[A4] = clls.Value
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, collate:=True
Next
End Sub

 

[Po_Pikachu]

Hình như 2 file này chẳng liên quan gì nhau hết bạn à!
Bạn xem file thử xem có được chưa?
Nhưng thật sự mình chưa vừa ý lắm với cách làm của bạn.
Thân.

 

[vuha]

Xin đính chính

Hình như 2 file này chẳng liên quan gì nhau hết bạn à!
Bạn xem file thử xem có được chưa?
Nhưng thật sự mình chưa vừa ý lắm với cách làm của bạn.
Thân.

Xin lỗi bạn, tôi nén nhầm file excel rồi. Phiền bạn xem lại mỗi file word hộ và chỉ cách khắc phục giúp mình nhé. Thanks.

 

[Minh Nguyen]

Chào bác vuha,
Theo như nội dung hiển thị trên msgbox thì dường như giá trị nào đó trong cột ae của bác bị lỗi. Mình đoán vậy thôi vì không có dữ liệu chi tiết của bác ở đây.
Tks