MSGBOX VALORES REPETIDOS EN DOS CELDAS

[jues]

SALUDOS AMIGOS SE POCO DE PROGRAMACION Y QUISIERA QUE ME AYUDEN CON ESTE PEQUEÑO PROBLEMA QUE TENGO:

TENGO DOS CELDAS D15 Y E15 EN LAS CUALES NO PUEDEN REPETIRSE EL VALOR 0 SIMULTANEAMENTE EN AMBAS CELDAS ADICIOANLEMENTE INDISTINTAMENTE DEL VALOR DE LA CELDA D15 LA CELDA E15 NO PUEDE CONTENER VALORES ≥12 CONCRETAMENTE REQUIERO QUE CUANDO EN LAS CELDAS D15 Y E15 CONTENGAN EL VALOR 0  SIMULTANEMAMENTE APAREZCA UN MSGBOX QUE INDIQUE "DATOS DUPLICADOS:  LAS CELDAS AÑO Y MES  DE  LA  ANTIGUEDAD EN EL PUESTO NO PUEDEN CONTENER VALORES IGUALES A CERO DE MANERA SIMULTANEA" DE MANERA ALTERNA CUANDO LA CELDA E15 CONTENGA VALORES ≥12  APAREZCA UN MSGBOX QUE INDIQUE "LA CELDA MES  DE  LA  ANTIGUEDAD EN EL PUESTO NO PUEDE CONTENER VALORES ≥12 MESES" AMBOS MENSAJES DEBEN APARECER CUANDO HAGA CLICK EN EL BOTON GUARDAR QUE ESTA ASOCIADO A LA Sub Guardar() Y QUE COMO CONSECUENCIA NO PERMITA GUARDAR LA INFORMACION HASTA QUE SE COLOQUE LA INFORMACION CORRECTA

TAL COMO ESTE EJEMPLO DE MACRO QUE YA POSEO OPERATIVA PERO PARA CUANDO LAS CELDAS ESTAN VACIAS

Sub Guardar()

If Range("D15") = Empty And Range("D15").HasFormula = False Then
MsgBox ("Datos Incompletos: La Celda Antigüedad en el Puesto (Año) Está Vacía")
Exit Sub
End If

If Range("E15") = Empty And Range("E15").HasFormula = False Then
MsgBox ("Datos Incompletos: La Celda Antigüedad en el Puesto (Mes) Está Vacía")
Exit Sub
End If

MUCHO LES SABRIA AGRADECER LA AYUDA QUE ME PUEDAN BRINDAR 

[JSDJSD]

Prueba y comenta 

[JSDJSD]

El archivo de prueba Libro1.xlsm

Private Sub CommandButton1_Click()
    Dim valorD15 As Integer
    Dim valorE15 As Integer
    valorD15 = Range("D15").Value
    valorE15 = Range("E15").Value

    If valorD15 = 0 And valorE15 = 0 Then
        MsgBox "DATOS DUPLICADOS: LAS CELDAS AÑO Y MES DE LA ANTIGÜEDAD EN EL PUESTO NO PUEDEN CONTENER VALORES IGUALES A CERO DE MANERA SIMULTÁNEA", vbExclamation
        Exit Sub
    End If

    If valorE15 >= 12 Then
        MsgBox "LA CELDA MES DE LA ANTIGÜEDAD EN EL PUESTO NO PUEDE CONTENER VALORES =12 MESES", vbExclamation
        Exit Sub
    End If

    ' Si no se cumplen las condiciones, proceder con el código de guardar aquí

End Sub

 

[jues]

Saludos amigo 

Agradecido por tu aporte funciona perfectamente bien  en los dos casos consultados