là Msgbox khi cột số HĐ trong sheet Data Nhansu e để trống e chạy lệnh tại

Thầy cho e hỏi là Msgbox, khi cột số HĐ trong sheet Data Nhansu e để trống e chạy lệnh tại sao ko hiện ra Msgbox như đã tạo mà nó tự động nhảy sang sheets("HDLD") ạ

Sub In_CaNhan()
Dim a As Long
a = ActiveCell.Row
If Sheets("Data_NhanSu").Range("Q" & a).Value <> " " And Sheets("Data_NhanSu").Range("P" & a).Value <> " " Then
Sheets("HDLD").Range("O3").Value = Sheets("Data_NhanSu").Range("Q" & a).Value
Sheets("HDLD").Activate
Else
MsgBox "Thieu thong tin So HD hoac loai HD", vbInformation
Exit Sub
End If
End Sub

3 câu trả lời

176 lượt xem

vỗ tay

Người dùng ẩn danh 13:06 - Jun 22, 2020

Chào bạn bạn sử dụng vòng lặp là được bạn nhé.

vỗ tay

Người dùng ẩn danh 13:06 - Jun 22, 2020

Em cảm ơn thầy, nhưng thầy cho e hỏi rõ là đoạn code trên bị sai hay sao mà không thể hiện thị msgbox ạ, có mấy trường hợp e dùng hàm if này cũng ko xuất hiện được msgbox nên cần thầy chỉ giúp để làm cho đúng ạ ??

vỗ tay

Người dùng ẩn danh 14:06 - Jun 22, 2020

chào bạn if chỉ xuất hiện msgbox 1 lần thôi bạn nhé, bạn muốn xuất hiện dòng lỗi từng dòng phải dùng
vòng lặp nhé.

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

là Msgbox khi cột số HĐ trong sheet Data Nhansu e để trống e chạy lệnh tại

Câu hỏi liên quan