Cho em có code vba nào tự chọn ô copy và dán vào ô cần dán không vậy?

[binh123456789]

Xin chào anh chị trên diễn dàn . Cho em có code vba nào tự chọn ô copy và dán vào ô cần dán không vậy?
VD: Em muốn chọn copy là A1 đến A45 thì em nhấn nút nó sẽ tự copy. Sau đó em mở excel khác để dán vào bắt đầu từ B2 nhấn nút dán thì dữ liệu sẽ dán vào.
Nếu có addin càng tốt ạ. em xin cám ơn

 

[giaiphap]

Xin chào anh chị trên diễn dàn . Cho em có code vba nào tự chọn ô copy và dán vào ô cần dán không vậy?
VD: Em muốn chọn copy là A1 đến A45 thì em nhấn nút nó sẽ tự copy. Sau đó em mở excel khác để dán vào bắt đầu từ B2 nhấn nút dán thì dữ liệu sẽ dán vào.
Nếu có addin càng tốt ạ. em xin cám ơn

Chức này này Excel có sẳn mà bạn? Click nút Copy cũng được hoặc nhấn tổ hợp phím Ctrl+C cũng được mà. Không hiểu mục đích của bạn luôn.

 

[binh123456789]

Chức này này Excel có sẳn mà bạn? Click nút Copy cũng được hoặc nhấn tổ hợp phím Ctrl+C cũng được mà. Không hiểu mục đích của bạn luôn.

Em sưu tầm được code này
Sub ImportData_Test() 'Lấy dữ liệu từ 1 Workbook khác
Dim owb As Workbook
Dim sh As Worksheet

Set sh=Sheet1
'Mở file cần lấy dữ liệu
Set owb=Workbooks.Open("C:\Test\England.xlsm")
'C:\Test\ là thư mục chứa file
'England.xlsm là tên file, dạng file
'Copy vùng dữ liệu cần lấy: Vùng A1:F100 trong Sheet Data của file cần lấy dữ liệu
owb.Sheets("Data").Range("A1:F100").Copy
'Dán vào vị trí cần lấy kết quả: ô A1 trong Sheet1 của Workbook kết quả
sh.Range("A1").PasteSpecial xlPasteValues
'Đóng file cần lấy dữ liệu
owb.Close False

End Sub
Em muốn chỗ A1: F100 là được chọn ở ngoài không mặc định trong code và ô dán là A1 cũng tự chọn.

 

[giaiphap]

Em sưu tầm được code này
Sub ImportData_Test() 'Lấy dữ liệu từ 1 Workbook khác
Dim owb As Workbook
Dim sh As Worksheet

Set sh=Sheet1
'Mở file cần lấy dữ liệu
Set owb=Workbooks.Open("C:\Test\England.xlsm")
'C:\Test\ là thư mục chứa file
'England.xlsm là tên file, dạng file
'Copy vùng dữ liệu cần lấy: Vùng A1:F100 trong Sheet Data của file cần lấy dữ liệu
owb.Sheets("Data").Range("A1:F100").Copy
'Dán vào vị trí cần lấy kết quả: ô A1 trong Sheet1 của Workbook kết quả
sh.Range("A1").PasteSpecial xlPasteValues
'Đóng file cần lấy dữ liệu
owb.Close False

End Sub
Em muốn chỗ A1: F100 là được chọn ở ngoài không mặc định trong code và ô dán là A1 cũng tự chọn.

Ý tôi là tại sao bạn không sử dụng nút copy mà phải code cho mệt vậy?

 

[binh123456789]

Ý tôi là tại sao bạn không sử dụng nút copy mà phải code cho mệt vậy?

Dạ là do công việc copy nhìu nên cần có code cho nhanh ạ. Nếu giúp được giúp em với.

 

[giaiphap]

Dạ là do công việc copy nhìu nên cần có code cho nhanh ạ. Nếu giúp được giúp em với.

Cái này khó quá tôi không đủ sức giúp bạn rồi, đợi các thành viên khác vậy.

 

[binh123456789]

Cái này khó quá tôi không đủ sức giúp bạn rồi, đợi các thành viên khác vậy.

Cám ơn bạn

 

[be_09]

Xin chào anh chị trên diễn dàn . Cho em có code vba nào tự chọn ô copy và dán vào ô cần dán không vậy?
VD: Em muốn chọn copy là A1 đến A45 thì em nhấn nút nó sẽ tự copy. Sau đó em mở excel khác để dán vào bắt đầu từ B2 nhấn nút dán thì dữ liệu sẽ dán vào.
Nếu có addin càng tốt ạ. em xin cám ơn

Góp ý cho bạn:
1/ Đưa đoạn code lên có diễn giải cụ thể mà sao không đọc xem từng đoạn nó nêu cái gì? Xem 2/ và 3/ để hiểu muốn làm được thì cần cái gì?
2/ Hỏi thì cần đính kèm File, còn không thì cũng nên cụ thể tên File, tên sheet (đi tìm nhà thằng bạn mà không biết tên phường và tên đường làm sao tìm?).
3/ Không đính kèm File và cũng không nêu đường dẫn thì bó tay rồi.
4/ Tiêu đề nên sửa lại cho rõ ràng "Giúp Copy dữ liệu và Paste vào cột trống tiếp theo bên phải dữ liệu của File khác".

 

[binh123456789]

em gửi kèm file đây ạ. xin giúp đở.
lấy dữ liệu từ file1 sang file2

Bài đã được tự động gộp: 1/12/19

có thể tạo thành addin dùm em cũng được ạ. Xin cám ơn

 

[thukhon2014]

em gửi kèm file đây ạ. xin giúp đở.
lấy dữ liệu từ file1 sang file2

Bài đã được tự động gộp: 1/12/19

có thể tạo thành addin dùm em cũng được ạ. Xin cám ơn

Bạn Save As file của bạn thành đuôi .xla là nó tự thành addin nhé !

 

[binh123456789]

Giúp đỡ với ạ.