Copy data từ Workbook A sang 1st blank row của Workbook B

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài

tiiumin100205

Thành viên mới
Tham gia
4/3/12
Bài viết
1
Được thích
0
Dear anh/ chị,
Mình muốn copy range (B3:M3") của sheet 1/ workbook "File Name..." sang ô trống đầu tiên của cột B/ sheet "SCS HCM"/ workbook "Summary". Nhưng code bị lỗi Subscript out of range. Mong anh/ chị giúp đỡ chỉ giúp mình code sai ở chỗ nào ạ.

Sub Send()
'Tim empty row

erow = Workbooks("SUMMARY.xlsm").Worksheets("SCS HCM").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

'Copy data
Workbooks("FILE NAME_LE THI HANH TRANG.xlsm").Worksheets("Sheet1").Rows("3").Copy
Workbooks("SUMMARY.xlsm").Worksheets("SCS HCM").Cells(erow, 2).PasteSpecial xlPasteValues

End Sub
 

File đính kèm

  • FILE NAME_NGUYEN THI LE.xlsm
    591.3 KB · Đọc: 2
  • SUMMARY.xlsm
    569.1 KB · Đọc: 3
Workbooks("FILE NAME_LE THI HANH TRANG.xlsm").Worksheets("Sheet1").Rows("3").Copy
Workbooks("SUMMARY.xlsm").Worksheets("SCS HCM").Cells(erow, 2).PasteSpecial xlPasteValues

File gửi lên tên là: FILE NAME_NUYEN THI LE.xlsm đâu phải FILE NAME_LE THI HANH TRANG.xlsm?

Copy range (B3:M3") thì ghi : Worksheets("Sheet1").range (B3:M3").Copy, sao lại là: .Worksheets("Sheet1").Rows("3").Copy?

.
 
Web KT
Back
Top Bottom