Macro tự động copy (1 người xem)

[tuanntss]

Chào cả nhà.
Mình muốn hỏi về cách tạo macro động. Dựa trên việc nhập dữ liệu từ ô không cố định.

Chi tiết trong file đính kèm

Mong mọi người giúp đỡ.

Xin cảm ơn!

Câu hỏi như sau:
Mình có ô:
z4: đường dẫn file
z5: tên sheet
z6: ô đầu tận cùng bên trái của bảng cần chọn
z7: ô cuối tận cùng bên phải của bảng cần chọn
z8: vị trí cần copy
Làm sao để tạo 1 nút macro, khi click sẽ tự động copy bảng cần chọn vào vị trí z8?
Xin cảm ơn!

 

[vu_tuan_manh_linh]

Chào cả nhà.
Mình muốn hỏi về cách tạo macro động. Dựa trên việc nhập dữ liệu từ ô không cố định.

Chi tiết trong file đính kèm

Mong mọi người giúp đỡ.

Xin cảm ơn!

Cái này bạn ghi macro rồi nghiên cứu đoạn code của nó. Không khó lắm đâu, khám phá đôi khi thú vị hơn nhiều!

 

[tuanntss]

Cái này bạn ghi macro rồi nghiên cứu đoạn code của nó. Không khó lắm đâu, khám phá đôi khi thú vị hơn nhiều!

Mình rất thik khám phá và học hỏi thêm. Nhưng vì gần như mù tịt về macro nên đành chịu.
Hơn nữa vì là địa chỉ không tĩnh nên không biết thuật toán nào để đọc giá trị trong ô.
Record chỉ đưa ra giá trị tĩnh.

Đành học bằng cách hỏi vậy. Vì hỏi là 1 cách học nhanh hơn đọc sách
rất mong được sự giúp đỡ của các cao thủ.
xin cảm ơn trước.

 

[viehoai]

Chào cả nhà.
Mình muốn hỏi về cách tạo macro động. Dựa trên việc nhập dữ liệu từ ô không cố định.

Chi tiết trong file đính kèm

Mong mọi người giúp đỡ.

Xin cảm ơn!

Câu hỏi như sau:
Mình có ô:
z4: đường dẫn file
z5: tên sheet
z6: ô đầu tận cùng bên trái của bảng cần chọn
z7: ô cuối tận cùng bên phải của bảng cần chọn
z8: vị trí cần copy
Làm sao để tạo 1 nút macro, khi click sẽ tự động copy bảng cần chọn vào vị trí z8?
Xin cảm ơn!

Bạn thử dùng code này thử nhé. Hy vọng đúng ya bạn

Sub GPE()
Dim AcSh As Worksheet, ThisSh As Worksheet
Workbooks.Open Filename:=Sheet1.Range("Z4").Value
Set ThisSh = ThisWorkbook.Sheets("CA - 1")
Set AcSh = ActiveWorkbook.Sheets(ThisSh.Range("Z5").Value)
AcSh.Range(ThisSh.Range("Z6").Value & ":" & ThisSh.Range("Z7").Value).Copy AcSh.Range(ThisSh.Range("Z8").Value)
ActiveWorkbook.Close (True)
End Sub

 

[tuanntss]

Thánks bạn rất rất nhiều

Chính xác hơn thì là như thế này

Sub GPE()
Dim AcSh As Worksheet, ThisSh As Worksheet
Workbooks.Open Filename:=Sheet1.Range("Z4").Value
Set ThisSh = ThisWorkbook.Sheets("CA - 1")
Set AcSh = ActiveWorkbook.Sheets(ThisSh.Range("Z5").Value)
AcSh.Range(ThisSh.Range("Z6").Value & ":" & ThisSh.Range("Z7").Value).Copy ThisSh.Range(ThisSh.Range("Z8").Value)
ActiveWorkbook.Close (True)
End Sub