Chỉ sửa code: Dù không chọn, nhưng nó vẫn gán tên hàng hóa xuống Listbox 2

[AnhThu-1976]

Các anh/chị giúp em chỉnh code như sau:
Quy trình em làm như sau:
Em có 1 form để xuất hàng (xuất 1 lần ra nhiều mặt hàng 1 lúc)
Tại sheet TH, từ cell K9 trở xuống, nếu DoubleClick thì nó hiện ra 1 form
Bây giờ em tìm Bia 333 thì nó hiện ra và em chọn thì nó lưu xuống Listbox2
Tiếp tục em tìm chữ Bía, thực tế nó không có từ này và nó thông báo "No noi dung", nhưng đồng thời nó tự động lưu tiếp xuống Listbox2 thêm 1 lần mặt hàng bia 333 nữa
Em nhờ anh chị chỉnh sửa code, nếu tìm không thấy thì thông báo chứ không tự động lưu tiếp thêm mặt hàng 1 lần nữa
Em cảm ơn!

 

[Thóc Sama]

Các anh/chị giúp em chỉnh code như sau:
Quy trình em làm như sau:
Em có 1 form để xuất hàng (xuất 1 lần ra nhiều mặt hàng 1 lúc)
Tại sheet TH, từ cell K9 trở xuống, nếu DoubleClick thì nó hiện ra 1 form
Bây giờ em tìm Bia 333 thì nó hiện ra và em chọn thì nó lưu xuống Listbox2
Tiếp tục em tìm chữ Bía, thực tế nó không có từ này và nó thông báo "No noi dung", nhưng đồng thời nó tự động lưu tiếp xuống Listbox2 thêm 1 lần mặt hàng bia 333 nữa
Em nhờ anh chị chỉnh sửa code, nếu tìm không thấy thì thông báo chứ không tự động lưu tiếp thêm mặt hàng 1 lần nữa
Em cảm ơn!

Bạn mình sửa chỗ này xem!

    If s = 0 Then
        MsgBox "No noi dung"
        Me.NhomHang.SetFocus
        With Me.MHList
            .ColumnCount = 6
            .List = Arr
        End With
    End If

thay bằng

    If s = 0 Then
        MsgBox "No noi dung"
        Me.NhomHang.SetFocus
        With Me.MHList
            .ColumnCount = 6
            '.List = Arr
        End With
    End If

 

[AnhThu-1976]

Bạn mình sửa chỗ này xem!

    If s = 0 Then
        MsgBox "No noi dung"
        Me.NhomHang.SetFocus
        With Me.MHList
            .ColumnCount = 6
            .List = Arr
        End With
    End If

thay bằng

    If s = 0 Then
        MsgBox "No noi dung"
        Me.NhomHang.SetFocus
        With Me.MHList
            .ColumnCount = 6
            '.List = Arr
        End With
    End If

Cảm ơn bạn rất nhiều!