Crear hojas con los datos de cada fila

Ok.
Prueba este codigo :)

Sub hojas()
Dim valors As New Collection
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(1).Select
Rows(1).Select
Selection.Copy Sheets(i + 1).Range("A1")
Rows(i + 1).Select
Selection.Copy Sheets(i + 1).Range("A65536").End(xlUp).Offset(1, 0)
Next i
End Sub

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice

El verdadero buscador crece y aprende, y descubre que siempre es el
principal responsable de lo que sucede.
Jorge Bucay

La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en alguna
pared, el ignorante permanece tranquilo en el centro de la estancia.
Anatole France

Juuuuueeeer, maravilloso!!!!

Mil gracias Francisco. En quince dias pienso comer todo a la Parrilla.
Muchisimas gracias.

Un abuso: esa segunda parte que copia y pega la fila correspondiente en
la hoja correspondiente no se puede "aislar" de modo que si cambio filas
en la hoja master me las copie en las hojas correspondientes a
continuacion de las que ya esten?, es que la coloque sola:

Sub pasavalor

'Recorrer las hojas y pegar los valores
For i = 1 To valors.Count
Sheets(1).Select
Rows(1).Select
Selection.Copy Sheets(i + 1).Range("A1")
Rows(i + 1).Select
Selection.Copy Sheets(i + 1).Range("A65536").End(xlUp).Offset(1, 0)
Next i
End Sub

y como no tengo ni idea de lo que hay que cambiar, da un error y se para
en el For i.

Pero bueno, esto ultimo ya es un poco de lujo eh?, aunque me vendria muy
bien.

Muchas gracias otra vez.


Salu2. Martin.

Ok.
Prueba este codigo :)

Sub hojas()
Dim valors As New Collection
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(1).Select
Rows(1).Select
Selection.Copy Sheets(i + 1).Range("A1")
Rows(i + 1).Select
Selection.Copy Sheets(i + 1).Range("A65536").End(xlUp).Offset(1, 0)
Next i
End Sub

Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice

El verdadero buscador crece y aprende, y descubre que siempre es el
principal responsable de lo que sucede.
Jorge Bucay

La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en
alguna pared, el ignorante permanece tranquilo en el centro de la
estancia. Anatole France

Haz el intento de lo que pides, esta linea del codigo te hace eso me parece
:)

Selection.Copy Sheets(i + 1).Range("A65536").End(xlUp).Offset(1, 0)

A que te refieres con esta linea "si cambio filas en la hoja master ",
pretendes seleccionar mas de una linea ?

Posiblemente de te un error por que no tienes iniciado la coleccion de
valors que son los datos seleccnados de la columna, podrias dar mas detalles
de lo que buscas.

Saludos

Martin... un saludo desde el volcan Misti de Arequipa-Peru
Una observacion... porque 84 hojas ?
probable que la informacion de la semana lo digitas en la hoja master
(Faltaria Dia?)
sugiero:
1.- Utilizar una celda vacia del master... para poner el conductor(validado)
2.- Trasladar todos los datos del conductor a una segunda hoja (Podria
usarse tambien con una celda para "traer" los datos del master
3.- ... solo manejaras dos hojas ( 3 si se valida... al conductor)
4.- tu macro no valida datos... de los probables erroneamente dihitrados
... si deseas chateamos (Hs. 21-Lima)
... te entendi ?
Audad

"martin" escribió:

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.