Giúp sửa lỗi Script Out of range

[anhhoang81vn]

Ở Sub InBBNT() báo lỗi Script Out of range.
Nhờ các bạn giúp mình với, vì mình mới tìm hiểu VBA nên cũng không biết sai đâu,
Cảm ơn nhiều ah!

 

[Maika8008]

Ở Sub InBBNT() báo lỗi Script Out of range.
Nhờ các bạn giúp mình với, vì mình mới tìm hiểu VBA nên cũng không biết sai đâu,
Cảm ơn nhiều ah!

Cứ để hẳn ra từng sheet đi:
Sheet5.PrintOut
Sheet6.PrintOut
Sheet7.PrintOut

 

[befaint]

Nội quy diễn đàn

You must agree to these terms and rules before using the site.

www.giaiphapexcel.com

 

[anhhoang81vn]

Cứ để hẳn ra từng sheet đi:
Sheet5.PrintOut
Sheet6.PrintOut
Sheet7.PrintOut

Cảm ơn bạn nhé!

 

[truongvu317]

Ở Sub InBBNT() báo lỗi Script Out of range.
Nhờ các bạn giúp mình với, vì mình mới tìm hiểu VBA nên cũng không biết sai đâu,
Cảm ơn nhiều ah!

Sheets(Array("Sheet5", "Sheet6", "Sheet7")).PrintOut

Thay những tên kia bằng tên trong excel. Mà toàn là tên tiếng việt có dấu thì sài cách như bài #2 cho nó ngọt ngào.

 

[Maika8008]

Sheets(Array("Sheet5", "Sheet6", "Sheet7")).PrintOut

Thay những tên kia bằng tên trong excel. Mà toàn là tên tiếng việt có dấu thì sài cách như bài #2 cho nó ngọt ngào.

Đã sửa lại sheet có tên tiếng Việt đó và thay tên trong code nhưng vẫn lỗi bạn à! Muốn dùng Array đó thì phải thế này:

         Dim Sh As Worksheet
         For Each Sh In Sheets(Array("BBNT", "KT_BT", "LMBT"))
          Sh.PrintOut
         Next