Excel - Nueva hoja con valores de la hoja anterior en celdas distintas

 
Vista:

Nueva hoja con valores de la hoja anterior en celdas distintas

Publicado por Carlos (1 intervención) el 05/06/2013 17:01:52
Buenos dias.

Tengo una hoja en la que ingreso varios datos en una fila que va de B a P.
necesito enviar estos datos a una segunda hoja que tiene un formato especifico en la cual los datos estan distribuidos como sigue:

B (hoja 1) en E9 (hoja 2)
D (hoja 1) en C16 (hoja 2)
E (hoja 1) en D16 (hoja 2)
F (hoja 1) en E16 (hoja 2)
G (hoja 1) en G16 (hoja 2)
H (hoja 1) en H16 (hoja 2)
I (hoja 1) en I16 (hoja 2)
J (hoja 1) en C20 (hoja 2)
K (hoja 1) en H20 (hoja 2)
L (hoja 1) en H23 (hoja 2)
N (hoja 1) en D27 (hoja 2)
O (hoja 1) en E27 (hoja 2)
P (hoja 1) en B31 (hoja 2)

por cada fila de datos que ingreso en la hoja 1 esta debe crear una hoja nueva e ingresar y guardar los datos en la hoja siguiente con la distribución de celdas como se muestra arriba.

pude ingresar los datos manualmente en una segunda hoja, pero me tocó especificar que estaba trabajando en la hoja 2.
quiero poder hacerlo para cuantas filas llene en la hoja 1.

gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Nueva hoja con valores de la hoja anterior en celdas distintas

Publicado por jcs (494 intervenciones) el 06/06/2013 13:04:06
Muy buenas.

Mira a ver si te sirve la siguiente macro:

1
2
3
4
5
6
7
8
9
10
11
12
Sub nuevas_hojas()
    i = 2
    Sheets("Hoja1").Select
    While Cells(i, 2) <> ""
        NHoja = "H" & i
        Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = NHoja
        Sheets("Hoja1").Select
        Sheets(NHoja).Cells(9, 5) = Cells(i, 2)
        Sheets(NHoja).Cells(16, 3) = Cells(i, 4)
        i = i + 1
    Wend
End Sub


Te he puesto los dos primeros datos, el resto ponlos tú siguiendo la misma estructura.

Un saludo. Juanjo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar