Guardar si condición
Hola experto: quisiera que me ayudes en lo siguiente, cómo hago para que al guardar una planilla excel, no me lo permite si he dejado celdas en blanco donde debería haber ingresado datos. Gracias
Respuesta
1
Te paso el código que deberías agregar en el objeto ThisWorkbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("A1") = "" Then
Cancel = True
MsgBox "Debe tener información en la celda A1", vbInformation, "Información"
End If
End Sub
Este código revisa la celda A1; deberías ajustarlo a tus celdas;
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("A1") = "" Then
Cancel = True
MsgBox "Debe tener información en la celda A1", vbInformation, "Información"
End If
End Sub
Este código revisa la celda A1; deberías ajustarlo a tus celdas;