Crear hojas Excel a partir de datos de 1 columna
Buenos días,
tengo n datos en una columna de Excel, n= 150, y necesitaría crear n hojas cuyo nombre sea el valor que esta en la celda correspondiente de forma que si yo cambio el valor de dicha celda se cambie el nombre de la hoja creada. ¿Es posible realizar esto o tengo que plantearlo de otro modo?
Muchísimas gracias por todo. Saludos,
Alex
tengo n datos en una columna de Excel, n= 150, y necesitaría crear n hojas cuyo nombre sea el valor que esta en la celda correspondiente de forma que si yo cambio el valor de dicha celda se cambie el nombre de la hoja creada. ¿Es posible realizar esto o tengo que plantearlo de otro modo?
Muchísimas gracias por todo. Saludos,
Alex
{"Lat":40.3130432088809,"Lng":-2.109375}
1 Respuesta
Respuesta de calvuch
1
Con este sub creas hojas dándole el nombre de lo que tengas en columna A de hoja1
Tal vez lo puedas adaptar a tu proyecto
Sub crea_hoja()
Dim i As Integer
Worksheets.Item(1).Select
[a65536].Formula = "=COUNTA(R[-65535]C:R[-1]C)"
For i = 1 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
[a65536].Clear
End Sub
Tal vez lo puedas adaptar a tu proyecto
Sub crea_hoja()
Dim i As Integer
Worksheets.Item(1).Select
[a65536].Formula = "=COUNTA(R[-65535]C:R[-1]C)"
For i = 1 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
[a65536].Clear
End Sub
