problema al copiar y trasponer datos

[Gsus]

Buenas, tengo un libro excel con un listado de datos con las fechas en horizontal, datos de producto, etc. Estoy intentando dejarlo como indico en la hoja "RESULTADODESEADO" del ejemplo que adjunto. Pensaba que al copiar y trasponer se podría, pero se queda todo el listado de filas como cabeceras.

Alguna idea de cómo hacerlo?

Gracias.

trasponerdatos.zip

[JasallBcn]

buenas, tendrás que hacerlo por partes para que te funcione.

te paso una forma

saludos

 

trasponerdatos_v1.xlsm

[Antoni]

Imagino que el número de productos y fechas es variable.

Este fin de semana intentaré solucionarlo bajo ese punto de vista. ?

[Antoni]

¡Pues fíjate tú!, ha salido más fácil de lo esperado.

Macro válida para cualquier cantidad de fechas y productos.

Sub Transponer()
With Hoja1
   Application.ScreenUpdating = False
   Hoja2.Cells.Clear
   columna = .Cells(1, Columns.Count).End(xlToLeft).Column
   fila = 1
   For x = 1 To .Range("A" & Rows.Count).End(xlUp).Row
      If IsDate(.Range("A" & x)) Then
         y = 1
         If x > 1 Then fila = fila + columna
      End If
      .Range("A" & x).Resize(1, columna).Copy
      Hoja2.Cells(fila, y).PasteSpecial Transpose:=True
      y = y + 1
   Next
End With
Hoja2.Select
End Sub

 

[Gsus]

hace 17 horas, Antoni dijo:

¡Pues fíjate tú!, ha salido más fácil de lo esperado.

Macro válida para cualquier cantidad de fechas y productos.

Sub Transponer()
With Hoja1
   Application.ScreenUpdating = False
   Hoja2.Cells.Clear
   columna = .Cells(1, Columns.Count).End(xlToLeft).Column
   fila = 1
   For x = 1 To .Range("A" & Rows.Count).End(xlUp).Row
      If IsDate(.Range("A" & x)) Then
         y = 1
         If x > 1 Then fila = fila + columna
      End If
      .Range("A" & x).Resize(1, columna).Copy
      Hoja2.Cells(fila, y).PasteSpecial Transpose:=True
      y = y + 1
   Next
End With
Hoja2.Select
End Sub

 

muchas gracias, Antoni! había seguido el método anterior... por partes, que también me ha servido, pero esto es super sofisticado! eres un crack! mil gracias, como siempre!

[Gsus]

hace 19 horas, JasallBcn dijo:

buenas, tendrás que hacerlo por partes para que te funcione.

te paso una forma

saludos

 

trasponerdatos_v1.xlsm 21.55 kB · 1 descarga

gracias!!!