Crear hojas con los datos de cada fila

21/08/2006 - 00:44 por martin | Informe spam
Hola a todos, estoy intentando hacer una hoja de cada fila de una hoja
"master" que tengo:


conductor km lts eur ruta dias

C1 13,5 0,9 14 9 3
C2 23,4 0,7 0.9 22 3
C3 33,5 4,4 12 12 3
C4 65,2 2,1 0.8 9 9
C5 21,5 0,7 9 7 14
.
.
.
.
.
.
.
.
Son 84 las filas hasta C84. La pregunta es:

¨Hay alguna forma de hacer de cada fila una hoja nueva en el mismo libro de
la "master", o en otro me da igual, de manera que tenga el nombre clave de
cada conductor?

Es decir el resultado serian 84 hojas de dos filas, una de encabezamiento y
una de datos. Es que hacer insertar hoja nueva, renombrar, copiar fila y
pegar me parece una labor de chinos sobre todo porque tendre que repetirla
cada semana. Una ayuda se agradecera mucho.

Salu2. Martin.
 

Leer las respuestas

#1 Francisco Parrilla
21/08/2006 - 08:14 | Informe spam
Por ahi va la idea ... por ahora me retiroa descanzar :(
Saludos


Sub hojas()
Dim valors As New Collection
Dim paso
Dim v
Sheets(1).Select
Range("a2").Select
Range(Cells(2, 1), Cells.End(xlDown)).Select
For Each xcell In Selection
valors.Add xcell
Sheets.Add after:=Worksheets(Sheets.Count)
Worksheets(Sheets.Count).Name = xcell.Value
Next xcell
'Recorrer las hojas y pegar los valores
For i = 1 To valors.Count
Sheets(i + 1).Select
Cells(2, 1).Value = valors.Item(i)
Next i
End Sub

Preguntas similares