Copy tất cả các Sheet từ file Ke hoach sang file copy sheet (1 người xem)

[lhthai]

Chào các anh GPE
Công việc như sau
Mở file copysheet lên nhấn nút copy 3 thì chép tất cả các dữ liệu từ file kế hoạch
sang sheetcopy
hiện tại mình làm được copy2 chỉ copy được 1 sheet thoi
nay muốn mở rộng thêm nhưng không biết sai chỗ nào

Private Sub CommandButton3_Click()
Dim wb As Workbook, sh As Worksheet, WBname As String
Dim cursh As Worksheet, chk As Boolean
With Application.FileDialog(1)
        .InitialFileName = ThisWorkbook.Path
        .Title = "Chon file nguon"
        .FilterIndex = 3
        .AllowMultiSelect = False
        Do
            .Show
            If .SelectedItems.Count = 0 Then Exit Sub
            If .SelectedItems(1) = ThisWorkbook.FullName Then MsgBox "Khong chon file nay!"
        Loop Until .SelectedItems(1) <> ThisWorkbook.FullName
        Application.DisplayAlerts = False
        ThisWorkbook.Sheets(1).Cells.ClearContents
        With Workbooks.Open(.SelectedItems(1))
           For Each sh In .Worksheets
            .sh.Range(sh.[A3], sh.[H6000].End(xlUp)).Copy
            ThisWorkbook.Sheets(1).[A6000].End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
               Next
            .Close False
        End With
        Application.DisplayAlerts = True
    End With
End Sub

]

 

[be_09]

Cái này phải có vài File (khoảng 3 File) thì mới chính xác, bạn muốn từng File vào từng sheet hay gộp tất cả các File vào 1 sheet duy nhất.

 

[Quang_Hải]

Chào các anh GPE
Công việc như sau
Mở file copysheet lên nhấn nút copy 3 thì chép tất cả các dữ liệu từ file kế hoạch
sang sheetcopy
hiện tại mình làm được copy2 chỉ copy được 1 sheet thoi
nay muốn mở rộng thêm nhưng không biết sai chỗ nào

Code nhìn rối mắt quá. Nếu sửa thì mình viết mới cho gọn. Nếu có 1 file thì chỉ đường dẫn ra luôn, sao phải do loop tá lả vậy?

Cái dòng này sau lại có dấu chấm trước biến sh vậy?
.sh.Range(sh.[A3], sh.[H6000].End(xlUp)).Copy

 

[lhthai]

Code nhìn rối mắt quá. Nếu sửa thì mình viết mới cho gọn. Nếu có 1 file thì chỉ đường dẫn ra luôn, sao phải do loop tá lả vậy?

Cái dòng này sau lại có dấu chấm trước biến sh vậy?
.sh.Range(sh.[A3], sh.[H6000].End(xlUp)).Copy

Em bỏ dấu chấm trước đã chạy được rồi
Cám ơn anh nha