Bẫy lỗi Name động bị rỗng

[Vo Tinh]

Tôi có dùng Name động hàm offset bình thường để chọn vùng chứa 1 danh sách.
Tôi đã bẫy lỗi tồn tại của Name này, nhưng nếu danh sách rỗng thì tôi bị lỗi khi chạy code.
Nhờ các Anh Chị chỉ dẫn giúp cách kiểm tra lỗi Name rỗng này như thế nào.

 

[giaiphap]

Tôi có dùng Name động hàm offset bình thường để chọn vùng chứa 1 danh sách.
Tôi đã bẫy lỗi tồn tại của Name này, nhưng nếu danh sách rỗng thì tôi bị lỗi khi chạy code.
Nhờ các Anh Chị chỉ dẫn giúp cách kiểm tra lỗi Name rỗng này như thế nào.

Thấy cái file thực tế sẽ dễ giúp đỡ hơn nhé bạn.

 

[Vo Tinh]

Thấy cái file thực tế sẽ dễ giúp đỡ hơn nhé bạn.

Tôi gửi file, mục đích là in theo danh sách cột Q.
Ví dụ xóa bỏ danh sách sẽ báo lỗi khi chạy, bạn chỉ cách nào kiểm tra khi danh sách bị rỗng để bẫy lỗi này.

 

[giaiphap]

Tôi gửi file, mục đích là in theo danh sách cột Q.
Ví dụ xóa bỏ danh sách sẽ báo lỗi khi chạy, bạn chỉ cách nào kiểm tra khi danh sách bị rỗng để bẫy lỗi này.

Thử thế này xem sao nhé!

Private Sub CommandButton1_Click()
On Error Resume Next
Dim sCell As Integer
sCell = Range("danhsach").Cells.Count
On Error GoTo 0
If sCell > 0 Then
    UserForm1.Show
Else
    MsgBox "Kiem tra lai Name 'danhsach'"
End If
End Sub