Evento BeforeSave no funciona (VBA)
Publicado por josete (18 intervenciones) el 27/02/2020 11:36:29
Hola, estoy en el mismo ejercicio de una factura de preguntas anteriores, me gustaría comentar el propósito , y en efecto el contexto.
Debo agregar a una macro el objetivo de que si determinadas celdas están en blanco, salte una ventana mencionando un mensaje personalizado que diga "No puedes guardar hasta que rellenes dichas celdas"
Busqué, y en la página oficial de Microsoft encontré el siguiente código.
Lo agregué a una macro que ya tenía, el cual se separaba mediante una linea, de la anterior. Cambié las celdas del ejemplo que había por las que yo necesitaba, al igual que el mensaje personalizado que edité.
Al guardar no me da ningún fallo, tampoco al ejecutar la macro, pero no sucede nada si se deja dicha casilla vacía, por que la primera parte de la macro guarda unos datos copiando estos en otra hoja del mismo libro. No, el fallo no viene de el libro por que están habilitadas las macros.
Debo agregar a una macro el objetivo de que si determinadas celdas están en blanco, salte una ventana mencionando un mensaje personalizado que diga "No puedes guardar hasta que rellenes dichas celdas"
Busqué, y en la página oficial de Microsoft encontré el siguiente código.
1
2
3
4
5
6
7
8
9
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'If the six specified cells do not contain data, then display a message box with an error 'and cancel the attempt to save.If WorksheetFunction.CountA(Worksheets("Sheet1").Range("D5,D7,D9,D11,D13,D15")) < 6 Then
MsgBox "Workbook will not be saved unless" & vbCrLf & _
"All required fields have been filled in!" Cancel = TrueEnd If
End Sub
Lo agregué a una macro que ya tenía, el cual se separaba mediante una linea, de la anterior. Cambié las celdas del ejemplo que había por las que yo necesitaba, al igual que el mensaje personalizado que edité.
Al guardar no me da ningún fallo, tampoco al ejecutar la macro, pero no sucede nada si se deja dicha casilla vacía, por que la primera parte de la macro guarda unos datos copiando estos en otra hoja del mismo libro. No, el fallo no viene de el libro por que están habilitadas las macros.
Valora esta pregunta
0
