Help Macro Transpose Data

N

namariegaudi

New Member
Joined
Oct 14, 2016
Messages
14
Hi, Need some help to build a macro that copies and transposes data. The rows vary in "products" entered from 1 or up to 5. need to bring the data as many times as I have products per row. is there a way I can send a copy of the data source and the fields I need to help illustrate better what I need?

Here's a sample of the data if it's helpful. The relevant data needed is marked with red text.
<style type="text/css">p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Calibri; color: #ffffff}p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; text-align: right; font: 11.0px Calibri}p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Calibri}p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; text-align: right; font: 11.0px Calibri; min-height: 13.0px}table.t1 {border-collapse: collapse}td.td1 {background-color: #38d4d6; border-style: solid; border-width: 0.8px 1.0px 0.8px 0.8px; border-color: #a8d6ff #cbcbcb #a8d6ff #a8d6ff; padding: 0.0px 5.0px 0.0px 5.0px}td.td2 {background-color: #38d4d6; border-style: solid; border-width: 0.8px 1.0px 0.8px 1.0px; border-color: #a8d6ff #cbcbcb #a8d6ff #cbcbcb; padding: 0.0px 5.0px 0.0px 5.0px}td.td3 {background-color: #38d4d6; border-style: solid; border-width: 0.8px 0.8px 0.8px 1.0px; border-color: #a8d6ff #a8d6ff #a8d6ff #cbcbcb; padding: 0.0px 5.0px 0.0px 5.0px}td.td4 {background-color: #d4feff; border-style: solid; border-width: 0.8px 1.0px 0.8px 0.8px; border-color: #a8d6ff #cbcbcb #a8d6ff #a8d6ff; padding: 0.0px 5.0px 0.0px 5.0px}td.td5 {background-color: #d4feff; border-style: solid; border-width: 0.8px 1.0px 0.8px 1.0px; border-color: #a8d6ff #cbcbcb #a8d6ff #cbcbcb; padding: 0.0px 5.0px 0.0px 5.0px}td.td6 {background-color: #d4feff; border-style: solid; border-width: 0.8px 0.8px 0.8px 1.0px; border-color: #a8d6ff #a8d6ff #a8d6ff #cbcbcb; padding: 0.0px 5.0px 0.0px 5.0px}td.td7 {border-style: solid; border-width: 0.8px 1.0px 0.8px 0.8px; border-color: #a8d6ff #cbcbcb #a8d6ff #a8d6ff; padding: 0.0px 5.0px 0.0px 5.0px}td.td8 {border-style: solid; border-width: 0.8px 1.0px 0.8px 1.0px; border-color: #a8d6ff #cbcbcb #a8d6ff #cbcbcb; padding: 0.0px 5.0px 0.0px 5.0px}td.td9 {border-style: solid; border-width: 0.8px 0.8px 0.8px 1.0px; border-color: #a8d6ff #a8d6ff #a8d6ff #cbcbcb; padding: 0.0px 5.0px 0.0px 5.0px}</style>[TABLE="class: t1"]
<tbody>[TR]
[TD="class: td1"]ID
[/TD]
[TD="class: td2"]Fecha Real
[/TD]
[TD="class: td2"]Tipo de Orden
[/TD]
[TD="class: td2"]Proveedor
[/TD]
[TD="class: td2"]Proveeduría
[/TD]
[TD="class: td2"]Condiciones
[/TD]
[TD="class: td2"]Moneda
[/TD]
[TD="class: td2"]Estatus Orden
[/TD]
[TD="class: td2"]Unidad de Medida
[/TD]
[TD="class: td2"]Cotizacion
[/TD]
[TD="class: td2"]Producto_01
[/TD]
[TD="class: td2"]Producto_02
[/TD]
[TD="class: td2"]Producto_03
[/TD]
[TD="class: td2"]Producto_04
[/TD]
[TD="class: td2"]Producto_05
[/TD]
[TD="class: td2"]Cantidad_01
[/TD]
[TD="class: td2"]Cantidad_02
[/TD]
[TD="class: td2"]Cantidad_03
[/TD]
[TD="class: td2"]Cantidad_04
[/TD]
[TD="class: td2"]Cantidad_05
[/TD]
[TD="class: td2"]Unidad_01
[/TD]
[TD="class: td2"]Unidad_02
[/TD]
[TD="class: td2"]Unidad_03
[/TD]
[TD="class: td2"]Unidad_04
[/TD]
[TD="class: td2"]Unidad_05
[/TD]
[TD="class: td2"]PU_01
[/TD]
[TD="class: td2"]PU_02
[/TD]
[TD="class: td2"]PU_03
[/TD]
[TD="class: td2"]PU_04
[/TD]
[TD="class: td2"]PU_05
[/TD]
[TD="class: td2"]ST_01
[/TD]
[TD="class: td2"]ST_02
[/TD]
[TD="class: td2"]ST_03
[/TD]
[TD="class: td2"]ST_04
[/TD]
[TD="class: td2"]ST_05
[/TD]
[TD="class: td2"]IVA
[/TD]
[TD="class: td2"]Total
[/TD]
[TD="class: td2"]Año
[/TD]
[TD="class: td2"]Mes
[/TD]
[TD="class: td2"]Contador
[/TD]
[TD="class: td2"]Contador PO
[/TD]
[TD="class: td2"]Entrega
[/TD]
[TD="class: td2"]Numero de Orden
[/TD]
[TD="class: td2"]Fecha Previa
[/TD]
[TD="class: td2"]Creado
[/TD]
[TD="class: td2"]Elaboracion
[/TD]
[TD="class: td2"]Ruta de acceso
[/TD]
[TD="class: td3"]Tipo de elemento
[/TD]
[/TR]
[TR]
[TD="class: td4"]43
[/TD]
[TD="class: td5"]08/01/2017
[/TD]
[TD="class: td5"]Producto
[/TD]
[TD="class: td5"]Lubritalia S.p.A. Localita San Marco dei Lupini 74019 Palagiano (TA) Italia
[/TD]
[TD="class: td5"]Foraneo
[/TD]
[TD="class: td5"]90
[/TD]
[TD="class: td5"]Euro
[/TD]
[TD="class: td5"]Abierta
[/TD]
[TD="class: td5"]Kilos
[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5, colspan: 2"]Lubro Clean Lito 010
[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]112
[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]17,920
[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]1.65
[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]29568
[/TD]
[TD="class: td5"][/TD]
[TD="class: td5"][/TD]
[TD="class: td5"][/TD]
[TD="class: td5"][/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]29568
[/TD]
[TD="class: td5"]2017
[/TD]
[TD="class: td5"]ago.
[/TD]
[TD="class: td5"][/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]08/01/2017
[/TD]
[TD="class: td5"]09/07/2017 17:31
[/TD]
[TD="class: td5"]2017-09-07
[/TD]
[TD="class: td5"]Lists/LBIMX_Ordenes
[/TD]
[TD="class: td6"]Item
[/TD]
[/TR]
[TR]
[TD="class: td7"]80
[/TD]
[TD="class: td8"]04/23/2018
[/TD]
[TD="class: td8"]Producto
[/TD]
[TD="class: td8"]Lubritalia S.p.A. Localita San Marco dei Lupini 74019 Palagiano (TA) Italia
[/TD]
[TD="class: td8"]Foraneo
[/TD]
[TD="class: td8"]90
[/TD]
[TD="class: td8"]Euro
[/TD]
[TD="class: td8"]Abierta
[/TD]
[TD="class: td8"]Kilos
[/TD]
[TD="class: td8"]

[/TD]
[TD="class: td8"]Ester Lube 50/30 ISO VG
[/TD]
[TD="class: td8"]Lubro Grease PB
[/TD]
[TD="class: td8"]Lubro Solv LP
[/TD]
[TD="class: td8"]Lubro Emul 96
[/TD]
[TD="class: td8"]Lubro Drawing 84/IM
[/TD]
[TD="class: td8"]1
[/TD]
[TD="class: td8"]2
[/TD]
[TD="class: td8"]16
[/TD]
[TD="class: td8"]64
[/TD]
[TD="class: td8"]12
[/TD]
[TD="class: td8"]180
[/TD]
[TD="class: td8"]360
[/TD]
[TD="class: td8"]2,560
[/TD]
[TD="class: td8"]11,520
[/TD]
[TD="class: td8"]2,160
[/TD]
[TD="class: td8"]2.52
[/TD]
[TD="class: td8"]3.49
[/TD]
[TD="class: td8"]1.94
[/TD]
[TD="class: td8"]2.46
[/TD]
[TD="class: td8"]2.7
[/TD]
[TD="class: td8"]453.6
[/TD]
[TD="class: td8"]1256.4
[/TD]
[TD="class: td8"]4966.4
[/TD]
[TD="class: td8"]28339.2
[/TD]
[TD="class: td8"]5832
[/TD]
[TD="class: td8"]

[/TD]
[TD="class: td8"]40847.6
[/TD]
[TD="class: td8"]2018
[/TD]
[TD="class: td8"]abr.
[/TD]
[TD="class: td8"][/TD]
[TD="class: td8"]5
[/TD]
[TD="class: td8"]Inmediata
[/TD]
[TD="class: td8"]LME-
[/TD]
[TD="class: td8"]

[/TD]
[TD="class: td8"]04/23/2018 10:58
[/TD]
[TD="class: td8"]2018-04-23
[/TD]
[TD="class: td8"]Lists/LBIMX_Ordenes
[/TD]
[TD="class: td9"]Item
[/TD]
[/TR]
[TR]
[TD="class: td4"]81
[/TD]
[TD="class: td5"]04/23/2018
[/TD]
[TD="class: td5"]Producto
[/TD]
[TD="class: td5"]Lubritalia S.p.A. Localita San Marco dei Lupini 74019 Palagiano (TA) Italia
[/TD]
[TD="class: td5"]Foraneo
[/TD]
[TD="class: td5"]90
[/TD]
[TD="class: td5"]Euro
[/TD]
[TD="class: td5"]Abierta
[/TD]
[TD="class: td5"]Kilos
[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5, colspan: 2"]Lubro Drawing N/100
[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]12
[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]2,160
[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]2.75
[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]5940
[/TD]
[TD="class: td5"][/TD]
[TD="class: td5"][/TD]
[TD="class: td5"][/TD]
[TD="class: td5"][/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]5940
[/TD]
[TD="class: td5"]2018
[/TD]
[TD="class: td5"]abr.
[/TD]
[TD="class: td5"][/TD]
[TD="class: td5"]1
[/TD]
[TD="class: td5"]Inmediata
[/TD]
[TD="class: td5"]LME-
[/TD]
[TD="class: td5"]

[/TD]
[TD="class: td5"]04/23/2018 10:58
[/TD]
[TD="class: td5"]2018-04-23
[/TD]
[TD="class: td5"]Lists/LBIMX_Ordenes
[/TD]
[TD="class: td6"]Item
[/TD]
[/TR]
[TR]
[TD="class: td7"]34
[/TD]
[TD="class: td8"]07/31/2017
[/TD]
[TD="class: td8"]Consumible
[/TD]
[TD="class: td8"]Desarrollo Esp. Quimicas S.A. de C.V.
[/TD]
[TD="class: td8"]Local
[/TD]
[TD="class: td8"][/TD]
[TD="class: td8"]MXN
[/TD]
[TD="class: td8"]Abierta
[/TD]
[TD="class: td8"]Pieza
[/TD]
[TD="class: td8"]EUT2636
[/TD]
[TD="class: td8"]Agua Bidestilada
[/TD]
[TD="class: td8"]Agua Destilada
[/TD]
[TD="class: td8"]Acido Clorhidrico 2.5 LT Concentrado
[/TD]
[TD="class: td8"]Eter Etílico
[/TD]
[TD="class: td8"]Alcohol Etilico al 96% de 20 LT
[/TD]
[TD="class: td8"]1
[/TD]
[TD="class: td8"]1
[/TD]
[TD="class: td8"]3
[/TD]
[TD="class: td8"]3
[/TD]
[TD="class: td8"]1
[/TD]
[TD="class: td8"]1
[/TD]
[TD="class: td8"]1
[/TD]
[TD="class: td8"]3
[/TD]
[TD="class: td8"]3
[/TD]
[TD="class: td8"]1
[/TD]
[TD="class: td8"]160
[/TD]
[TD="class: td8"]140
[/TD]
[TD="class: td8"]351
[/TD]
[TD="class: td8"]1010
[/TD]
[TD="class: td8"]520
[/TD]
[TD="class: td8"]160
[/TD]
[TD="class: td8"]140
[/TD]
[TD="class: td8"]1053
[/TD]
[TD="class: td8"]3030
[/TD]
[TD="class: td8"]520
[/TD]
[TD="class: td8"]784.48
[/TD]
[TD="class: td8"]5687.48
[/TD]
[TD="class: td8"]2017
[/TD]
[TD="class: td8"]jul.
[/TD]
[TD="class: td8"][/TD]
[TD="class: td8"]

[/TD]
[TD="class: td8"]

[/TD]
[TD="class: td8"]

[/TD]
[TD="class: td8"]

[/TD]
[TD="class: td8"]07/31/2017 11:28
[/TD]
[TD="class: td8"]2017-07-31
[/TD]
[TD="class: td8"]Lists/LBIMX_Ordenes
[/TD]
[TD="class: td9"]Item
[/TD]
[/TR]
</tbody>[/TABLE]

Output should be like this
<style type="text/css">p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Calibri; color: #ffffff}p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; text-align: right; font: 11.0px Calibri}p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Calibri}p.p4 {margin: 0.0px 0.0px 0.0px 0.0px; text-align: right; font: 11.0px Calibri; min-height: 13.0px}table.t1 {border-collapse: collapse}td.td1 {background-color: #38d4d6; border-style: solid; border-width: 0.8px 1.0px 0.8px 0.8px; border-color: #a8d6ff #cbcbcb #a8d6ff #a8d6ff; padding: 0.0px 5.0px 0.0px 5.0px}td.td2 {background-color: #38d4d6; border-style: solid; border-width: 0.8px 1.0px 0.8px 1.0px; border-color: #a8d6ff #cbcbcb #a8d6ff #cbcbcb; padding: 0.0px 5.0px 0.0px 5.0px}td.td3 {border-style: solid; border-width: 1.0px 1.0px 1.0px 1.0px; border-color: #cbcbcb #cbcbcb #cbcbcb #cbcbcb; padding: 0.0px 5.0px 0.0px 5.0px}</style>[TABLE="class: t1"]
<tbody>[TR]
[TD="class: td1"]ID
[/TD]
[TD="class: td2"]Fecha Real
[/TD]
[TD="class: td2"]Tipo de Orden
[/TD]
[TD="class: td2"]Proveedor
[/TD]
[TD="class: td2"]Proveeduría
[/TD]
[TD="class: td2"]Moneda
[/TD]
[TD="class: td2"]Estatus Orden
[/TD]
[TD="class: td2"]Unidad de Medida
[/TD]
[TD="class: td2"]Producto_01
[/TD]
[TD="class: td2"]Cantidad_01
[/TD]
[TD="class: td2"]Unidad_01
[/TD]
[TD="class: td2"]PU_01
[/TD]
[TD="class: td2"]ST_01
[/TD]
[TD="class: td2"]IVA
[/TD]
[TD="class: td2"]Total
[/TD]
[TD="class: td2"]Año
[/TD]
[TD="class: td2"]Mes
[/TD]
[/TR]
[TR]
[TD="class: td3"]43
[/TD]
[TD="class: td3"]08/01/2017
[/TD]
[TD="class: td3"]Producto
[/TD]
[TD="class: td3"]Lubritalia S.p.A. Localita San Marco dei Lupini 74019 Palagiano (TA) Italia
[/TD]
[TD="class: td3"]Foraneo
[/TD]
[TD="class: td3"]Euro
[/TD]
[TD="class: td3"]Abierta
[/TD]
[TD="class: td3"]Kilos
[/TD]
[TD="class: td3"]Lubro Clean Lito 010
[/TD]
[TD="class: td3"]112
[/TD]
[TD="class: td3"]17920
[/TD]
[TD="class: td3"]1.65
[/TD]
[TD="class: td3"]29568
[/TD]
[TD="class: td3"]

[/TD]
[TD="class: td3"]29568
[/TD]
[TD="class: td3"]2017
[/TD]
[TD="class: td3"]ago.
[/TD]
[/TR]
[TR]
[TD="class: td3"]80
[/TD]
[TD="class: td3"]04/23/2018
[/TD]
[TD="class: td3"]Producto
[/TD]
[TD="class: td3"]Lubritalia S.p.A. Localita San Marco dei Lupini 74019 Palagiano (TA) Italia
[/TD]
[TD="class: td3"]Foraneo
[/TD]
[TD="class: td3"]Euro
[/TD]
[TD="class: td3"]Abierta
[/TD]
[TD="class: td3"]Kilos
[/TD]
[TD="class: td3"]Ester Lube 50/30 ISO VG
[/TD]
[TD="class: td3"]1
[/TD]
[TD="class: td3"]180
[/TD]
[TD="class: td3"]2.52
[/TD]
[TD="class: td3"]453.6
[/TD]
[TD="class: td3"]

[/TD]
[TD="class: td3"]40847.6
[/TD]
[TD="class: td3"]2018
[/TD]
[TD="class: td3"]abr.
[/TD]
[/TR]
[TR]
[TD="class: td3"]80
[/TD]
[TD="class: td3"]04/23/2018
[/TD]
[TD="class: td3"]Producto
[/TD]
[TD="class: td3"]Lubritalia S.p.A. Localita San Marco dei Lupini 74019 Palagiano (TA) Italia
[/TD]
[TD="class: td3"]Foraneo
[/TD]
[TD="class: td3"]Euro
[/TD]
[TD="class: td3"]Abierta
[/TD]
[TD="class: td3"]Kilos
[/TD]
[TD="class: td3"]Lubro Grease PB
[/TD]
[TD="class: td3"]2
[/TD]
[TD="class: td3"]360
[/TD]
[TD="class: td3"]3.49
[/TD]
[TD="class: td3"]1256.4
[/TD]
[TD="class: td3"]

[/TD]
[TD="class: td3"]40847.6
[/TD]
[TD="class: td3"]2018
[/TD]
[TD="class: td3"]abr.
[/TD]
[/TR]
[TR]
[TD="class: td3"]80
[/TD]
[TD="class: td3"]04/23/2018
[/TD]
[TD="class: td3"]Producto
[/TD]
[TD="class: td3"]Lubritalia S.p.A. Localita San Marco dei Lupini 74019 Palagiano (TA) Italia
[/TD]
[TD="class: td3"]Foraneo
[/TD]
[TD="class: td3"]Euro
[/TD]
[TD="class: td3"]Abierta
[/TD]
[TD="class: td3"]Kilos
[/TD]
[TD="class: td3"]Lubro Solv LP
[/TD]
[TD="class: td3"]16
[/TD]
[TD="class: td3"]2560
[/TD]
[TD="class: td3"]1.94
[/TD]
[TD="class: td3"]4966.4
[/TD]
[TD="class: td3"]

[/TD]
[TD="class: td3"]40847.6
[/TD]
[TD="class: td3"]2018
[/TD]
[TD="class: td3"]abr.
[/TD]
[/TR]
[TR]
[TD="class: td3"]80
[/TD]
[TD="class: td3"]04/23/2018
[/TD]
[TD="class: td3"]Producto
[/TD]
[TD="class: td3"]Lubritalia S.p.A. Localita San Marco dei Lupini 74019 Palagiano (TA) Italia
[/TD]
[TD="class: td3"]Foraneo
[/TD]
[TD="class: td3"]Euro
[/TD]
[TD="class: td3"]Abierta
[/TD]
[TD="class: td3"]Kilos
[/TD]
[TD="class: td3"]Lubro Emul 96
[/TD]
[TD="class: td3"]64
[/TD]
[TD="class: td3"]11520
[/TD]
[TD="class: td3"]2.46
[/TD]
[TD="class: td3"]28339.2
[/TD]
[TD="class: td3"]

[/TD]
[TD="class: td3"]40847.6
[/TD]
[TD="class: td3"]2018
[/TD]
[TD="class: td3"]abr.
[/TD]
[/TR]
[TR]
[TD="class: td3"]80
[/TD]
[TD="class: td3"]04/23/2018
[/TD]
[TD="class: td3"]Producto
[/TD]
[TD="class: td3"]Lubritalia S.p.A. Localita San Marco dei Lupini 74019 Palagiano (TA) Italia
[/TD]
[TD="class: td3"]Foraneo
[/TD]
[TD="class: td3"]Euro
[/TD]
[TD="class: td3"]Abierta
[/TD]
[TD="class: td3"]Kilos
[/TD]
[TD="class: td3"]Lubro Drawing 84/IM
[/TD]
[TD="class: td3"]12
[/TD]
[TD="class: td3"]2160
[/TD]
[TD="class: td3"]2.7
[/TD]
[TD="class: td3"]5832
[/TD]
[TD="class: td3"]

[/TD]
[TD="class: td3"]40847.6
[/TD]
[TD="class: td3"]2018
[/TD]
[TD="class: td3"]abr.
[/TD]
[/TR]
[TR]
[TD="class: td3"]81
[/TD]
[TD="class: td3"]04/23/2018
[/TD]
[TD="class: td3"]Producto
[/TD]
[TD="class: td3"]Lubritalia S.p.A. Localita San Marco dei Lupini 74019 Palagiano (TA) Italia
[/TD]
[TD="class: td3"]Foraneo
[/TD]
[TD="class: td3"]Euro
[/TD]
[TD="class: td3"]Abierta
[/TD]
[TD="class: td3"]Kilos
[/TD]
[TD="class: td3"]Lubro Drawing N/100
[/TD]
[TD="class: td3"]12
[/TD]
[TD="class: td3"]2160
[/TD]
[TD="class: td3"]2.75
[/TD]
[TD="class: td3"]5940
[/TD]
[TD="class: td3"]

[/TD]
[TD="class: td3"]5940
[/TD]
[TD="class: td3"]2018
[/TD]
[TD="class: td3"]abr.
[/TD]
[/TR]
[TR]
[TD="class: td3"]34
[/TD]
[TD="class: td3"]07/31/2017
[/TD]
[TD="class: td3"]Consumible
[/TD]
[TD="class: td3"]Desarrollo Esp. Quimicas S.A. de C.V.
[/TD]
[TD="class: td3"]Local
[/TD]
[TD="class: td3"]MXN
[/TD]
[TD="class: td3"]Abierta
[/TD]
[TD="class: td3"]Pieza
[/TD]
[TD="class: td3"]Agua Bidestilada
[/TD]
[TD="class: td3"]1
[/TD]
[TD="class: td3"]1
[/TD]
[TD="class: td3"]160
[/TD]
[TD="class: td3"]160
[/TD]
[TD="class: td3"]784.48
[/TD]
[TD="class: td3"]5687.48
[/TD]
[TD="class: td3"]2017
[/TD]
[TD="class: td3"]jul.
[/TD]
[/TR]
[TR]
[TD="class: td3"]34
[/TD]
[TD="class: td3"]07/31/2017
[/TD]
[TD="class: td3"]Consumible
[/TD]
[TD="class: td3"]Desarrollo Esp. Quimicas S.A. de C.V.
[/TD]
[TD="class: td3"]Local
[/TD]
[TD="class: td3"]MXN
[/TD]
[TD="class: td3"]Abierta
[/TD]
[TD="class: td3"]Pieza
[/TD]
[TD="class: td3"]Agua Destilada
[/TD]
[TD="class: td3"]1
[/TD]
[TD="class: td3"]1
[/TD]
[TD="class: td3"]140
[/TD]
[TD="class: td3"]140
[/TD]
[TD="class: td3"]784.48
[/TD]
[TD="class: td3"]5687.48
[/TD]
[TD="class: td3"]2017
[/TD]
[TD="class: td3"]jul.
[/TD]
[/TR]
[TR]
[TD="class: td3"]34
[/TD]
[TD="class: td3"]07/31/2017
[/TD]
[TD="class: td3"]Consumible
[/TD]
[TD="class: td3"]Desarrollo Esp. Quimicas S.A. de C.V.
[/TD]
[TD="class: td3"]Local
[/TD]
[TD="class: td3"]MXN
[/TD]
[TD="class: td3"]Abierta
[/TD]
[TD="class: td3"]Pieza
[/TD]
[TD="class: td3"]Acido Clorhidrico 2.5 LT Concentrado
[/TD]
[TD="class: td3"]3
[/TD]
[TD="class: td3"]3
[/TD]
[TD="class: td3"]351
[/TD]
[TD="class: td3"]1053
[/TD]
[TD="class: td3"]784.48
[/TD]
[TD="class: td3"]5687.48
[/TD]
[TD="class: td3"]2017
[/TD]
[TD="class: td3"]jul.
[/TD]
[/TR]
[TR]
[TD="class: td3"]34
[/TD]
[TD="class: td3"]07/31/2017
[/TD]
[TD="class: td3"]Consumible
[/TD]
[TD="class: td3"]Desarrollo Esp. Quimicas S.A. de C.V.
[/TD]
[TD="class: td3"]Local
[/TD]
[TD="class: td3"]MXN
[/TD]
[TD="class: td3"]Abierta
[/TD]
[TD="class: td3"]Pieza
[/TD]
[TD="class: td3"]Eter Etílico
[/TD]
[TD="class: td3"]3
[/TD]
[TD="class: td3"]3
[/TD]
[TD="class: td3"]1010
[/TD]
[TD="class: td3"]3030
[/TD]
[TD="class: td3"]784.48
[/TD]
[TD="class: td3"]5687.48
[/TD]
[TD="class: td3"]2017
[/TD]
[TD="class: td3"]jul.
[/TD]
[/TR]
[TR]
[TD="class: td3"]34
[/TD]
[TD="class: td3"]07/31/2017
[/TD]
[TD="class: td3"]Consumible
[/TD]
[TD="class: td3"]Desarrollo Esp. Quimicas S.A. de C.V.
[/TD]
[TD="class: td3"]Local
[/TD]
[TD="class: td3"]MXN
[/TD]
[TD="class: td3"]Abierta
[/TD]
[TD="class: td3"]Pieza
[/TD]
[TD="class: td3"]Alcohol Etilico al 96% de 20 LT
[/TD]
[TD="class: td3"]1
[/TD]
[TD="class: td3"]1
[/TD]
[TD="class: td3"]520
[/TD]
[TD="class: td3"]520
[/TD]
[TD="class: td3"]784.48
[/TD]
[TD="class: td3"]5687.48
[/TD]
[TD="class: td3"]2017
[/TD]
[TD="class: td3"]jul.
[/TD]
[/TR]
</tbody>[/TABLE]
 

Excel Facts

Test for Multiple Conditions in IF?
Use AND(test, test, test, test) or OR(test, test, test, ...) as the logical_test argument of IF.
Sort by date Sort by votes
How about
Code: 
Sub CopyTrans()
   Dim Cl As Range
   Dim Qty As Long
   Dim i As Long, col As Long, j As Long
   Dim ary() As Variant
   Dim lr As Long
   
   Columns(6).Hidden = True
   For Each Cl In Range("A2", Range("A" & Rows.Count).End(xlUp))
      Qty = Application.CountA(Cl.Offset(, 10).Resize(, 5))
      ReDim ary(1 To 5, 1 To Qty)
      For i = 1 To Qty
         col = 10 + i
         For j = 1 To 5
            ary(j, i) = Cells(Cl.Row, col)
            col = col + 5
         Next j
      Next i
      lr = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
      Cl.Resize(, 9).SpecialCells(xlVisible).Copy Sheets("Sheet2").Range("A" & lr).Resize(Qty)
      Sheets("Sheet2").Range("I" & lr).Resize(Qty, 5).Value = Application.Transpose(ary)
      Cl.Offset(, 35).Resize(, 4).Copy Sheets("Sheet2").Range("N" & lr).Resize(Qty)
   Next Cl

End Sub
 
Upvote 0
Cross posted https://www.excelforum.com/excel-pr...spose-data-into-multiple-row.html#post4901417

Cross-Posting
While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.
 
Upvote 0
Hi, I posted a new request a few weeks back, but can't seem to find it. Should I wait for an answer or repost on a new thread?
 
Upvote 0
Did you post that request to this site?
 
Upvote 0
Have a look to see if you posted it on ExcelForum.
If you did & want to start a thread here, just make sure that you include a link to the original question & also post a link there to say youve asked it here as well.
 
Upvote 0
I posted this same request on ExcelForum "Copy & Transpose Data from 2 Different Table into 2 Different sheets" thread HERE. I really do need some help here...regards
 
Last edited by a moderator:
Upvote 0
You must log in or register to reply here.

Similar threads

N
  • Question Question
Help coding Excel Macro
2
Replies
12
Views
1K
Fluff
Fluff
T
  • Question Question
use GETPIVOTDATA to get specific grandtotals
Replies
0
Views
465
taimy20
T
S
  • Question Question
Transpose Columns to Rows by blank
2
Replies
10
Views
1K
Mike Szczesny
M

Forum statistics

Threads
1,223,904
Messages
6,175,295
Members
452,631
Latest member
a_potato

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top