สอบถาม Code VBA ถ้า Column A มีข้อมูล ที่ Column B ต้องระบุค่า Yes หรือ No

[shevy]

ถ้า Column A มีข้อมูล ที่ Column B จะต้องระบุค่า Yer หรือ No ถ้าไม่ระบุค่าที่ Column B จะมี Pop up แจ้งเตือนตอนที่จะทำการปิด excel คะ

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Sheet1").Range("B1").Value = "" Then
Cancel = True
MsgBox "B1 not blank"
Else
ActiveWorkbook.Close SaveChanges:=True
End If
End Sub

[snasui]

กรุณาแนบตัวอย่างไฟล์ Excel ที่เขียน Code นี้เอาไว้แล้วมาด้วยจะได้สะดวกต่อการตอบของเพื่อนสมาชิกครับ

[shevy]

แนบไฟล์แล้วค่ะ ขอบคุณค่ะ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Application.CountIfs(Sheets("Sheet1").Range("A2:A10000"), "<>", _
        Sheets("Sheet1").Range("B2:B10000"), "=") Then
        Cancel = True
        MsgBox "B1 not blank"
    Else
        ActiveWorkbook.Close SaveChanges:=True
    End If
End Sub

โอกาสถัดไปกรุณาโพสต์ Code ให้เป็นข้อความ Code เหมือนที่ผมโพสต์มานี้ ดูวิธีการได้ที่กฎการใช้บอร์ดข้อ 5 ด้านบนครับ

[shevy]

ทำได้แล้วค่ะ ขอบคุณค่ะ

Code: Select all

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Application.CountIfs(ActiveSheet.Range("A6:A10000"), "<>", _
        ActiveSheet.Range("B6:B10000"), "=") Then
        Cancel = True
        MsgBox "Column B not blank"
    Else
        ActiveWorkbook.Close SaveChanges:=True
    End If
End Sub