Saltar al contenido

Crear Hoja por cada registro en una tabla

publicado

Hola

Tengo un ahoja excel con el nombre de una serie de alumnos. Me gustaria crear una hoja por cada linea. EL problema que tengo es que si hay dos alumnos con el mismo nombre, me da error, puesto que no puede haber dos hojas con el mismo nombre.

¿Como podria comprobar si existe el nombre de la hoja?

Mi codigo en Vba es el siguiente:



Sub Crear_hoja()
Worksheets.Item(1).Select



[a65536].Formula = "=COUNTA(R[-65535]C:R[-1]C)"
For i = 2 To [a65536].Value

Sheets.Add after:=Worksheets(Worksheets.Count)
Worksheets.Item(Worksheets.Count).Name = Worksheets.Item(1).Range("a" & i)
DoEvents
Next
Worksheets.Item(1).Select
[a10000].Clear

End Sub

[/code]

Adjunto, envio un ejemplo con los datos.

Muchas gracias y un saludo

- - - - - Mensaje combinado - - - - -

No puede ayudarme nadie???

Tengo que dar mas informacion????

Ejemplo.rar

Ejemplo2003.xls

Ejemplo.rar

Ejemplo2003.xls

Featured Replies

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.