Excel - ELIMINAR HOJAS CON MACRO

 
Vista:
Imágen de perfil de JOSE LUIS
Val: 129
Ha aumentado 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

ELIMINAR HOJAS CON MACRO

Publicado por JOSE LUIS (58 intervenciones) el 01/05/2018 18:48:18
Buenos días a los miembros de este foro, en esta ocasión recurro a Uds, para que brinde su apoyo y colaboración en como mejorar la macro, la cual permite eliminar hojas a excepción de algunas, para lo cual adjunto archivo y código de la macro, pero al ejecutar la macro da como resultado lo siguiente:

1. Ejecutar macro:
TABLAS - PLANILLA - RESUMEN - BOLETA - CONSOLIDADO - AFPNET

2 Faltan hojas:
PDT PLAME - REPORTE BOLETAS - TELECREDITO

3. Resultado:
TABLAS - PLANILLA - RESUMEN - BOLETA - CONSOLIDADO - AFPNET - PDT PLAME - REPORTE BOLETAS - TELECREDITO


1
2
3
4
5
6
7
8
9
10
Sub ELIMINA_TODAS_MENOS()
    Application.DisplayAlerts = False
Dim hoja As Worksheet
For Each hoja In ActiveWorkbook.Sheets
If hoja.Name <> "TABLAS" And hoja.Name <> "PLANILLA" And hoja.Name <> "RESUMEN" And hoja.Name <> "BOLETA" And hoja.Name <> "CONSOLIDADO" And hoja.Name <> "AFPNET" And hoja.Name <> "PDT PLAME" And hoja.Name <> "REPORTE BOLETAS" And hoja.Name <> "TELECREDITO" Then
hoja.Delete
End If
Next hoja
    Application.DisplayAlerts = True
End Sub


Desde ya agradezco su apoyo y colaboración
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

ELIMINAR HOJAS CON MACRO

Publicado por JuanC (1237 intervenciones) el 01/05/2018 19:28:27
podrías abreviar así:

Sheets(Array("TABLAS", "PLANILLA", "RESUMEN", "BOLETA", "CONSOLIDADO", _
"AFPNET", "PDTPLAME", "REPORTE BOLETAS", "TELECREDITO")).Delete
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