Nhờ sửa lỗi code trong bảng chấm công (1 người xem)

[tommybull]

Kính chào các anh chị!
Mình có 3 vấn đề nhờ các anh chị giúp đỡ

1. Tại sheet "Add_NV" mình nhấn nút lệnh "Nhập danh sách" thì bị báo lỗi như trong hình kèm theo "LOI CODE ADD_NV"

2. Tại sheet "Danhsach_NV" (Cột "V") mình nhập "Ngày thôi việc" cho những người đã chấm dứt hợp đồng hoặc nghỉ việc trong tháng (ví dụ 2 người mình tô nền vàng) sau đó mình áp dụng Code sao cho khi mình nhấn nút lệnh "Update List" bên Sheet "Chamcong" thì những người đã nghỉ việc sẽ không hiển thị tên trong danh sách chấm công của tháng mới tại sheet "chamcong". Nhưng vấn đề là sau khi Update list, vẫn còn dòng trống tại sheet "chamcong" (Tô nền vàng) (em gửi theo file đính kèm "Chamcong_luong2017)

3. Tại sheet "chamcong" em đặt code (Code này em đọc được trên "GPE" và đem áp dụng) cho nút lệnh "Kết xuất chấm công" khi nhấn nút lệnh chọn Folder để kết xuất thì vẫn được, nhưng khi tìm vào Folder để mở file vừa được kết xuất lên thì không ra định dạng "Value" (không còn dạng công thức) và hiển thị lỗi như trong file đính kèm "Loi_ketxuat"

Với 3 vấn đề trên, chân thành kính mong các anh chị giúp đỡ ạ!

 

[PacificPR]

Dạ. Đúng rồi. Anh (chị) vui lòng mở file đính kèm. Em cũng để VLOOKUP(B9;ChamCong!$B$6:$BJ$1000;2;0) Sau đó nhấn nút updatelist thì bên sheet payroll luong tu động chuyển về VLOOKUP(B9;ChamCong!$B$6:$BJ$6;2;0). Anh chị thử đặt lại vlookup bên sheet payroll va trở về sheet chamcong nhấn nút updatelist sẽ thấy vấn đề ạ

Đúng thật. Không biết nguyên nhân tại đâu nữa . Thôi chơi lụi vầy đị

 

[tommybull]

Đúng thật. Không biết nguyên nhân tại đâu nữa . Thôi chơi lụi vầy đị

oái...anh chị xệp hạng là VBA Prosesional rồi nên lụi được, em học mót lượm lặt, nên không biết lụi kiểu gì
Anh chị chỉ giúp em sao giờ em down file về làm thì lại được rồi, anh chị đã làm gì vậy, chỉ em với ạ!

 

[PacificPR]

oái...anh chị xệp hạng là VBA Prosesional rồi nên lụi được, em học mót lượm lặt, nên không biết lụi kiểu gì
Anh chị chỉ giúp em sao giờ em down file về làm thì lại được rồi, anh chị đã làm gì vậy, chỉ em với ạ!

À mình hiểu rồi. Do câu lệnh này .Range("A7", Range("A65535")).EntireRow.Delete mà ra. Hi hi

 

[tommybull]

Đúng thật. Không biết nguyên nhân tại đâu nữa . Thôi chơi lụi vầy đị

oái...anh chị xệp hạng là VBA Prosesional rồi nên lụi được, em học mót lượm lặt, nên không biết lụi kiểu gì
Anh chị chỉ giúp em sao giờ em down file về làm thì lại được rồi, anh chị đã làm gì vậy, chỉ em với ạ!
Vậy là vấn đề đượ giải quyết rồi phải không ạ?
Thay bằng đoạn này phải không ạ?
With Sheets("Payroll_Luong")
.Range("B6:B162").EntireRow.Hidden = False
.Range("A8:B163").ClearContents
.Range("A8").Resize(K, 2) = dArr
.Cells.Replace What:="ChamCong!$B$6:$BJ$6", Replacement:= _
"ChamCong!$B$6:$BJ$440", LookAt:=xlPart, SearchOrder:=xlByRows
.Range("B6:B162").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End With

 

[PacificPR]

Làm theo kiểu Ctrl+H ấy . Thay thế cụm từ ChamCong!$B$6:$BJ$6 thành ChamCong!$B$6:$BJ$440

.Cells.Replace What:="ChamCong!$B$6:$BJ$6", Replacement:= _
        "ChamCong!$B$6:$BJ$440", LookAt:=xlPart, SearchOrder:=xlByRows

 

[PacificPR]

oái...anh chị xệp hạng là VBA Prosesional rồi nên lụi được, em học mót lượm lặt, nên không biết lụi kiểu gì
Anh chị chỉ giúp em sao giờ em down file về làm thì lại được rồi, anh chị đã làm gì vậy, chỉ em với ạ!
Vậy là vấn đề đượ giải quyết rồi phải không ạ?
Thay bằng đoạn này phải không ạ?
With Sheets("Payroll_Luong")
.Range("B6:B162").EntireRow.Hidden = False
.Range("A8:B163").ClearContents
.Range("A8").Resize(K, 2) = dArr
.Cells.Replace What:="ChamCong!$B$6:$BJ$6", Replacement:= _
"ChamCong!$B$6:$BJ$440", LookAt:=xlPart, SearchOrder:=xlByRows
.Range("B6:B162").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End With

Đúng ra phải là cái này hì hì ( Thay cái chỗ B6 thành B8)

 With Sheets("Payroll_Luong")
        .Range("B8:B162").EntireRow.Hidden = False
        .Range("A8:B163").ClearContents
        .Range("A8").Resize(K, 2) = dArr
        .Cells.Replace What:="ChamCong!$B$6:$BJ$6", Replacement:= _
                "ChamCong!$B$6:$BJ$440", LookAt:=xlPart, SearchOrder:=xlByRows
        .Range("B8:B162").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
    End With

 

[tommybull]

Làm theo kiểu Ctrl+H ấy . Thay thế cụm từ ChamCong!$B$6:$BJ$6 thành ChamCong!$B$6:$BJ$440

.Cells.Replace What:="ChamCong!$B$6:$BJ$6", Replacement:= _
        "ChamCong!$B$6:$BJ$440", LookAt:=xlPart, SearchOrder:=xlByRows

NGOÀI CHÂN THÀNH CẢM ƠN RA, THÌ ... VẪN LÀ CHÂN THÀNH CẢM ƠN Ạ!!!

 

[Gà Công Nghệ]

Đúng thật. Không biết nguyên nhân tại đâu nữa . Thôi chơi lụi vầy đị

Á, chơi lụi lun. Hi.

 

[tommybull]

Đúng ra phải là cái này hì hì ( Thay cái chỗ B6 thành B8)

 With Sheets("Payroll_Luong")
        .Range("B8:B162").EntireRow.Hidden = False
        .Range("A8:B163").ClearContents
        .Range("A8").Resize(K, 2) = dArr
        .Cells.Replace What:="ChamCong!$B$6:$BJ$6", Replacement:= _
                "ChamCong!$B$6:$BJ$440", LookAt:=xlPart, SearchOrder:=xlByRows
        .Range("B8:B162").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
    End With

Bác PacificPR ơi, cột AH vẫn bị lỗi khi em đặt công thức là sao ạ!
Em có kèm theo hình chụp màn hình, bác xem giúp em với
Cảm ơn ạ!

 

[tommybull]

Bác PacificPR ơi, cột AH vẫn bị lỗi khi em đặt công thức là sao ạ!
Em có kèm theo hình chụp màn hình, bác xem giúp em với
Cảm ơn ạ!

Bác "PacificPR" ơi....
Giúp em với

 

[Gà Công Nghệ]

Bác "PacificPR" ơi....
Giúp em với

Bác "PacificPR". Hình Avatar Người ta xênh đẹp, dễ thương vậy đó. Chúc mừng bạn "PacificPR" nhé.

 

[PacificPR]

Bác "PacificPR". Hình Avatar Người ta xênh đẹp, dễ thương vậy đó. Chúc mừng bạn "PacificPR" nhé.

Hình Avatar là để "dụ" trai thôi bạn

Bác "PacificPR" ơi....
Giúp em với

Bạn xem nó còn lỗi nữa không

 

[tommybull]

Hình Avatar là để "dụ" trai thôi bạn

Bạn xem nó còn lỗi nữa không

Dạ chuẩn lắm luôn rồi ạ!
Tks "PacificPR" nhiều ạ!

 

[Gà Công Nghệ]

Hình Avatar là để "dụ" trai thôi bạn

Bạn xem nó còn lỗi nữa không

Hi, vậy mình cũng kiếm avatar đẹp đẹp để "dụ" gái. Chúc bạn cuối tuần vui vẻ.