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
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