công thức báo lỗi

[andyminh]

Hi ACE GPE

Mình đang làm văn phòng, sử dụng file excel nhiều nhưng khổ nổi file hơi nặng, nên mở lâu. Mình có đọc thấy nếu chuyển qua VBA thì file sẽ nhẹ hơn, nên cũng nghiên cứu, tìm hiểu một số code trên internet. Nay mình có cái code dùng để thêm dữ liệu vào bảng tính, nhưng không biết sao nó báo lỗi dòng khi lưu như hình. Do mình không rành code nên nhờ ACE hướng dẫn chỉ lỗi sai và cách khắc phục. Do file mình liên kết nhiều dữ liệu nên không up lên được.

Sub Empl_SaveNew()
Dim EmpRow As Long
Dim EmpCol As Long
With Sheet1
If .Range("F6").Value = Empty Then
    MsgBox "Please enter a Last Name for the Khach Hang"
    .Range("F6").Select
    Exit Sub
End If
EmpRow = Sheet23.Range("B99999").End(xlUp).Row + 1   'First Avail Row
Sheet23.Range("B" & EmpRow).Value = Application.WorksheetFunction.Max(Sheet23.Range("EmployeeID")) + 1
For EmpCol = 2 To 33
If .Range(Sheet23.Cells(2, EmpCol).Value).Value <> Empty Then Sheet23.Cells(EmpRow, EmpCol).Value = .Range(Sheet23.Cells(1, EmpCol).Value).Value 'update only if not blank
Next EmpCol
.Range("F2").Value = .Range("F6").Value & ", " & .Range("I6").Value 'Add in Last Name, First Name

    .Shapes("NewEmpGrp").Visible = msoFalse
    .Shapes("ExistEmpGrp").Visible = msoCTrue
    .Range("B1").Value = False 'Set Empl Load To False
    .Range("B6").Value = False 'Set New Khach Hang To False
End With
Empl_SortByName 'Sort Employee List
End Sub

Mong sự giúp đỡ của các ACE GPE
Thanks

 

[CHAOQUAY]

Hi ACE GPE

Mình đang làm văn phòng, sử dụng file excel nhiều nhưng khổ nổi file hơi nặng, nên mở lâu. Mình có đọc thấy nếu chuyển qua VBA thì file sẽ nhẹ hơn, nên cũng nghiên cứu, tìm hiểu một số code trên internet. Nay mình có cái code dùng để thêm dữ liệu vào bảng tính, nhưng không biết sao nó báo lỗi dòng khi lưu như hình. Do mình không rành code nên nhờ ACE hướng dẫn chỉ lỗi sai và cách khắc phục. Do file mình liên kết nhiều dữ liệu nên không up lên được.

Sub Empl_SaveNew()
Dim EmpRow As Long
Dim EmpCol As Long
With Sheet1
If .Range("F6").Value = Empty Then
    MsgBox "Please enter a Last Name for the Khach Hang"
    .Range("F6").Select
    Exit Sub
End If
EmpRow = Sheet23.Range("B99999").End(xlUp).Row + 1   'First Avail Row
Sheet23.Range("B" & EmpRow).Value = Application.WorksheetFunction.Max(Sheet23.Range("EmployeeID")) + 1
For EmpCol = 2 To 33
If .Range(Sheet23.Cells(2, EmpCol).Value).Value <> Empty Then Sheet23.Cells(EmpRow, EmpCol).Value = .Range(Sheet23.Cells(1, EmpCol).Value).Value 'update only if not blank
Next EmpCol
.Range("F2").Value = .Range("F6").Value & ", " & .Range("I6").Value 'Add in Last Name, First Name

    .Shapes("NewEmpGrp").Visible = msoFalse
    .Shapes("ExistEmpGrp").Visible = msoCTrue
    .Range("B1").Value = False 'Set Empl Load To False
    .Range("B6").Value = False 'Set New Khach Hang To False
End With
Empl_SortByName 'Sort Employee List
End Sub

Mong sự giúp đỡ của các ACE GPE
Thanks

Bạn thử kiểm tra ô B2 sheet23 xem giá trị bên trong là gì