Macro para pasar listado vertical a horizontal

Buenas Noches. Tengo unos datos mas de 8000 registros como este ejemplo:

REFERENCIA CODIGO UBICACIÓN

A0007A 0007 D01E09C

A0007A 0007 D01E18A

A0007A 0007 D01E19C

A0014A 0014 CART

A0014A 0014 D01E08E

A0014A 0014 D01E18A

A0014A 0014 D01E18B

A0014A24 0014 CART

.......... Etc

Como ven que las referencias se repiten porque tienen diferentes ubicaciones, necesito que una macro busque en un listado asi vertical referencias y me las consolide horizontalmente asi:

REFERENCIA UBICA 1 UBICA 2 UBICA 3 UBICA 4 UBICA 5 UBICA 6 .... Etc

A0007A D01E09C D01E18A D01E19C

A0014A CART D01E08E D01E18A D01E18B

A0014A24 CART D01E05D D01E16C

..... Etc

Porfavor ayudenme, con esta macro, gracias

1 respuesta

Respuesta
1

Te paso la solución, sigue mis pasos en este ejemplo:

-Tenemos esa tabla ocupando el rango A1:¿C? (Siendo la primera fila el encabezado y la coordenada de C la que sea)

-Ejecuta esta macro y todo listo:

Sub ejemplo()'por luismondelobuena = 0Range("a2").SelectDo While ActiveCell.Value <> ""ubica = ActiveCell.Addressfila = ActiveCell.Rowvalor = ActiveCell.Valuecontarsi = Application.WorksheetFunction.CountIf(Columns(ActiveCell.Column), valor)ActiveCell.Copy Destination:=Range("e65000").End(xlUp).Offset(1, 0)Range(Cells(fila, 3), Cells(fila + contarsi - 1, 3)).CopyRange("f65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=TrueRange(ubica).SelectDo While ActiveCell.Value = valorActiveCell.Offset(1, 0).SelectLoopLoopRange("a1").Copy Destination:=Range("e1")Range("f2").SelectDo While ActiveCell.Value <> ""maxima = Application.WorksheetFunction.CountA(Range(ActiveCell, ActiveCell.End(xlToRight)))If maxima > buena Thenbuena = maximaEnd IfActiveCell.Offset(1, 0).SelectLoopRange("f1").SelectFor c = 1 To buenaActiveCell.Value = "ubica" & cActiveCell.Offset(0, 1).SelectNextEnd Sub

recuerda finalizar

Parece que la web no funciona bien y copia la macro en una sola línea. Te la vuelvo a enviar:

Sub ejemplo()
'por luismondelo
buena = 0
Range("a2").Select
Do While ActiveCell.Value <> ""
ubica = ActiveCell.Address
fila = ActiveCell.Row
valor = ActiveCell.Value
contarsi = Application.WorksheetFunction.CountIf(Columns(ActiveCell.Column), valor)
ActiveCell.Copy Destination:=Range("e65000").End(xlUp).Offset(1, 0)
Range(Cells(fila, 3), Cells(fila + contarsi - 1, 3)).Copy
Range("f65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=True
Range(ubica).Select
Do While ActiveCell.Value = valor
ActiveCell.Offset(1, 0).Select
Loop
Loop
Range("a1").Copy Destination:=Range("e1")
Range("f2").Select
Do While ActiveCell.Value <> ""
maxima = Application.WorksheetFunction.CountA(Range(ActiveCell, ActiveCell.End(xlToRight)))
If maxima > buena Then
buena = maxima
End If
ActiveCell.Offset(1, 0).Select
Loop
Range("f1").Select
For c = 1 To buena
ActiveCell.Value = "ubica" & c
ActiveCell.Offset(0, 1).Select
Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro que busque un valor y copie la fila entera

Espero me puedan ayudar, Necesito hacer una macro que me busque un valor en la hoja 1 y copie toda la fila a la hoja 2 sin sobreescribir el ultimo registro, y una vez copiada la fila, la elimine de la hoja 1
1 respuesta

Una macros para colorear al mismo tiempo los datos repetidos

Necesito q la macros coloree los datos repetitivos y a su vez guarde en un contador cuantos datos repetitivos hay en la columna c Ejemplo A B C Fila 5 126 Fila 15 802 Fila 30 487 Fila 80 487 Fila 120 126 Fila 135 802 Fila 136 12356 Lo puese asi para...
1 respuesta

Macro excel eliminar duplicados

Necesitaría crear una macro que me eliminará los duplicados pero de manera que se quedara con aquel que tuviera un valor más elevado. Es decir en la columna A, tengo el nombre personas y en la columna B su edad. Quiero que me ordene la columna A por...
1 respuesta

Macro para filtrar 2 columnas y sumar cuando coincidan

Master mi problema es el siguiente tengo estas columnas. Cuenta débito crédito empresa 401 2 5 compras1 401 4 5 compras1 401 2 5 compras2 401 4 5 compras2 401 1 1 compras3 401 1 1 compras3 El problemas es q necesito una macro que me sume por empresas...
1 respuesta

Como poner dos funciones de macro en un solo botón.

Tengo un botón en una Hoja de Excel y en este asignado una macro, lo que necesito es que ejecute una segunda macro al momento de oprimir el mismo botón. ¿Se puede hacer esto?, por ejemplo, la macro que tengo me copia información de una hoja a otra,...
2 respuestas

Macro buscar y recopilar datos en Excel

Tengo un botón en una la Hoja1 de Excel e información en esta misma hoja de los rangos (A5:F100), en la columna A del rango (A1:A100) tengo un numero 0 (cero) o también el numero 1 (uno), lo que necesito es que al momento de oprimir el botón me...
2 respuestas

Macro recorra toda la columna y copie solo datos diferentes de vacío.

Deseo que la macro recorra toda la columna y copie solo datos diferentes de vacío en la columna siguiente. Los datos se copiaran en la siguiente columna consecutivamente sin celdas vacías. La columna que recorre la macro tiene celdas con formulas y...
1 respuesta

Comparar valores de columna A, si iguales, concatenar valores de B en C, si no copiar B en C sin con

Tengo un Excel, en la columna A hay valores repetidos desde 2 veces hasta N, y en la columna B hay valores diferentes para cada celda de A, independientemente de sus valores. Lo que tengo que hacer es mientras los valores de A sean iguales, hay que...
1 respuesta

Macro para buscar registros específicos y copiarlos a otra columna

Atentamente solicito su apoyo para la elaboración de una macro q me permita encontrar un registro especifico y copiarlo a la columna q le indique, es decir q busque todos los registros q encuentre en toda la columna q le indique con un inputbox,...
1 respuesta