Campo Obligado
Nuevamente yo preguntando un detalle, ¿cómo debería quedar el código si lo quiero aplicar a toda la columna? Y no sólo a una celda específica...
1 Respuesta
Respuesta de Abraham Valencia
1
No lo probé, pero viendo me parece que si funcionara. Analízalo para que te des idea que hacen esos códigos:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Celda As Range
Dim Hoja As Worksheet
For Each Hoja In Worksheets
For Each Celda In Hoja.Range("A1:A65536")
If Celda = "" Then
MsgBox "No olvides llenar las celdas de la columna A de todas las Hojas"
Cancel = True
Exit Sub
End If
Next Celda
Next Hoja
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Celda As Range
Dim Hoja As Worksheet
For Each Hoja In Worksheets
For Each Celda In Hoja.Range("A1:A65536")
If Celda = "" Then
MsgBox "No olvides llenar las celdas de la columna A de todas las Hojas"
Cancel = True
Exit Sub
End If
Next Celda
Next Hoja
End Sub
Abraham
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Celda As Range
Dim Hoja As Worksheet
For Each Hoja In Worksheets
For Each Celda In Hoja.Range("A1:A65536")
If Celda = "" Then
MsgBox "No olvides llenar las celdas de la columna A de todas las Hojas"
Cancel = True
Exit Sub
End If
Next Celda
Next Hoja
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Celda As Range
Dim Hoja As Worksheet
For Each Hoja In Worksheets
For Each Celda In Hoja.Range("A1:A65536")
If Celda = "" Then
MsgBox "No olvides llenar las celdas de la columna A de todas las Hojas"
Cancel = True
Exit Sub
End If
Next Celda
Next Hoja
End Sub
Abraham
