Foros del Web » Soporte técnico » Ofimática »

Excel eliminar hojas con el mismo prefijo

Estas en el tema de Excel eliminar hojas con el mismo prefijo en el foro de Ofimática en Foros del Web. Hola foreros! tengo una macro que me va haciendo varias hojas temporales, al final quiero evitarme el tener que hacer un arreglo con el nombre ...
  #1 (permalink)  
Antiguo 06/05/2011, 09:08
 
Fecha de Ingreso: septiembre-2010
Mensajes: 113
Antigüedad: 11 años, 10 meses
Puntos: 4
Excel eliminar hojas con el mismo prefijo

Hola foreros!


tengo una macro que me va haciendo varias hojas temporales, al final quiero evitarme el tener que hacer un arreglo con el nombre de todas las que se generaron.

Hay alguna forma de eliminar todas las hojas que empiezen con el mimos prefijo en una sola instruccion??

desde ya muchas gracias
  #2 (permalink)  
Antiguo 06/05/2011, 12:01
Avatar de 3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 18 años, 6 meses
Puntos: 144
Respuesta: Excel eliminar hojas con el mismo prefijo

Aquí tienes el macro:

Código:
Sub borrar_con_prefijo()
'si hay errores que continúe
On Error Resume Next
'omitimos los avisos
Application.DisplayAlerts = False
'preguntamos el prefijo
respuesta = InputBox("Prefijo de las hojas a borrar", "Pregunta")
'contamos el largo de la respuesta
largo = Len(respuesta)
'para todas las hojas
For Each hoja In Sheets
  'comprobamos si coincide el prefijo
    If Left(hoja.Name, largo) = respuesta Then
      'la borramos
        Sheets(hoja.Name).Select
        ActiveSheet.Delete
      'creamos un contador
        contador = contador + 1
    End If
Next
'si hay contador, mostramos un mensaje
If contador Then MsgBox ("Se han eliminado " & contador & " hojas.")
End Sub
Salu2
  #3 (permalink)  
Antiguo 06/05/2011, 12:34
 
Fecha de Ingreso: septiembre-2010
Mensajes: 113
Antigüedad: 11 años, 10 meses
Puntos: 4
Respuesta: Excel eliminar hojas con el mismo prefijo

Maestro!!!!!

De verdad muchas gracias
  #4 (permalink)  
Antiguo 07/05/2011, 19:22
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.945
Antigüedad: 14 años, 10 meses
Puntos: 39
Respuesta: Excel eliminar hojas con el mismo prefijo

Mi capacidad no me dá para encontrarle la forma de que; en ves de presentarme la cantidad de hojas borradas, me presente cantidad de hojas y sus nombres, así como un mensage cuando no encuentre la o las hpojas con el prefixo introducido (por equivocacion)

Está genial, quisiera yo

Etiquetas: excel, hojas, prefijo
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 20:16.