Saltar al contenido

Macro que no permite guardar archivo si 2 celdas están en blanco


Recommended Posts

publicado

Estimados,

Junto con saludar, quisiera pedirles ayuda con la siguiente macro.

Resulta que tengo un formulario en el cual no quiero que se guarde si las celdas D11 y D13 no se han ingresado datos, pero dada esta macro necesito algo que a la vez me permita guardarlo si el formulario esta completamente en blanco.

Esta macro me funciona bien al permitir que el archivo se guarde si ambas celdas no tienen datos, pero a la vez me genera problemas para guardar el formulario si este esta en blanco.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If Sheets("Formulario").Range("D11") = "" Or Sheets("Formulario").Range("D12") = "" Or Sheets("Formulario").Range("D13") "" Then

Cancel = True

MsgBox "No se puede guardar el archivo mientras " _

& vbLf & "no se completen los datos obligatorios :"

End If

End Sub

Favor si me pudieran ayudar con esto.

De ante mano muchas gracias.

Saludos,

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.