Poder guardar un Excel si una celda tiene un valor especifico
Necesito que el excel me permita guardar un archivo siempre y cuando algunas celdas tengan un valor diferente a "" y "prueba", es decir si algunas celdas están en blanco o tienen el valor "prueba" no se debería poder guardar.
Te anexo una macro para que la pongas en los eventos de WorkBook, cambia A5, B7, y C9 por las celdas que quieras verificar, agrega más instrucciones si necesitas más celdas.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Por.Dante Amor If [A5] = "" Or UCase([A5]) = "PRUEBA" Then Cancel = True End If If [B7] = "" Or UCase([B7]) = "PRUEBA" Then Cancel = True End If If [C9] = "" Or UCase([C9]) = "PRUEBA" Then Cancel = True End If End Sub
Instrucciones para poner la macro en los eventos ThisWorkbook
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a ThisWorkbook
- Del lado derecho copia la macro
S a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
Hola, gracias por la ayuda, lo estoy revisando pero se puede agregar un mensaje que me indique los campos que faltan llenar caso contrario un mensaje que solo me diga "faltan completar campos", la primera opción seria excelente.
Gracias por el tiempo
Te anexo la macro con el mensaje
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Por.Dante Amor cadena = "" If [A5] = "" Or UCase([A5]) = "PRUEBA" Then cadena = "A5 " End If If [B7] = "" Or UCase([B7]) = "PRUEBA" Then cadena = cadena & "B7 " End If If [C9] = "" Or UCase([C9]) = "PRUEBA" Then cadena = cadena & "C9" End If ' If cadena <> "" Then Cancel = True MsgBox "Faltan completar campos: " & cadena, vbExclamation End If End Sub
S a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
