Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Macro trasponer columnas a filas

publicado

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!

Featured Replies

publicado

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]

publicado
  • Autor

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.