UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Borrar Hojas Ocultas el 13/05/17, 06:16 pm

edwinjo


Estimados Buenas tardes,
Consultándoles, si es posible con un macro eliminar todas las hojas ocultas, resulta que con el tiempo en ciertos archivos he ido ocultando hojas para poder consultarlas en el futuro, pero con el tiempo dejan de ser importantes y hay libros en lo cuales tengo oculta hasta mas de 18 hojas, y lo que hago, la muestro y las borro manual mente, por lo que le solicito, si es posible con un macro eliminar todas las hojas ocultas, de una vez

Por su fina ayuda
Gracias
Edwinjo

2RESUELTO Una idea el 24/05/17, 02:59 pm

edwinjo


Buenos días a todos,
Estimados, para la consulta que les hice se me ha ocurrido algo y es digitar, las hojas a dejar, pero no se como hacer para poder seleccionarlos por medio de un inputbox la hojas que no se deben eliminar, he hecho lo siguiente me ayudan por fa. Si digito una hoja no hay problema, pero si quiero seleccionar o digitar mas no me da resultas. Por su ayuda Muchas gracias
Nota: Hequerido subir el archivo pero no me lo acepta
Sub BORRARhojas()
    Dim hoja As Worksheet
    Dim i As String
   
     i = InputBox("Indica Hoja a Dejar")
    Application.DisplayAlerts = False
    For Each hoja In Worksheets
        If hoja.Name <> i Then
            hoja.Delete
        End If
    Next
    Application.DisplayAlerts = True
End Sub

3RESUELTO Re: Borrar Hojas Ocultas el 25/05/17, 10:18 am

ioyama

avatar
Hola Edwin

Con

Sub EliminaOcultas()
    Application.DisplayAlerts = False
    On Error Resume Next
    For s = 1 To Sheets.Count
        If Sheets(s).Visible = False Then
            Sheets(s).Delete
        End If
    Next
End Sub

Eliminas todas las ocultas

Un saludo desde Vitoria

4RESUELTO Gracias Excelente el 25/05/17, 11:44 am

edwinjo


Gracias IOYAMA, 
Le busque de tantas formas y no le encontré de veras el que sabe sabe, Ni te imaginas cuanto trabajo me has ahorrado, podre utilizar varios archivos que ya son bien pesado.

De Nuevo Muchas gracias
Edwinjo

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.