Macro trasponer columnas a filas

[Majack]

Hola amigos,

Tengo lo siguiente en excel:

|USUARIO|

|Carlos | Mov.ventas |Mov.Compras| Mov.Salir | Mov.Cuentas |

|Diana | Exp.Calcu |Mov.Ventas |

|Pedro | Mov.Compras |

Como pueden observar cada usuario tiene sus movimientos separados en columnas, lo que quiero lograr es una macro que me transponga los datos que tengo en columnas a filas por cada usuario, por ejemplo que quede algo así:

USUARIO|

Carlos | Mov.ventas |

Carlos | Mov.Compras |

Carlos | Mov.Salir |

Carlos | Mov.Cuentas |

Diana | Exp.Calcu |

Diana | Mov.Ventas |

Pedro | Mov.Compras |

Podrían ayudarme por favor? :sour: De ante mano muchas gracias!

[Invitado Gengis Khan]

Hola:

Pruebe con esta macro:

Sub Transponer()


Hoja2.Cells.Clear

For x = 1 To Hoja1.Range("A" & Rows.Count).End(xlUp).Row

   For y = 2 To Hoja1.Cells(1, Columns.Count).End(xlToLeft).Column

      fila = fila + 1

      Hoja2.Range("A" & fila) = Hoja1.Range("A" & x)

      Hoja2.Range("B" & fila) = Hoja1.Cells(x, y)

   Next

Next

Hoja2.Select

End Sub


Saludos

[/CODE]

[Majack]

Muchas gracias Gengis me funcionó la macro a la perfeccción :tears_of_joy:

[Majack]

Tema solucionado