Hỏi đáp về vba copy sheet bằng một nút bấm

[bitun1991]

Xin chào các anh chị,
hiện tại em có thực hiện 1 mã vba để copy sheet1 (nghĩa là sheet thông tin) sang một file mới mà không chứa hàm hay code bên trong.
khi em khở chạy thì báo lỗi, hiện em chưa rõ em bị sai như thế nào.

Nhờ các anh chị chỉ dạy giúp em với ạ.
Bên dưới đây là code e đang sử dụng ạ
Em cũng gửi kèm luôn file ạ.

Em xin cảm ơn.

Sub XAC()
Application.ScreenUpdating = False
Dim j As Integer
Sheets (Array(Sheet1.Name))
.Copy
For j = 1 To Sheets.Count
Sheets(j).Activate
[A1:BG50].Copy
[A1:BG50].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = True
Range("B3").Select
Next
Application.ScreenUpdating = True
End Sub

 

[phammaihuong90]

Mình chạy thử thì có lỗi đâu nhỉ, bạn lỗi dòng này ah
Sheets (Array(Sheet1.Name))
.Copy

 

[bitun1991]

Mình chạy thử thì có lỗi đâu nhỉ, bạn lỗi dòng này ah
Sheets (Array(Sheet1.Name))
.Copy

dạ vâng ạ, nó cứ báo lỗi debug, mà em nhìn đi nhìn lại không thấy sai gì ạ.

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

 

[ongke0711]

dạ vâng ạ, nó cứ báo lỗi debug, mà em nhìn đi nhìn lại không thấy sai gì ạ.

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

View attachment 288593

Cái dòng '.Copy' bị đẩy xuống dòng dưới --> kéo nó lên trên sát vô cái dấu ngoặc đơn "...)).Copy"