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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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