Transponer base de datos automáticamente
Tengo un problemilla, estoy construyendo una base de datos como esta.
Tengo en total unos 6000 artículos y 12000 códigos de barra, y necesito que cada articulo sea una sola fila con una columna para cada código de barras, algo como esto.
¿Hay alguna forma de hacerlo autómata?
Tendría que hacerlo con una macro, si quieres te preparo una macro, envíame una muestra de tu archivo.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Ekaitz Argote Ortega” y el título de esta pregunta.
Gracias Dante,
Ya te he mandado el documento.
Saludos,
Te anexo la macro para transponer, deberás crear una hoja llamada "Hoja2", los datos deberán estar en una hoja llamada "Hoja1". El resultado quedará en la "Hoja2".
Sub TransponerDatos()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
h2.Cells.Clear
'
ant = h1.Cells(2, "A")
h1.Rows(1 & ":" & 2).Copy h2.Range("A1")
j = 2
For i = 3 To h1.Range("A" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "A") = ant Then
uc = h2.Cells(j, Columns.Count).End(xlToLeft).Column + 1
h2.Cells(j, uc) = h1.Cells(i, "D")
Else
j = j + 1
h1.Rows(i).Copy h2.Rows(j)
End If
ant = h1.Cells(i, "A")
Next
h2.Select
h2.Cells.EntireColumn.AutoFit
h2.[A1].Select
MsgBox "Transponer datos", vbInformation, "TERMINADO"
End SubSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: TransponerDatos
- Aceptar.
- Para ejecutarla dale click a la imagen.
Saludos. Dante Amor
