Chèn thêm dòng vào sau mỗi dòng tên Nhân viên (1 người xem)

[phnhu76]

Chào các Anh/Chị,

Em có một file sử dụng VBA được các Anh/Chị làm giúp lần trước. Bây giờ em muốn chèn thêm dòng sau mỗi dòng tên nhân viên nhưng khi nhấn nút "CHÉP" thì các dòng này (có công thức của em) sẽ không bị mất.
Các Anh/Chị vui lòng xem file đính kèm và giúp dùm em.

Xin cảm ơn!

 

[nmhung49]

Chào các Anh/Chị,

Em có một file sử dụng VBA được các Anh/Chị làm giúp lần trước. Bây giờ em muốn chèn thêm dòng sau mỗi dòng tên nhân viên nhưng khi nhấn nút "CHÉP" thì các dòng này (có công thức của em) sẽ không bị mất.
Các Anh/Chị vui lòng xem file đính kèm và giúp dùm em.

Xin cảm ơn!

Mở code lên bỏ 2 dòng code này xem sau
[GPECODE=vb]
[A7].Resize(9999, 64).ClearContents
Sh.[AA2].CurrentRegion.Offset(1).Copy Destination:=[A9999].End(xlUp).Offset(1)
[/GPECODE]

 

[phnhu76]

Chào bạn,

Bạn có thể xem lại dùm mình không vì khi mình bỏ 2 dòng lệnh trên thì công thức của mình không mất nhưng nếu mình xóa bớt dữ liệu gốc (xóa bớt dữ liệu của một nhân viên) thì khi chép dữ liệu của nhân viên đó vẫn không được cập nhật.

Cảm ơn bạn

 

[SA_DQ]

Để thực thi iêu cầu của bạn, cần fải viết lại macro khác thay thế!

[thongbao]Chèn thêm dòng ở đây và dòng này sẽ có công thức nhưng mỗi khi nhấn nút chép thì dòng này sẽ không bị mất [/thongbao]

Vì sao ư:

(/ì khi macro chạy, nó sẽ xóa hiết dữ liệu dưới dòng 6 ở trang 'F. Wanted' bằng câu lệnh:

 [A7].Resize(9999, 64).ClearContents

Mà dữ liệu này được tạo ra bằng cách chép từ trang tính còn lại đem sang.
Cụ thể là lần đầu nó chép tạo nội dung 2 cột [A:B] (Kể từ [A7])
Sau đó duyệt dữ liệu theo cột [A] để hình thành số liệu có ở fần bên fải còn lại;

Vậy chỉ có thể có cách chắc là duy nhất: Đó là viết lại macro;

Macro mới sẽ tạo ra dòng trống cho mỗi nhân viên trong CQ.

Nếu bạn gật, sẽ có người giúp bạn chuyện đó vì lòng hảo tâm!

 

[phnhu76]

Chào ACE,

Mình không biết gì về macro cả, file này của mình cũng là nhờ các ACE trên GPE viết dùm. Giờ mình muốn chỉnh đổi lại một chút như trên. Mong các ACE giúp với!
Cảm ơn nhiều nhiều!

 

[phnhu76]

Chảo cả nhà,

Mong mọi người dành thời gian giúp mình vấn đề này với!!

 

[SA_DQ]

Bạn xem file coi có thoả không?!

[ThongBao]Chảo cả nhà,

Mong mọi người dành thời gian giúp mình vấn đề này với!![/thongbao]

 

[phnhu76]

Cảm ơn bác nhiều! File đúng như em mong muốn ạ.