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

toanphansy

Thành viên mới
Tham gia ngày
9 Tháng một 2013
Bài viết
13
Thích
0
Điểm
363
Tuổi
29
#1
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

be09

Biên Hòa - Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
7,150
Thích
6,898
Điểm
560
Tuổi
61
#2
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

toanphansy

Thành viên mới
Tham gia ngày
9 Tháng một 2013
Bài viết
13
Thích
0
Điểm
363
Tuổi
29
#4
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

snow25

Thành viên tích cực
Tham gia ngày
24 Tháng bảy 2018
Bài viết
989
Thích
689
Điểm
210
#5
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.
 

be09

Biên Hòa - Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
7,150
Thích
6,898
Điểm
560
Tuổi
61
#6
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
 

toanphansy

Thành viên mới
Tham gia ngày
9 Tháng một 2013
Bài viết
13
Thích
0
Điểm
363
Tuổi
29
#7
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 ạ.
 

be09

Biên Hòa - Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
7,150
Thích
6,898
Điểm
560
Tuổi
61
#8
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 đó?
 

toanphansy

Thành viên mới
Tham gia ngày
9 Tháng một 2013
Bài viết
13
Thích
0
Điểm
363
Tuổi
29
#9
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 ạ.
 

be09

Biên Hòa - Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
7,150
Thích
6,898
Điểm
560
Tuổi
61
#10
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

Lần chỉnh sửa cuối:
Top