Xin giúp đỡ copy một vùng sang file khác (7 người xem)

[Tran Mui]

Tôi cần code để copy một vùng dữ liệu của file nguồn ( ví dụ A6:G35) , đến file đích cũng từ A6:G35 chẳng hạn.
Mong Các bạn giúp nhé
File ví dụ đính kèm

 

[Tran Mui]

Xin CODDE để thực hiện việc copy một vùng từ file nguồn sang file đích

Mọi người giúp CODE để thực hiện việc copy một vùng sang file khác, trên đây chỉ là ví dụ, tôi rất cần để thực hiện công việc
Mong GPE giúp

 

[TongDe]

Ngắn gọn cho test thử
Nếu thấy chưa ổn thì yêu cầu thêm
Sub Copy_Click()
Dim rNguon As Range
Dim rDich As Range
Set rNguon = Application.InputBox("Chon vung muon copy :", Type:=8)
Set rDich = Application.InputBox("Cell noi muon dan :", Type:=8)
rNguon.Copy rDich
End Sub

 

[Tran Mui]

Bạn Xem lại giúp , mình không dẫn được đến file mới nội dung cần copy

 

[TongDe]

Sorry nhưng cho hỏi lại
Bạn có 1 file nguồn và 1 file đích hay nhiều flle đích
Tên file đích có tên cụ thể không ?

 

[yeudoi]

Tôi cần code để copy một vùng dữ liệu của file nguồn ( ví dụ A6:G35) , đến file đích cũng từ A6:G35 chẳng hạn.
Mong Các bạn giúp nhé
File ví dụ đính kèm

Bạn dùng code này là đơn giản nhất

Sub copyfile()
range("[tên file đích]tên sheet!A6:G35").value = range("[tên file nguồn] tên sheet!A6:G35").value
end sub

 

[sealand]

Mình có sưu tầm được file trên diễn đàn nhưng quên mất tác giả rồi. Mình gửi lên bạn tham khảo nha

 

[Tran Mui]

Bạn Đệ ơi File đích có tên cụ thể, Bạn cứ chọn một tên nào đó để làm ví dụ cũng được
Vì công việc mình cần làm không phải ở một file
nếu copy thủ công , mất nhiều thời gian, Bạn làm cho mình file đích không cần mở thì càng tốt
Mình cám ơn trước nhé

 

[Tran Mui]

Bạn Yeudoi đưa code vào ví dụ giúp để mình làm theo
cám ơn bạn

 

[chibi]

Đây là một ví dụ.

Option Explicit
Sub Rcopy()
    Dim Fname1, Fname2, Newbook As Workbook
    Application.ScreenUpdating = False
    Fname1 = ActiveWorkbook.Name
    Fname2 = "vidu.xls"
    Set Newbook = Workbooks.Add
    With Newbook
        .Sheets("Sheet1").Range("A6:G35").Value = _
        Workbooks(Fname1).Sheets("Sheet1").Range("A6:G35").Value
        .SaveAs Filename:="C:\" & Fname2
    End With
    Workbooks(Fname2).Close
    Set Newbook = Nothing
    Application.ScreenUpdating = True
End Sub

 

[Tran Mui]

Cám ơn ChiBi, bạn có thể tạo đường dẫn đến file đích cần đến giúp mình với. Hiện nay khi chạy Run thì nó tạo ra book 1
Hai là bạn tạo cho nút copy ngay trên file nguồn
Xin cám ơn

 

[chibi]

..., bạn có thể tạo đường dẫn đến file đích cần đến giúp mình với...Hai là bạn tạo cho nút copy ngay trên file nguồn...

Đường dẫn trong ví dụ trên đặt sẵn là "C:\", bạn có thể thay đổi lại cho phù hợp.
Và ví dụ cụ thể trong file đính kèm.