Copy vùng sang workbook khác

[trantuonganh2008]

Mình muốn copy vùng từ sheet này của workbook này sang sheet khác của workbook khác thì làm thế nào. VD: mình muốn chép vùng B5:J200 của sheet 1 nằm ở workbook có tên là C.xls sang sheet 2 của workbook có tên là D.xls và chép vào dòng trống đầu tiên của sheet 2 ở D.xls nhé. Cám ơn các bạn nhiều!

 

[QuocPhong]

Xin lỗi, mình không hiểu ý bạn lắm. Chẳng lẽ bạn không biết copy và dán?

 

[trantuonganh2008]

Ý mình là viết code cho trừơng hợp này. Sorry vì nói không rõ!

 

[trantuonganh2008]

Nhờ các bạn giúp mình bài này với. Cám ơn nhiều!

 

[Hai Lúa Miền Tây]

Mình muốn copy vùng từ sheet này của workbook này sang sheet khác của workbook khác thì làm thế nào.
VD: mình muốn chép vùng B5:J200 của sheet 1 nằm ở workbook có tên là C.xls sang sheet 2 của workbook có tên là D.xls và chép vào dòng trống đầu tiên của sheet 2 ở D.xls nhé. Cám ơn các bạn nhiều!

Bạn có thể mở worksheet C ra rồi record macro lại chọn vùng B5:J200 của sheet 1 nằm ở workbook có tên là C.xls , nhấn Ctrl+C, sau đó mở workbook có tên là D.xls vào sheet2 click chuột vào A1 xong nhấn ctrl+V, nhấn stop record macro, bạn vào code xem thử nó sẽ cho ra đoạn mã bạn cần, tuy nhiên để cho nó theo ý bạn, bạn cũng nên chỉnh sửa lại chút xíu.
Sau khi record lại mình được đoạn code sau:

Sub COPY()
    Sheets("Sheet1").Select
    Range("B5:J200").Select
    Selection.COPY
    Workbooks.Open Filename:="C:\Users\Mr Dom\Desktop\D.xls" 'Mo duong dan den Workbook co ten la D
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub

Thân

 

[trantuonganh2008]

Bạn đã chỉ cho mình xong bước 1. Cám ơn bạn. Nhưng còn B2 nữa. Vì sheet2 trong D.xls đã có dữ liệu sẵn, mình muốn copy sheet 1 của C.xls vào dòng trống đầu tiên của sheet 2 thì làm thế nào. VD sheet 2 đã có dữ liệu đến dòng từ A5:F30 ==> dòng 31 là dòng trống, mình muốn copy vùng của sheet 1 vào dòng 31 của sheet 2 thì làm thế nào?

 

[trantuonganh2008]

Nhờ các bạn giúp mình giải bài này, mình đang rất cần đoạn code này. Tks!

 

[sealand]

Tìm dòng trống đầu tiên= Sheet2.Range("A65536").End(xlUp).Row+1

Khi đã biết dòng trống đầu tiên rồi thì chắc bạn sử lý được.Mình sửa code của Dom

Sub COPY()
    Sheets("Sheet1").Select
    Range("B5:J200").Select
    Selection.COPY
    Workbooks.Open Filename:="C:\Users\Mr Dom\Desktop\D.xls" 'Mo duong dan den Workbook co ten la D
    Sheets("Sheet2").cells([B][COLOR=Blue]Sheet2.Range("A65536").End(xlUp).Row+1,1).paste[/COLOR][/B]
    End Sub

 

[cbtm]

Cho Mình mượn cùng một đề tài nhé

Mình đả thử chạy macro như không được, nhờ các ḅan giúp đở. mình gởi file đính kèm,. ở phần Private Sub CommandButton10_Click() mình muốn để code ở dưới vào.

Sub Macro1()
    Sheets("CREDIT").Select
    Columns("A:C").Select
    Selection.Copy
    Sheets("INCOME").Select
    Columns("A:C").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E18").Select
    Sheets("SUPPLY").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("INCOME").Select
    Columns("D:D").ColumnWidth = 10.29
    Columns("D:D").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("MAI").Select
    Columns("G:G").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("INCOME").Select
    Columns("E:E").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("CHANH").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("INCOME").Select
    Columns("F:F").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("HOANG").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("INCOME").Select
    Columns("G:G").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("HANH").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("INCOME").Select
    Columns("H:H").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("INCOME").Select
    Range("I2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=RC[-7]+RC[-6]-RC[-5]-RC[-4]-RC[-3]-RC[-2]-RC[-1]"
    Range("I3").Select
End Sub

 

[trantuonganh2008]

Mình chạy code không được bạn ơi. Mình muốn copy sang sheet 1 của C.xls vào dòng trống đầu tiên sau dòng có dữ liệu và dữ liệu bắt đầu từ cột A

 

[sealand]

To cbtm:
Bạn cứ nói cụ thể bạn cần làm như thế nào thì dễ hơn ngồi dò cái Marcro dài ngoẵng. Mình cho rằng code sẽ ngắn và hiệu quả hơn nhiều tại vì Marcro của bạn có quá nhiều lệnh thừa

 

[TrungChinhs]

Có phải ý bạn thế này không ?

Sub CopyVung()
Dim Rz As Long
Rz = Sheets("D.xls").[B65536].End(xlUp).Row + 1
Sheets("D.xls").Range("B" & Rz & ": J" & Rz + 198 & "") = Sheets("C.xls").Range("B2:J200").Value
End Sub

 

[xthu]

Copy vùng qua workbook khác

Xin chào các Bạn
Đề tài này rất hay và rất đang cần thiết cho tôi
Nhưng với đoạn code đang thảo luận cụ thể của bạn Dom. thì nơi past dữ liệu không viết code
Bây giờ tôi muốn nơi Past ( Workbook D, workbook mẫu )được viết Code để các lấy đữ liệu từ các workbook khác về (chẳng hạn Workbook C1, C2, C3...workbook dữ liệu)
Mong các Bạn giúp.