Nhờ sửa code copy từ file khác (1 người xem)

[thanhduc_iit]

Chào tất cả các bác,
Em sưu tầm được đoạn code copy từ 1 file excel khác
Nhưng khi dán dữ liệu thì bắt đầu từ ô A1
Giờ em muốn dữ liệu được dán bắt đầu từ ô E4 thì làm sao ạ?

 

[nginh]

Chào tất cả các bác,
Em sưu tầm được đoạn code copy từ 1 file excel khác
Nhưng khi dán dữ liệu thì bắt đầu từ ô A1
Giờ em muốn dữ liệu được dán bắt đầu từ ô E4 thì làm sao ạ?

Sub Copy_Excel()
    With Application.FileDialog(1)
    On Error Resume Next
        .InitialFileName = ThisWorkbook.Path
        .Title = "Chon file"
        .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
        With Workbooks.Open(.SelectedItems(1))
            .Sheets(1).Cells.Copy ThisWorkbook.Sheets(1).[A1]
            .Close False
           MsgBox "Da xong...", , "Hoan thanh"
        End With
    End With
End Sub

Bạn mở to mắt ngó trong đoạn code trên chỗ nào có A1 thì thay bằng E4

 

[thanhduc_iit]

Bạn mở to mắt ngó trong đoạn code trên chỗ nào có A1 thì thay bằng E4

[COLOR=#000000][I]            .Sheets(1).Cells.Copy ThisWorkbook.Sheets(1).[E4][/I][/COLOR]

Thế mà nó k chạy mới đau

 

[Ngoai Thanh]

Chào tất cả các bác,
Em sưu tầm được đoạn code copy từ 1 file excel khác
Nhưng khi dán dữ liệu thì bắt đầu từ ô A1
Giờ em muốn dữ liệu được dán bắt đầu từ ô E4 thì làm sao ạ?

Sub Copy_Excel()
    With Application.FileDialog(1)
    On Error Resume Next
        .InitialFileName = ThisWorkbook.Path
        .Title = "Chon file"
        .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
        With Workbooks.Open(.SelectedItems(1))
            .Sheets(1).Cells.Copy ThisWorkbook.Sheets(1).[A1]
            .Close False
           MsgBox "Da xong...", , "Hoan thanh"
        End With
    End With
End Sub

Bạn sửa code như sau :

Sub Copy_Excel()
With Application.FileDialog(1)
On Error Resume Next
.InitialFileName = ThisWorkbook.Path
.Title = "Chon file DICH - Mau D03-TS"
.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
With Workbooks.Open(.SelectedItems(1))
.Sheets(1).Range("A1:AA10000").Copy ThisWorkbook.Sheets(1).[E4]
.Close False
MsgBox "Da xong...", , "Hoan thanh"
End With
End With
End Sub
chỗ font mầu xanh là tùy bạn thay đổi .