Transponer celdas salteadas

Hola,
Tengo un problema al transponer una lista del tipo que te adjunto:
Cód         Name     Cant Price Proveedor1 Cant Price Proveedor2 Cant  Price   Proveedor3
1002748 XXXXXX 100 42 20198 50 47 38004 25 50 23784 1000031 XXXXXX 100 47 40267 50 42 50507 20 40 15784 1000219 XXXXXX 100 42 20198 50 47 38004 25 50 23784 1000213 XXXXXX 100 47 40267 50 42 50507 20 40 15784
Como puedes ver se repiten 3 veces los campos cant, price, proveedor. Lo que estoy intentando hacer es que en una hoja nueva, introducir el campo cod y que inmediatamente debajo me aparezcan los proveedores por filas de tal forma que quede así:
1002748 XXXXXX
20198
38004
23784
De tal forma que haría un transponer pero teniendo en cuenta los saltos existentes en las columnas.
Espero haberlo explicado bien. Gracias por tu ayuda.
Saludos,

1 Respuesta

Respuesta
1
Dibujas un botón en la hoja2 y le asignas este código:
Private Sub CommandButton1_Click()
Dim cod, nombre, pro1, pro2, pro3 As String
Sheets("Hoja1").Select
ActiveSheet.Range("A2").Select
Do While ActiveCell.Value <> ""
cod = ActiveCell.Value
nombre = ActiveCell.Offset(0, 1).Value
pro1 = ActiveCell.Offset(0, 4).Value
pro2 = ActiveCell.Offset(0, 7).Value
pro3 = ActiveCell.Offset(0, 10).Value
ActiveCell.Offset(1, 0).Select
Sheets("Hoja2").Select
Range("A1").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = cod
ActiveCell.Offset(0, 1).Value = nombre
ActiveCell.Offset(1, 0).Value = pro1
ActiveCell.Offset(2, 0).Value = pro2
ActiveCell.Offset(3, 0).Value = pro3
Sheets("Hoja1").Select
Loop
End Sub
Tienes que poner las cabeceras en la hoja2 de COD y NAME en las Col A y B y te llevara todos los valores de la forma que quieres con pulsar el botón, he entendido que en tu hoja1 las Col que utilizas son Cod=A ... Proveedor3=K, algo imprescindible es que no haya filas vacías.
Prueba y me cuentas, si te ha servido puntúa, comenta y finaliza la consulta. Gracias.
>Un saludo
>Julio
Funciona perfectamente!
Muchas gracias por tu ayuda. Supongo que algún otro día tendré que recurrir a tu sabiduría.
Un saludo,
Javier

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Crear ordenes de trabajo en base a una lista

Tengo una tabla donde los usuarios van a ingresar fila por fila algunas tareas que van a ir enumeradas, ademas de otros datos, como fecha, prioridad, etc. Por cada tarea necesito que se elabora una orden de trabajo nueva que contenga todos los datos...
1 respuesta

Buscar V usando una macro

Intento realizar una búsqueda vertical en un numero indeterminado de datos. La idea es que cuando yo ingrese un valor en la casilla "F1" de la hoja N° 1 me de los datos almacenados en la hoja 2 dispuestos en la calumna AyB(estos datos los puedo...
1 respuesta

Como pasar los datos repetidos de una hoja a otra

Quisiera me ayudaran con esto: El problema es que no se como hacer para que los datos repetidos en una hoja los pueda pasar a otra mediante una macro de excel lo que quiero hacer es lo siguiente: tengo una hoja1 en donde tengo un concentrado de...
1 respuesta

Macro para Comprar dos Rangos e insertar una fila

Como puedo construir una macro que compare dos rangos de fechas en hojas diferentes teniendo en cuenta que en la hoja1 tengo el rango del 15/07/2009 hasta el 16/08/2009 y en la hoja2 tengo valores entre ese rango, cuando se realice la comparación en...
1 respuesta

Función buscarV con macros

Señores: Revisando el portal encontré la siguiente macro: Sub Traer() Application.ScreenUpdating = False Sheets("hoja2").Select Range("A1").Select Posicion = 1 While ActiveCell.Value <> "" direccion = ActiveCell.Value Sheets("hoja1").Select...
1 respuesta

"VLOOKUP" la segunda y la tercera coincidencia

Buscando un dato con "VLOOKUP" me da la primera coincidencia pero tiene 3 coincidencias como pedir la segunda y la tercera
1 respuesta

Buscar lista de valores en otra lista

Resulta que tengo una lista de una sola columna cuyos valores tengo que buscar en otra lista mas grande que tengo en otra hoja, esta con dos columnas, la búsqueda es en la segunda columna. Esto necesitaría hacerlo en la tercera hoja de manera que me...
1 respuesta

¿Puedo extraer el valor de una misma celda en varias hojas diferentes y que aparezca en otra hoja?

Quería saber si existe alguna función en excel con la que pueda extraer el valor de una misma celda pero de varias hojas diferentes y que aparezca en otra hoja. Por ejemplo si tengo Hoja1, Hoja2 y Hoja3 tengo que hacer que el valor de la celda A1 de...
1 respuesta

Cuando intento asignar el valor de un textbox a una celda excel me envía un error

Sucede que cuando intento asignar el valor de un textbox a una celda excel me envia un error y lo hago de la siguiente manera Sub Agregar() Sheets("Base").Select Range("B8").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select...
1 respuesta