Cần giúp đỡ: tạo nút copy cho 1 vùng dữ liệu cố định

Liên hệ QC

toanphansy

Thành viên mới
Tham gia
9/1/13
Bài viết
13
Được thích
0
Thưa các a/c/e tiền bối, em có một vấn đề này cần mọi người giúp ạ.
Em có gửi file đính kèm ở dưới ạ.
Em đang cần copy vùng "A5:H17" xuống phía dưới dòng tiếp theo của cột A, khi e thực hiện thao tác nhấn tổ hợp phím (Ctrl + Down) và (Enter) xuống dòng tiếp theo(tức ô A18), thì Paste định dạng và công thức.
Em đã thử dùng Record Macro để lấy được bộ code, tuy nhiên ở chỗ "Enter xuống dòng tiếp dưới - (kq là xuống ô A18)" thì trên macro không thể hiện ra được ý tưởng em cần mà chỉ chuyển thành dạng Range"A18".Select ạ.
Ý tưởng của em là để Sau này mỗi khi e cần copy thêm 1 lần vùng "A5:H17" xuống dưới cùng thì có thể dùng 1 nút đơn giản ạ.
Hy vọng các tiền bối giúp em với ạ.
Em cảm ơn mọi người
 

File đính kèm

  • file test.xlsb
    13.6 KB · Đọc: 5
Thưa các a/c/e tiền bối, em có một vấn đề này cần mọi người giúp ạ.
Em có gửi file đính kèm ở dưới ạ.
Em đang cần copy vùng "A5:H17" xuống phía dưới dòng tiếp theo của cột A, khi e thực hiện thao tác nhấn tổ hợp phím (Ctrl + Down) và (Enter) xuống dòng tiếp theo(tức ô A18), thì Paste định dạng và công thức.
Em đã thử dùng Record Macro để lấy được bộ code, tuy nhiên ở chỗ "Enter xuống dòng tiếp dưới - (kq là xuống ô A18)" thì trên macro không thể hiện ra được ý tưởng em cần mà chỉ chuyển thành dạng Range"A18".Select ạ.
Ý tưởng của em là để Sau này mỗi khi e cần copy thêm 1 lần vùng "A5:H17" xuống dưới cùng thì có thể dùng 1 nút đơn giản ạ.
Hy vọng các tiền bối giúp em với ạ.
Em cảm ơn mọi người
Tại A17 sử dụng hàm sau:
=$B5&" - "&$C5

Mã:
Sub NhapLieu()
    Sheet1.Range("A5:H17").Copy
    Sheet1.Range("A50000").End(xlUp).Offset(1).PasteSpecial
End Sub
 

File đính kèm

  • Copy Paste xuong.xlsb
    15.5 KB · Đọc: 7
Upvote 0
Bác be09 ơi, cho em làm phiền thêm 1 chút được không ạ.
Em đã tạo được 2 macro như trong file đính kèm (1 cái bác đã tạo hộ em ở trên). Giờ em muốn chỗ lệnh "Filter & Paste" nó sẽ xóa dữ liệu đã copy ở lần trước và paste lại giá trị ở lần chạy macro sau thì phải chèn thêm code gì ạ.
Em cảm ơn bác lắm ạ.
 

File đính kèm

  • test file.xlsb
    22.8 KB · Đọc: 5
Upvote 0
Bác be09 ơi, cho em làm phiền thêm 1 chút được không ạ.
Em đã tạo được 2 macro như trong file đính kèm (1 cái bác đã tạo hộ em ở trên). Giờ em muốn chỗ lệnh "Filter & Paste" nó sẽ xóa dữ liệu đã copy ở lần trước và paste lại giá trị ở lần chạy macro sau thì phải chèn thêm code gì ạ.
Em cảm ơn bác lắm ạ.
Cái này thì bạn Record macro.Là được mà.Xóa cái cũ thì xác định vùng cần xóa rồi xóa là được.
 
Upvote 0
Bác be09 ơi, cho em làm phiền thêm 1 chút được không ạ.
Em đã tạo được 2 macro như trong file đính kèm (1 cái bác đã tạo hộ em ở trên). Giờ em muốn chỗ lệnh "Filter & Paste" nó sẽ xóa dữ liệu đã copy ở lần trước và paste lại giá trị ở lần chạy macro sau thì phải chèn thêm code gì ạ.
Em cảm ơn bác lắm ạ.
Chưa hiểu ý muốn của bạn, có thể bạn muốn Copy những chỗ có hàm từ sheet Chi_tiet.

Trại heo ABC - Chuồng số 1

Và Paste Value sang sheet Tong_hop
 
Upvote 0
Cái này thì bạn Record macro.Là được mà.Xóa cái cũ thì xác định vùng cần xóa rồi xóa là được.
Em sẽ thử ạ. Tks bác
Bài đã được tự động gộp:

Chưa hiểu ý muốn của bạn, có thể bạn muốn Copy những chỗ có hàm từ sheet Chi_tiet.

Trại heo ABC - Chuồng số 1

Và Paste Value sang sheet Tong_hop
Vâng ạ. E muốn khi click nút "Filter&Paste" thì copy vùng chọn sang bên sheet Tonghop. Nhưng mỗi lần e chạy macro này nó sẽ xóa các dữ liệu cũ bên cột A của sheeet Tonghop đi, và paste dữ liệu lọc được bên Chitiet sang ạ.
 
Upvote 0
Em sẽ thử ạ. Tks bác
Bài đã được tự động gộp:


Vâng ạ. E muốn khi click nút "Filter&Paste" thì copy vùng chọn sang bên sheet Tonghop. Nhưng mỗi lần e chạy macro này nó sẽ xóa các dữ liệu cũ bên cột A của sheeet Tonghop đi, và paste dữ liệu lọc được bên Chitiet sang ạ.
Vậy Copy vùng chọn sang bên sheet Tonghop xong thì xóa dữ liệu (tại sao tạo ra nó rồi lại phải xóa) hay xóa luôn dòng đó?
 
Upvote 0
Vậy Copy vùng chọn sang bên sheet Tonghop xong thì xóa dữ liệu (tại sao tạo ra nó rồi lại phải xóa) hay xóa luôn dòng đó?
Kiểu như nó sẽ updating lại dữ liệu ý a. có thể lần 1 em copy sang sheet Tonghop 10 dòng, nhưng lúc sau e xóa bớt dữ liệu bên Chitiet, số dòng copy lần 2 chỉ có 6 dòng. vậy là 4 dòng của lần 1 vẫn còn tồn tại sau khi e copy dữ liệu mới ở lần 2 sang ạ.
 
Upvote 0
Kiểu như nó sẽ updating lại dữ liệu ý a. có thể lần 1 em copy sang sheet Tonghop 10 dòng, nhưng lúc sau e xóa bớt dữ liệu bên Chitiet, số dòng copy lần 2 chỉ có 6 dòng. vậy là 4 dòng của lần 1 vẫn còn tồn tại sau khi e copy dữ liệu mới ở lần 2 sang ạ.
Chẳng hiểu, làm đại hên thì trúng, nhấn nút Tổng hợp để xem kết quả:
Trình tự: Filter cột D của Sheet1 xong Copy vùng chọn và Paste sang sheet Tonghop.
 

File đính kèm

  • Copy Paste xuong.xlsb
    21.4 KB · Đọc: 6
Lần chỉnh sửa cuối:
Upvote 0
Web KT
Back
Top Bottom