Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Sub MergeWBs() Workbooks("TH_Merge WBs").Sheets("Data").Range("A2:C4").Value = _ Workbooks("Book1").Sheets("Sheet1").Range("A2:C4").Value End Sub
Nhờ AD sửa giúp mình ạ.
Cám ơn AD.
vỗ tay
Trần Thị Phương Dung16:06 - Jun 20, 2020
Mình làm y hệt hướng dẫn của Thầy nhưng bị lỗi Subscript out of range.
Sub MergeWBs() Workbooks("TH_Merge WBs").Sheets("Data").Range("A2:C4").Value = _ Workbooks("Book1").Sheets("Sheet1").Range("A2:C4").Value End Sub
Nhờ AD sửa giúp mình ạ.
Cám ơn AD.
vỗ tay
Trần Thị Phương Dung09:06 - Jun 22, 2020
tên workbook chưa đúng. Bạn chú ý khi viết tên Workbook phải viết tên file và đuôi file nữa. Workbooks("TH_Merge WBs.xlsm")
vỗ tay
Trần Thị Phương Dung08:06 - Jun 24, 2020
Sub MergeWBs_01() Workbooks("TH_Merge WBs.xlsm").Sheets("Data").Range("A2:C4").Value = _ Workbooks("Book1.xls").Sheets("Sheet1").Range("A2:C4").Value End Sub MÌnh đã chỉnh lại thêm đuôi file nhưng vẫn báo lỗi như cũ Subscript out of range ạ.
vỗ tay
Trần Thị Phương Dung09:06 - Jun 29, 2020
Vì kiểm tra code thấy nội dung đúng rồi. Để code chạy thì 2 workbook đều phải đang được mở. Bạn thử xem lại xem. Nếu được bạn gửi kèm file để mình kiểm tra xem sao (xem hướng dẫn đính kèm file bên dưới khung chat)
vỗ tay
Trần Thị Phương Dung21:07 - Jul 07, 2020
Bạn Trần Thị Phương DUng sửa lại đuôi file của Book1 xem có chạy được không ạ =>Workbooks("Book1.xlsm").Sheets("Sheet1").Range("A2:C4").Value