File quản lý nhân sự - Nhờ sửa lỗi Code (1 người xem)

[le_vis]

Tôi đang thiết kế 1 File quản lý nhân sự. Sau khi dùng code cũ sửa lại khi chạy bị lỗi (Giải trình lỗi và yêu cầu lưu dữ liệu tôi để trong Sheet tổng hợp)
Rất mong các bạn trên GPE xem sửa giúp . Cảm ơn các bạn nhiều nhiều

 

[le_vis]

Quả đúng như bác Ndu nói : "Dùng code của người khác khổ vậy" Khi thay đổi, bổ xung mà không đủ trình độ - Nhất là với những người không được học cơ bản thì cả một vấn đề lan giải.
Đến 61 bạn xem rồi mà không ai chỉ cho mình được mình sai ở đâu thì mình mò sao được

 

[doveandrose]

trong file này có module3 hình như do tôi làm . nhưng code trong module3 tôi viết cho dành file khác .
tôi xem trong sheet tổng hợp nhưng không thấy có dòng chú thích gì cho thấy bạn muốn người khác làm gì cho bạn ?
vậy thì mới có 61 người xem chứ có thêm 610 người nữa cũng chả ai biết bạn muốn cái gì .

 

[le_vis]

Mong bạn doveandrose thứ lỗi. Đúng Code này do bạn giúp từ File khác.
Trên cơ sở đó tôi dùng code đó mở rộng thêm mảng, đồng thời sửa lại code theo (Mục tiêu để ứng dụng và học tập thêm); Nhưng do trình độ có hạn nên không hiểu đã sai ở đâu ? Loay hoay mãi không được đành đưa lên GPE may quá gặp lại được bạn. Mong bạn xem và chỉ giúp mình lỗi này do đâu; cách sửa lỗi này. Mong bạn thông cảm và giành cho mình chút thời gian giúp mình nhé . Tôi xin gửi lại File có ghi cụ thể lỗi và yêu cầu cập nhật dữ liệu .Cảm ơn doveandrose và các bạn nhiều

 

[doveandrose]

trong sub CapNhatChungTu()
tìm đến dòng

lr = .[[SIZE=3][COLOR=#ff0000][B]R[/B][/COLOR][/SIZE]50000].End(xlUp).Row

sửa lại thành

lr = .[[SIZE=3][COLOR=#ff0000][B]AB[/B][/COLOR][/SIZE]50000].End(xlUp).Row

tìm đến dòng

.Range("Z" & fr & ":Z" & (fr + rowCount[COLOR=#ff0000][SIZE=3][B] - 1[/B][/SIZE][/COLOR])).Formula = "=if(RC[1]=0," & Chr(34) & Chr(34) & _
    ",if(RC[1]=1,RC[-24] & RC[1],R[-1]C +1))"

bỏ cái phần - 1 đi

 

[le_vis]

Cảm ơn bạn doveandrose. Mình sẽ sửa theo hướng dẫn của bạn và sẽ báo cáo lại kết quả với bạn sau.
Bạn Thông cảm, Mình ở vùng biên không có điều kiện nên phải tự học theo cách này
Rất mong nhận được sự giúp đỡ của bạn cùng các thành viên GPE

 

[le_vis]

Cảm ơn doveandrose nhiều nhiều; Code sửa lại theo hướng dẫn của bạn chạy rất tốt.
* Bạn giải thích cho mình tý thắc mắc :
- Tại sao cấu trúc trước đây mảng này bắt đầu từ cột Q thì Range("Q" & fr & ":Q" & (fr + rowCount - 1)) chạy bình thường
Mình dùng Code đó chỉ sửa lại mảng phía trước và đẩy cấu trúc cột Q xuống thành cột Z thì mình đã sửa lại thành Range("Z" & fr & ":Z" & (fr + rowCount - 1)) thì lại phải bỏ -1 đi mới chạy được ? bạn giải thich cho mính mới. Cảm ơn nhiều
* Bạn tư vấn thêm cho mình tý :
Từ đó Mình định xây dựng thành các biểu mẫu báo cáo và trích xuất thành Sơ yếu lý lich của CBCNV khi cần thiết
Ý định áp dụng code của bạn Anhtuan trong bài QuanLyNhansu của bạn đó để ghép hình vào Sơ yếu. Theo bạn có sợ bị xung code không ? bạn tư vấn cho mình nhé

 

[doveandrose]

công thức có tham chiếu đến dòng ngay trước nó

.Range("Z" & fr & ":Z" & (fr + rowCount)).Formula = "=if(RC[1]=0," & Chr(34) & Chr(34) & _
    ",if(RC[1]=1,RC[-24] & RC[1],R[[COLOR=#ff0000][SIZE=3][B]-1[/B][/SIZE][/COLOR]]C +1))"

trong code lại có sử dụng lệnh Delete Row nên đôi khi dòng trước nó bị Delete làm cho công thức bị #REF
để dễ hiểu bạn xóa bằng tay dòng số 4 . bây giờ nhìn lại ô Z4 công thức sẽ bị #Ref

=IF(AA4=0,"",IF(AA4=1,B4 & AA4,#REF! +1))

vậy để vá lỗi này thì ta chèn công thức thêm 1 dòng nữa => Delete xong mới chèn công thức => hết bị #REF

bạn muốn thêm code chèn hình gì cứ việc

 

[le_vis]

Cảm ơn doveandrose nhiều. Mình đã hiểu điều mà chưa lường tới. Cảm ơn bạn