Private Sub Workbook_BeforePrint(Cancel As Boolean)
If (Range("D4") = "" Or Range("F5") = "" Or Range("Q5") = "" Or Range("F7") = "" Or (Range("Q7") = "" And Range("Q8") = "" And Range("S7") = "" And Range("S8") = "") Or Range("I9") = "") Then
Cancel = True
MsgBox "HAY CAMPOS VACIOS"
ElseIf (Range("C12") = "" Or Range("J12") = "" Or Range("O12") = "" Or Range("F14") = "" Or Range("Q14") = "" Or Range("E16") = "" Or Range("K16") = "" Or Range("O16") = "" Or (Range("F17") = "" And Range("I17") = "" And Range("K17") = "" And Range("O17") = "") Or (Range("L18") = "" And Range("K18") = "" And Range("M18") = "" And Range("Q18") = "") Or Range("F19") = "" Or Range("K19") = "" Or Range("F20") = "" Or Range("T20") = "" Or Range("C21") = "" Or Range("O21") = "" Or Range("S21") = "" Or Range("C23") = "" Or Range("I23") = "" Or Range("M23") = "" Or Range("S23") = "" Or (Range("G26") = "" Or Range("K26") = "" And Range("Q26") = "" And Range("G27") = "")) Then
Cancel = True
MsgBox "HAY CAMPOS VACIOS EN DATOS DEL ALUMNO"
ElseIf (Range("G30") = "" Or Range("Q30") = "" Or (Range("K31") = "" And Range("M31") = "" And Range("O31") = "") Or Range("I32") = "") Then
Cancel = True
MsgBox "HAY CAMPOS VACIOS EN ANTECEDENTES ACADEMICOS"
ElseIf (Range("E36") = "" Or Range("J36") = "" Or Range("S36") = "" Or (Range("M37") = "" And Range("O37") = "" And Range("Q37") = "") Or (Range("M43") = "" And Range("O43") = "")) Then
Cancel = True
MsgBox "HAY CAMPOS VACIOS EN APARTADO MEDICO"
ElseIf (Range("C47") = "" Or Range("I47") = "" Or Range("L47") = "" Or Range("S47") = "" Or Range("F49") = "" Or Range("N49") = "" Or Range("Q49") = "" Or Range("E50") = "" Or Range("N50") = "" Or Range("E51") = "" Or Range("K51") = "" Or Range("R51") = "" Or Range("D52") = "" Or Range("R52") = "" Or Range("F53") = "" Or Range("N53") = "" Or Range("Q53") = "" Or (Range("G54") = "" And Range("I54") = "") Or Range("O54") = "" Or (Range("K55") = "" And Range("M55") = "")) Then
Cancel = True
MsgBox "HAY CAMPOS VACIOS EN DATOS DEL PADRE"
ElseIf (Range("C58") = "" Or Range("I58") = "" Or Range("L58") = "" Or Range("S58") = "" Or Range("F60") = "" Or Range("N60") = "" Or Range("Q60") = "" Or Range("E61") = "" Or Range("N61") = "" Or Range("E62") = "" Or Range("K62") = "" Or Range("R62") = "" Or Range("D63") = "" Or Range("R63") = "" Or Range("F64") = "" Or Range("N64") = "" Or Range("Q64") = "" Or (Range("G65") = "" And Range("I65") = "") Or Range("O65") = "" Or (Range("K66") = "" And Range("M66") = "")) Then
Cancel = True
MsgBox "HAY CAMPOS VACIOS EN DATOS DE LA MADRE"
ElseIf (Range("C69") = "" Or Range("I69") = "" Or Range("L69") = "" Or Range("S69") = "" Or Range("F71") = "" Or Range("T71") = "" Or Range("C72") = "" Or Range("S72") = "" Or Range("C73") = "" Or Range("I73") = "" Or Range("L73") = "" Or Range("S73") = "" Or Range("F75") = "" Or Range("T75") = "" Or Range("C76") = "" Or Range("S76") = "") Then
Cancel = True
MsgBox "HAY CAMPOS VACIOS EN DATOS DE FAMILIARES"
ElseIf (Range("H79") = "" Or Range("Q79") = "" Or Range("G80") = "" Or Range("Q80") = "" Or Range("F81") = "" Or Range("Q81") = "" Or Range("I82") = "") Then
Cancel = True
MsgBox "HAY CAMPOS SIN CAPTURAR EN INFORMACIÓN SOBRE PREFERENCIAS DE MEDIOS DE COMUNICACIÓN"
Else
Cancel = False
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If (Range("D4") = "" Or Range("F5") = "" Or Range("Q5") = "" Or Range("F7") = "" Or (Range("Q7") = "" And Range("Q8") = "" And Range("S7") = "" And Range("S8") = "") Or Range("I9") = "") Then
Cancel = True
MsgBox "HAY CAMPOS VACIOS"
ElseIf (Range("C12") = "" Or Range("J12") = "" Or Range("O12") = "" Or Range("F14") = "" Or Range("Q14") = "" Or Range("E16") = "" Or Range("K16") = "" Or Range("O16") = "" Or (Range("F17") = "" And Range("I17") = "" And Range("K17") = "" And Range("O17") = "") Or (Range("L18") = "" And Range("K18") = "" And Range("M18") = "" And Range("Q18") = "") Or Range("F19") = "" Or Range("K19") = "" Or Range("F20") = "" Or Range("T20") = "" Or Range("C21") = "" Or Range("O21") = "" Or Range("S21") = "" Or Range("C23") = "" Or Range("I23") = "" Or Range("M23") = "" Or Range("S23") = "" Or (Range("G26") = "" Or Range("K26") = "" And Range("Q26") = "" And Range("G27") = "")) Then
Cancel = True
MsgBox "HAY CAMPOS VACIOS EN DATOS DEL ALUMNO"
ElseIf (Range("G30") = "" Or Range("Q30") = "" Or (Range("K31") = "" And Range("M31") = "" And Range("O31") = "") Or Range("I32") = "") Then
Cancel = True
MsgBox "HAY CAMPOS VACIOS EN ANTECEDENTES ACADEMICOS"
ElseIf (Range("E36") = "" Or Range("J36") = "" Or Range("S36") = "" Or (Range("M37") = "" And Range("O37") = "" And Range("Q37") = "") Or (Range("M43") = "" And Range("O43") = "")) Then
Cancel = True
MsgBox "HAY CAMPOS VACIOS EN APARTADO MEDICO"
ElseIf (Range("C47") = "" Or Range("I47") = "" Or Range("L47") = "" Or Range("S47") = "" Or Range("F49") = "" Or Range("N49") = "" Or Range("Q49") = "" Or Range("E50") = "" Or Range("N50") = "" Or Range("E51") = "" Or Range("K51") = "" Or Range("R51") = "" Or Range("D52") = "" Or Range("R52") = "" Or Range("F53") = "" Or Range("N53") = "" Or Range("Q53") = "" Or (Range("G54") = "" And Range("I54") = "") Or Range("O54") = "" Or (Range("K55") = "" And Range("M55") = "")) Then
Cancel = True
MsgBox "HAY CAMPOS VACIOS EN DATOS DEL PADRE"
ElseIf (Range("C58") = "" Or Range("I58") = "" Or Range("L58") = "" Or Range("S58") = "" Or Range("F60") = "" Or Range("N60") = "" Or Range("Q60") = "" Or Range("E61") = "" Or Range("N61") = "" Or Range("E62") = "" Or Range("K62") = "" Or Range("R62") = "" Or Range("D63") = "" Or Range("R63") = "" Or Range("F64") = "" Or Range("N64") = "" Or Range("Q64") = "" Or (Range("G65") = "" And Range("I65") = "") Or Range("O65") = "" Or (Range("K66") = "" And Range("M66") = "")) Then
Cancel = True
MsgBox "HAY CAMPOS VACIOS EN DATOS DE LA MADRE"
ElseIf (Range("C69") = "" Or Range("I69") = "" Or Range("L69") = "" Or Range("S69") = "" Or Range("F71") = "" Or Range("T71") = "" Or Range("C72") = "" Or Range("S72") = "" Or Range("C73") = "" Or Range("I73") = "" Or Range("L73") = "" Or Range("S73") = "" Or Range("F75") = "" Or Range("T75") = "" Or Range("C76") = "" Or Range("S76") = "") Then
Cancel = True
MsgBox "HAY CAMPOS VACIOS EN DATOS DE FAMILIARES"
ElseIf (Range("H79") = "" Or Range("Q79") = "" Or Range("G80") = "" Or Range("Q80") = "" Or Range("F81") = "" Or Range("Q81") = "" Or Range("I82") = "") Then
Cancel = True
MsgBox "HAY CAMPOS SIN CAPTURAR EN INFORMACIÓN SOBRE PREFERENCIAS DE MEDIOS DE COMUNICACIÓN"
Else
Cancel = False
End If
End Sub