Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Borrar todas las hojas menos la activa

| 4 comentarios

Borrar todas las hojas excepto la activa

Cuando se quiera borrar todas las hojas menos la activa, se puede usar esta macro.

Esta macro relaciona cada nombre de las hojas de trabajo (worksheets) con el nombre de la hoja activa. Cada vez que el nombre de las hojas no sea iguales al de la hoja activa se eliminarán.

Ejemplo:

Borrarhojasmenosactiva

(Para mayor visualización de la imagen, hacer click en la misma)

¿Cómo funciona?

La macro primero declara un objeto llamado “ws”. Esto crea una memoria para cada hoja de trabajo por la cual se pasa.

La macro comienza a funcionar, diciéndole a Excel que evaluará todas las hojas de trabajo del libro.

Hay una diferencia entre “”ThisWorkbook” y  “ActiveWorkbook”. El primero se refiere al libro que contiene el código y el segundo se refiere al libro que está activo en el momento. Para no correr el riesgo de borrar hojas en otros libros usamos “ThisWorkbook”.

Después la macro compara el nombre de la hoja activa con la hoja por la cual está pasando. Si el nombre de las hojas es diferente, la macro las borrará. Usamos “DisplayAlerts” para suprimir cualquier confirmación hecha por Excel.

Finalmente, la macro continúa con la siguiente hoja hasta que todas sean evaluadas.

Ejemplo-Borrar todas las hojas menos la activa

Por: María Alejandra Ceballos Valencia

4 comentarios

  1. Estimado podría ayudarnos con un código en donde se pueda borrar todas las hojas excepto ciertas hojas especificas, por ejemplo:

    En mi archivo de excel tengo 5 hojas , llamadas hoja1,hoja2,hoja3,hoja4,hoja5.
    y quiero que borrar las hoja1,hoja2,hoja5.

  2. Buenas tardes
    Probe la macro en alguno de mis libros
    y me pone error en la linea ws.delete
    porque será

  3. Excelente !!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    Yo estuve meses en eso hasta que lo logre ANTES de ver tu solucion.
    Gracias de todas formas por mi parte, si hubiera visto ......mucho me hubiese ahorrado.

    Gran Abrazo.

  4. Hola. tengo que responde para un trabajo práctico una pregunta donde dice: ¿Que pasa si no eliminamos las hojas que no usamos en nuestro libro o planilla de cálculo? AYUDAAAAAAAA

Deja una respuesta

Los campos requeridos estan marcados con *.