Visual Basic para Aplicaciones - Borrar hojas para excel

Life is soft - evento anual de software empresarial
 
Vista:

Borrar hojas para excel

Publicado por Lewinsky (2 intervenciones) el 14/02/2003 17:03:04
Hola,

Sólo escribo para darte las gracias, pero lo que yo quiero hacer es borrarlas de forma genérica (la verdad es que quiero borrar todas aquellas que estén ocultas), no mediante sus nombres (desconocidos)...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Borrar hojas para excel

Publicado por Mauricio Baeza (262 intervenciones) el 14/02/2003 20:31:30
Hola, las siguiente macros hacen lo que quieres, la diferencia es que la primera te pide confirmacion y la segunda no, saludos...

Option Explicit

Public Sub Borrar_Ocultas1()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Visible = xlSheetHidden Then
ws.Delete
End If
Next ws
End Sub

Public Sub Borrar_Ocultas2()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Visible = xlSheetHidden Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar