Añadir código a macro que inserta nuevas hojas

eli · May 18, 2013

Hola,

En un libro, en una hoja, tengo información muy extensa, de todo tipo, de muchas ciudades pero tengo que solicitar un nuevo dato a cada una de ellas y para ello necesito crear una hoja personalizada con su nombre donde incluiré la información relevante que necesitan para poderme dar ese dato que les reclamo. Estoy utilizando una tabla dinámica. El campo ciudad lo he puesto en el campo filtro y utilizo esta macro:

Sub InsHoja()

Dim MyName As String

Sheets("BaseDatos").Select

MyName = Range("I10").Value


Sheets.Add After:=Sheets(Sheets.Count)

Sheets(Sheets.Count).Select

Sheets(Sheets.Count).Name = MyName


End Sub[[/CODE]

Funciona muy bien pero claro primero voy a filtro, selecciono el siguiente registro y ejecuto la macro. Me ha creado una hoja nueva con el nombre que necesito. Vuelvo a la tabla dinámica y voy copiando la información que luego voy pegando en la hoja nueva. Después tengo que darle formato...... y así no acabo nunca.

El primer paso sería un código que haga ese filtrado. ¿es posible?

Gracias.

Armando Montes · May 18, 2013

Por favor ve los puntos 5 y 6 de Ayuda Excel - Normas

eli · May 18, 2013

Pido mil perdones,las prisas son malas consejeras, pero ¿cómo puedo eliminar el código ese que he escrito? ¿Tengo que volver a enviar el mensaje poniendo el código en una etiqueta de esas?

Del 2º mensaje he intentado quitar el archivo que he subido pero no he sabido o podido hacerlo así que como he subido el archivo xlsx ahora hay 2. Bueno, no sé si te refieres a estos cambios que he intentado hacer gracias de todas formas y de nuevo mil perdones.

eli