Macro para borrar hojas vacías
Hola Expertos de todo expertos.com
Quisiera ver si pueden ayudarme en esta labor:
Necesito hacer una macro que explore las hojas de un libro cualquiera y elimine aquellas que se encuentren vacías si es que las hay.
De antemano muchísimas gracias.
Quisiera ver si pueden ayudarme en esta labor:
Necesito hacer una macro que explore las hojas de un libro cualquiera y elimine aquellas que se encuentren vacías si es que las hay.
De antemano muchísimas gracias.
1 Respuesta
Respuesta de Elsa Matilde
1
Ingresá al Editor, insertá un módulo y allí copiá esta rutina.
Sub hojasVacias()
'x Elsamatilde
For Each sh In Sheets
sh.Select
nro = Application.WorksheetFunction.CountA(Cells)
'evita el mensaje que aparece cuando eliminas hojas
Application.DisplayAlerts = False
If nro = 0 Then sh.Delete
Next sh
'volvemos a activar la aparición de mensajes de alerta
Application.DisplayAlerts = False
MsgBox "Fin del proceso"
End Sub
Pruébala sobre una copia y no olvides finalizar la consulta.
Sub hojasVacias()
'x Elsamatilde
For Each sh In Sheets
sh.Select
nro = Application.WorksheetFunction.CountA(Cells)
'evita el mensaje que aparece cuando eliminas hojas
Application.DisplayAlerts = False
If nro = 0 Then sh.Delete
Next sh
'volvemos a activar la aparición de mensajes de alerta
Application.DisplayAlerts = False
MsgBox "Fin del proceso"
End Sub
Pruébala sobre una copia y no olvides finalizar la consulta.
