Jump to content

Se pueden eliminar varias Hojas a la vez?


Recommended Posts

Hola, queridos amigos del foro

Tengo una archivo con bastantes hojas y quisiera, si es

posible, eliminar hojas sin tener que hacerlo una por una.

¿Es posible?

Aprovecho para consultaros cómo podría eliminar unas

autoformas (flechas) que me ha quedado dentro de unas

hojas eliminadas. Cuando sitúo el cursor sobre ellas, no

me deja seleccionarlas porque me sale un "bicho" (un

círculo con un diámetro) y de ahí no paso.

Muchas gracias

Link to post
Share on other sites

a preguntas generales respuetas generales:

prueba con estas opciones:

Sub elimina_Hojas_1_ST()
Application.DisplayAlerts = False
Sheets(Array("Hoja6", "Hoja7")).Delete
End Sub[/CODE]

en este ejemplo se eliminan las hojas 6 y 7

con un bucle

[CODE]Sub elimina_hojas_2_ST()
Application.DisplayAlerts = False
For i = 2 To 25
Sheets("Hoja" & i).Delete
Next
End Sub[/CODE]

en este ejemplo se eliminan de la hoja2 hasta la 25

vale la pena comentar que ya no se mostrara el mensaje de alerta que normalmente podemos ver y inmediatamente se eliminaran las hojas.

en cuanto al "bicho",pudiera ser una simple imagen con una macro asignada,hoja protegida,con area restringida en fin,sin detalles o sin el archivo en cuestión es dificil 'adivinar' o 'atinar' al problema.

Asi que cualquier aclaracion/comentario adicional y/o el archivo en cuastión podria dar luces y respuestas mas certeras a tus necesidades,pero eso dependera de que tanto nos facilites las posibilidades de ayudarte :)

Que dicho sea de paso tu planteamiento es un tanto incongruente/impreciso/falto de claridad y logica (no es un regaño) ya que si las autoformas estan en la hojas eliminadas, y al ser eliminadas pues 'se supone' que ya no existen :mad:

Link to post
Share on other sites

Amigo ST, gracias por tu respuesta.

Por lo que se ve las imprecisiones, incongruencias, etc., etc.,

¿sabes cómo se arreglaron en este caso concreto?

¡cerrando el programa y volviéndolo a abrir!

No es broma, el presunto "bicho" desapareció en el entreacto

y las autoformas de marras ya no ofrecieron resistencia y

capitularon.

Saludos cordiales

Link to post
Share on other sites

Amigo

Tambien puedes eliminar de una forma mas facil sin macro seleccionando las hojas que necesites eliminar, le das un click sobre el nombre de la cualquera de la hojas seleccionadas y seleccionas eleminar.

Seleccionas de a una teniendo presionada la tecla control, y el mouse vas pincahdo las hojas a eliminar

Cordiales Salu2 desde Santiago de Chilito

Link to post
Share on other sites
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy