Viết lệnh copy từ sheet kh sang sheet Data (2 người xem)

[HUYNHTIEN0202]

Chào các Anh GPE
Hiện tại công việc hàng ngày của em điều thao tác bằng tay
Em có 1 sheet KH gồm 3 sheet giống nhau
Mỗi ngày em copy dữ liệu từ sheet KH sang sheet Data
Tại sheet KH em copy lần 1 đến lần 6 và dán vào sheet Data
Mỗi ngày file KH đểu khác nhau nên không làm macro được
Không biết cái này có viết code được không

 

[Quang_Hải]

Chào các Anh GPE
Hiện tại công việc hàng ngày của em điều thao tác bằng tay
Em có 1 sheet KH gồm 3 sheet giống nhau
Mỗi ngày em copy dữ liệu từ sheet KH sang sheet Data
Tại sheet KH em copy lần 1 đến lần 6 và dán vào sheet Data
Mỗi ngày file KH đểu khác nhau nên không làm macro được
Không biết cái này có viết code được không

Macro không được thì code cũng không được vì macro chính là code, code chính là macro.
Bài này dễ ẹc nhưng thấy chữ đỏ rực nên tự nhiên lười. Đợi nếu không ai viết thì mình cày cho.

 

[Quang_Hải]

1. Phải lưu 2 file trong cùng 1 thư mục
2. Cấu trúc file phải đúng như file mẫu
3. Vui lòng không thắc mắc thêm

Sub copydulieu()
Dim wb As Workbook, sh As Worksheet, WBname As String
Dim cursh As Worksheet, chk As Boolean
Set cursh = ActiveSheet
WBname = "KH.xls"
For Each wb In Workbooks
   If wb.Name = WBname Then chk = True
Next
If chk = False Then Workbooks.Open (ThisWorkbook.Path & "\" & WBname)
With Workbooks(WBname)
   For Each sh In .Worksheets
      sh.Range(sh.[C10], sh.[E65536].End(3)).Copy cursh.[B65536].End(3)(2)
      sh.Range(sh.[J10], sh.[L65536].End(3)).Copy cursh.[B65536].End(3)(2)
   Next
End With
cursh.Range("B5", cursh.[B65536].End(3)).Offset(, -1) = [row(a:a)]
End Sub