Tự động điền dữ liệu và bo viền khi chạy code

[Cát Lượng]

Em chào các thầy, các anh/chị trên GPE
Em có vấn đề sau xin nhờ sự giúp đỡ từ các thầy, các anh/chị:
Khi chạy code diennhansu
Lấy dữ liệu cột A, cột B và F ở "Thau_Nhan Su" để điền sang "15_Nhan Su Chu Chot"
Dữ liệu được lấy và điền sang tương ứng với số thứ tự, sau khi điền dữ liệu xong ở "15_Nhan Su Chu Chot" sẽ bo viền như file đính kèm

 

[vu_tuan_manh_linh]

Bạn làm thế này nhé!
1. Record macro những điều bạn muốn thực hiện.
2. Sửa macro thành 1 đoạn code và đưa vào thủ tục worksheet_change()

 

[SA_DQ]

Nếu là mình thì sẽ thực hiện vầy:
B1: Xác định số lượng tối đa danh sách dữ liệu sẽ được lọc sang; (Ví dụ 99)
B2: Định dạng tất thẩy 100 dòng theo dạng như mong muốn
B3: Sau khi đỗ dữ liệu qua, ta xác định dòng cuối của cột B Rws (có dữ liệu)
B4: Tiến hành ẩn từ dòng Rws + 1 cho đến dòng 100
B1 & B2 chì làm 1 lần, xài cả đời không hết!

Chúc vui & thành công!

 

[be_09]

Em chào các thầy, các anh/chị trên GPE
Em có vấn đề sau xin nhờ sự giúp đỡ từ các thầy, các anh/chị:
Khi chạy code diennhansu
Thì dữ liệu được lấy từ "Thau_Nhan Su" để điền sang "15_Nhan Su Chu Chot" theo số thứ tự và tự động
bo viềng như trong file đính kèm.
View attachment 228275
View attachment 228278

Đọc xong chẳng hiểu muốn làm cái gì luôn, có thể thế này:
1/ Sheet Thau_Nhan Su có nhiều bộ phận.
2/ Lọc bộ phận vào sheet 15_Nhan Su Chu Chot.
3/ Đánh số thứ tự và tô viềng theo danh sách.

 

[Cát Lượng]

Đọc xong chẳng hiểu muốn làm cái gì luôn, có thể thế này:
1/ Sheet Thau_Nhan Su có nhiều bộ phận.
2/ Lọc bộ phận vào sheet 15_Nhan Su Chu Chot.
3/ Đánh số thứ tự và tô viềng theo danh sách.

Em xin diễn giải lại:
Lấy dữ liệu cột A, cột B và F ở "Thau_Nhan Su" để điền sang "15_Nhan Su Chu Chot"
Dữ liệu được lấy và điền sang tương ứng với số thứ tự, sau khi điền dữ liệu xong ở "15_Nhan Su Chu Chot" sẽ bo viền như file đính kèm
Anh giúp em mới nhé!
Cảm ơn anh!

 

[Cát Lượng]

Bạn làm thế này nhé!
1. Record macro những điều bạn muốn thực hiện.
2. Sửa macro thành 1 đoạn code và đưa vào thủ tục worksheet_change()

Sub AnHien_15_NhanSuChuChot()
    ActiveSheet.Range("$E$6:$E$35").AutoFilter Field:=1, Criteria1:="H"
End Sub

Em mắc ở đoạn này, anh xem giúp em mới ạ!

 

[HieuCD]

Sub AnHien_15_NhanSuChuChot()
    ActiveSheet.Range("$E$6:$E$35").AutoFilter Field:=1, Criteria1:="H"
End Sub

Em mắc ở đoạn này, anh xem giúp em mới ạ!
View attachment 228284

Xem file

 

[Cát Lượng]

Xem file

Đoạn code em thực hiện ghi maccro để chỉ hiện những dữ liệu được điền ở sheet "Thau_Nhan Su"
Còn những dòng không có dữ liệu sẽ bị ẩn đi, nhưng đoạn code em ghi trên bị vướng.
Em nhờ anh giúp em đoạn code ghi maccro để những dòng không có dữ liệu ở sheet"15_Nhan Su Chu Chot" được ẩn đi
Em cám ơn anh!