Nhờ mọi người sửa giúp em chạy auto các modules khi ẩn sheet. . .

[zPeterPan]

em có file TongHop và khi ấn thủ công hay tự động thì các sub() chạy ổn định, nhưng khi em ẩn(Hide) 1 trong các sheet thì chạy auto Macro thì báo lỗi ạ. . . Nhờ các thầy cô và các anh chị giúp em với ạ. . .

 

[BuiQuangThuan]

Chưa xem file. Nhưng nghĩ rằng nên khai báo rõ ràng thì chắc chắn sẽ không bị lỗi như bạn nói đâu

 

[viehoai]

em có file TongHop và khi ấn thủ công hay tự động thì các sub() chạy ổn định, nhưng khi em ẩn(Hide) 1 trong các sheet thì chạy auto Macro thì báo lỗi ạ. . . Nhờ các thầy cô và các anh chị giúp em với ạ. . .

Bạn dùng lệnh Select đối với sheet, trong khi đó nó bị ẩn thì lỗi đúng rồi. Bạn bỏ lênh đó đi nhé, lấy dữ liệu ko nhất thiết sử dụng select

 

[Phuocam]

em có file TongHop và khi ấn thủ công hay tự động thì các sub() chạy ổn định, nhưng khi em ẩn(Hide) 1 trong các sheet thì chạy auto Macro thì báo lỗi ạ. . . Nhờ các thầy cô và các anh chị giúp em với ạ. . .

Cho các sheet hiện lên trước như:

Sub auto()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    If Not (ws.Visible = xlSheetVisible) Then ws.Visible = xlSheetVisible
Next ws
With Sheet4
Application.ScreenUpdating = False
Call LayData
Call Tach_Data
Call LayDuLieuTach
Call ThayTheDuLieu
Call XoaTrungLapDuLieu
Call LayKetQua
Application.CutCopyMode = False
Application.ScreenUpdating = True
End With
End Sub

 

[zPeterPan]

Bạn dùng lệnh Select đối với sheet, trong khi đó nó bị ẩn thì lỗi đúng rồi. Bạn bỏ lênh đó đi nhé, lấy dữ liệu ko nhất thiết sử dụng select

nhưng nếu không dùng .select thì khi chạy sẽ bị lỗi 1 số sub() ạ

Bài đã được tự động gộp: 10/7/21

Cho các sheet hiện lên trước như:

Sub auto()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    If Not (ws.Visible = xlSheetVisible) Then ws.Visible = xlSheetVisible
Next ws
With Sheet4
Application.ScreenUpdating = False
Call LayData
Call Tach_Data
Call LayDuLieuTach
Call ThayTheDuLieu
Call XoaTrungLapDuLieu
Call LayKetQua
Application.CutCopyMode = False
Application.ScreenUpdating = True
End With
End Sub

dạ em cảm ơn bác nhiều ạ

 

[zPeterPan]

Cho các sheet hiện lên trước như:

Sub auto()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    If Not (ws.Visible = xlSheetVisible) Then ws.Visible = xlSheetVisible
Next ws
With Sheet4
Application.ScreenUpdating = False
Call LayData
Call Tach_Data
Call LayDuLieuTach
Call ThayTheDuLieu
Call XoaTrungLapDuLieu
Call LayKetQua
Application.CutCopyMode = False
Application.ScreenUpdating = True
End With
End Sub

ý của em là để ẩn sheet mà chạy sub Auto() vẫn chạy được không bị lỗi ạ. . .

 

[Phuocam]

ý của em là để ẩn sheet mà chạy sub Auto() vẫn chạy được không bị lỗi ạ. . .

Phải sửa lại các sub con.

.

 

[CHAOQUAY]

em có file TongHop và khi ấn thủ công hay tự động thì các sub() chạy ổn định, nhưng khi em ẩn(Hide) 1 trong các sheet thì chạy auto Macro thì báo lỗi ạ. . . Nhờ các thầy cô và các anh chị giúp em với ạ. . .

Phải bỏ select như bài 3 nói trên đó bạn, kèm theo là test chuẩn từng sub con