Crear Hojas

Buenas tardes,

Este código te puede ir bien.

Saludos,

Benito
Barcelona

On 16 nov, 18:01, Oszkar M^ wrote:

Buenas tardes,

Tengo un código de VBA que lista todas las hojas que tiene un libro, en la
hoja1, a partir de la celda A1.

He intentado hacer lo contrario, pero no lo consigo, es decir, tengo nombres
de hojas a partir de la celda A1 (verticalemtne) y desearía que con una macro
se crearan la cantidad de hojas correspondiente, y que cada hoja tome como
nombre el dato que está en la lista. Los datos son texto.

Espero que algún miembro del foro me pueda ayudar.

Saludos,

Oszkar M^
Sevilla - España

Perdona pero me he dejado el código:

Aquí lo tienes:

Sub crearpestañas()
estelibro = ActiveSheet.Name
Range("A1").Select
While ActiveCell.Value <> ""
contador = contador + 1
nombrehoja = ActiveCell.Value
Sheets.Add
ActiveSheet.Name = nombrehoja
Sheets(estelibro).Select
ActiveCell.Offset(1, 0).Select
Wend

End Sub

On 16 nov, 18:23, Benito Merino wrote:

Buenas tardes,

Este código te puede ir bien.

Saludos,

Benito
Barcelona

On 16 nov, 18:01, Oszkar M^ wrote:



> Buenas tardes,

> Tengo un código de VBA que lista todas las hojas que tiene un libro, en la
> hoja1, a partir de la celda A1.

> He intentado hacer lo contrario, pero no lo consigo, es decir, tengo nombres
> de hojas a partir de la celda A1 (verticalemtne) y desearía que con una macro
> se crearan la cantidad de hojas correspondiente, y que cada hoja tome como
> nombre el dato que está en la lista. Los datos son texto.

> Espero que algún miembro del foro me pueda ayudar.

> Saludos,

> Oszkar M^
> Sevilla - España- Ocultar texto de la cita -

- Mostrar texto de la cita -

Hola chicos,

Partiendo del codigo de Benitose puede reducir un poco si evitamos la
seleccion de hojas y de celdas
Hay que añadir que el codigo no contempla el error en la introduccion de
nombres de hoja, no admite nombres de mas de 30 caracteres, hay caracteres
prohibidos como el /, \, *, ?, [, ] , :, por citar algunos, se podríasn
controlar desde la propia hoja.

Un saludo,
Juan

Sub crearhojas()
Dim i As Long
i = 1
While Worksheets("Hoja1").Range("a" & i) <> ""
Worksheets.Add
ActiveSheet.Name = Worksheets("Hoja1").Range("a" & i)
i = i + 1
Wend
End Sub







"Benito Merino" escribió
Perdona pero me he dejado el código:

Aquí lo tienes:

Sub crearpestañas()
estelibro = ActiveSheet.Name
Range("A1").Select
While ActiveCell.Value <> ""
contador = contador + 1
nombrehoja = ActiveCell.Value
Sheets.Add
ActiveSheet.Name = nombrehoja
Sheets(estelibro).Select
ActiveCell.Offset(1, 0).Select
Wend

End Sub

On 16 nov, 18:01, Oszkar M^ wrote:



> Buenas tardes,

> Tengo un código de VBA que lista todas las hojas que tiene un libro, en
> la
> hoja1, a partir de la celda A1.

> He intentado hacer lo contrario, pero no lo consigo, es decir, tengo
> nombres
> de hojas a partir de la celda A1 (verticalemtne) y desearía que con una
> macro
> se crearan la cantidad de hojas correspondiente, y que cada hoja tome
> como
> nombre el dato que está en la lista. Los datos son texto.

> Espero que algún miembro del foro me pueda ayudar.

> Saludos,

> Oszkar M^
> Sevilla - España- Ocultar texto de la cita -

- Mostrar texto de la cita -