No guardar si hay celda vacía
Necesito una rutina como esta
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'selecciono la hoja que debe controlar
Sheets("Hoja2").Select
If Range("B8") = "" Or Range("O8") = "" Then
MsgBox "Hay celdas vacías- no se puede guardar"
Cancel = True
End If
End Sub
Pero que me permita repetirla en todas las filas del rango y que solo requiera completar la celda para guardar si la primera de la fila no esta vacía.
Si lo necesitas te envío el archivo.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'selecciono la hoja que debe controlar
Sheets("Hoja2").Select
If Range("B8") = "" Or Range("O8") = "" Then
MsgBox "Hay celdas vacías- no se puede guardar"
Cancel = True
End If
End Sub
Pero que me permita repetirla en todas las filas del rango y que solo requiera completar la celda para guardar si la primera de la fila no esta vacía.
Si lo necesitas te envío el archivo.
1 Respuesta
Respuesta de Enrique Bernal
1