Hello all,
I have been coming the archives of many forums trying to find a good, effective and safe solution for changing the layout of an SAP report exported to Excel 2010. It takes months and months to get them to provide us with information and while we have asked for raw data they seem hesitant to give it to us. They always want to provide us with a report. I am not proficient with VBA but can get around. I do not understand a lot about looping.
What I need to do it to take the spreadsheet and insert twelve rows after each existing record, copy the information from columns A:L into the blanks beneath each populated row. I do that often with GoTo, Special, Find Blanks and a simple formula like =A2. The real problem lies with M:X. The reports is given with twelve months of data laid out in each column. Row 1 is the Date, row 2 has the actual values. I want to copy and transpose the dates into a new field in column Y for each populated row and name it Purchase Date beginning with the first populated record and then bring the corresponding values for each date into column Z naming it Purchase Amount. If you can help I would greatly appreciate it. Sample data is below.
[TABLE="width: 2070"]
<tbody>[TR]
[TD]VENDOR NUMBER
[/TD]
[TD]VENDOR NAME
[/TD]
[TD]MATERIAL
[/TD]
[TD]DESCRIPTION
[/TD]
[TD]VENDOR PART NUMBER
[/TD]
[TD]UOM
[/TD]
[TD]Lead Time
[/TD]
[TD]QTY ON ORDER
[/TD]
[TD]QTY FCST (12 MO)
[/TD]
[TD]TOTAL QTY
[/TD]
[TD]Buyer
[/TD]
[TD]MATERIAL CONTROLLER
[/TD]
[TD]Oct-16
[/TD]
[TD]Nov-16
[/TD]
[TD]Dec-16
[/TD]
[TD]Jan-17
[/TD]
[TD]Feb-17
[/TD]
[TD]Mar-17
[/TD]
[TD]Apr-17
[/TD]
[TD]May-17
[/TD]
[TD]Jun-17
[/TD]
[TD]Jul-17
[/TD]
[TD]Aug-17
[/TD]
[TD]Sep-17
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6000060
[/TD]
[TD]RES MEP-HYPERCEL
[/TD]
[TD]12035
[/TD]
[TD]L
[/TD]
[TD]169
[/TD]
[TD]200
[/TD]
[TD]360
[/TD]
[TD]560
[/TD]
[TD]606
[/TD]
[TD]R10
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]130
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]70
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]150
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]210
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6000124
[/TD]
[TD]FLT MEMBRANE CASSETTE 30K MWCO
[/TD]
[TD]OS030C26
[/TD]
[TD]EA
[/TD]
[TD]61
[/TD]
[TD]195
[/TD]
[TD]0
[/TD]
[TD]195
[/TD]
[TD]606
[/TD]
[TD]R06
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]95
[/TD]
[TD]40
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]60
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6000165
[/TD]
[TD]FLT CART 5" 0.2UM HYDROPHILIC
[/TD]
[TD]AB05DFL2PH4
[/TD]
[TD]EA
[/TD]
[TD]50
[/TD]
[TD]0
[/TD]
[TD]24
[/TD]
[TD]24
[/TD]
[TD]606
[/TD]
[TD]R06
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]6
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]6
[/TD]
[TD]12
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6000167
[/TD]
[TD]FLT CASSETE 30K MWCO 1FT2
[/TD]
[TD]OS030C12
[/TD]
[TD]EA
[/TD]
[TD]62
[/TD]
[TD]0
[/TD]
[TD]12
[/TD]
[TD]12
[/TD]
[TD]606
[/TD]
[TD]R06
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]12
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6000196
[/TD]
[TD]FLT CAPSULE 0.2UM 500CM2 STERI
[/TD]
[TD]12991
[/TD]
[TD]EA
[/TD]
[TD]74
[/TD]
[TD]0
[/TD]
[TD]12
[/TD]
[TD]12
[/TD]
[TD]606
[/TD]
[TD]R06
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]12
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6000414
[/TD]
[TD]FLT MEM CASETTE OMEGA T-SERIES
[/TD]
[TD]OS010T06
[/TD]
[TD]EA
[/TD]
[TD]64
[/TD]
[TD]61
[/TD]
[TD]14
[/TD]
[TD]75
[/TD]
[TD]606
[/TD]
[TD]R06
[/TD]
[TD]6
[/TD]
[TD]2
[/TD]
[TD]33
[/TD]
[TD]20
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]14
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6001060
[/TD]
[TD]FLT VENT 0.2UM PTFE HYDROPHOBI
[/TD]
[TD]4251
[/TD]
[TD]EA
[/TD]
[TD]70
[/TD]
[TD]0
[/TD]
[TD]59
[/TD]
[TD]59
[/TD]
[TD]606
[/TD]
[TD]R06
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]17
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]15
[/TD]
[TD]0
[/TD]
[TD]27
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6001345
[/TD]
[TD]FLT T-SERIES 30KD MWCO 2.5M2 M
[/TD]
[TD]OS030T26
[/TD]
[TD]EA
[/TD]
[TD]64
[/TD]
[TD]36
[/TD]
[TD]26
[/TD]
[TD]62
[/TD]
[TD]606
[/TD]
[TD]R06
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]36
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]8
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]18
[/TD]
[/TR]
[TR]
[TD]103393
[/TD]
[TD]Dill Palmer Instrument Co
[/TD]
[TD]6001166
[/TD]
[TD]ADP Y CONNECTOR 3/8" BARB KYNA
[/TD]
[TD]WU-30703-93
[/TD]
[TD]EA
[/TD]
[TD]19
[/TD]
[TD]0
[/TD]
[TD]760
[/TD]
[TD]760
[/TD]
[TD]606
[/TD]
[TD]R04
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]230
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]220
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]310
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]104008
[/TD]
[TD]Signal-Abbot Inc.
[/TD]
[TD]6000055
[/TD]
[TD]CHM TRANS-4 5-DIHYDROXY-1 2-DI
[/TD]
[TD]D3511
[/TD]
[TD]G
[/TD]
[TD]51
[/TD]
[TD]14,000
[/TD]
[TD]24,876
[/TD]
[TD]38,876
[/TD]
[TD]606
[/TD]
[TD]R01
[/TD]
[TD]0
[/TD]
[TD]14,000
[/TD]
[TD]0
[/TD]
[TD]4,876
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]10,000
[/TD]
[TD]0
[/TD]
[TD]5,000
[/TD]
[TD]0
[/TD]
[TD]5,000
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]104008
[/TD]
[TD]Signal-Abbot Inc.
[/TD]
[TD]6000069
[/TD]
[TD]CHM DEXTRAN SULFATESODIUM SALT
[/TD]
[TD]D6924
[/TD]
[TD]G
[/TD]
[TD]51
[/TD]
[TD]4,000
[/TD]
[TD]8,450
[/TD]
[TD]12,450
[/TD]
[TD]606
[/TD]
[TD]R01
[/TD]
[TD]0
[/TD]
[TD]2,000
[/TD]
[TD]2,000
[/TD]
[TD]0
[/TD]
[TD]3,000
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]2,750
[/TD]
[TD]0
[/TD]
[TD]2,700
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]107575
[/TD]
[TD]Univarlist Usa Inc
[/TD]
[TD]6000087
[/TD]
[TD]CHM ANTIFOAM-C MED GRADE SILIC
[/TD]
[TD]803579
[/TD]
[TD]G
[/TD]
[TD]20
[/TD]
[TD]0
[/TD]
[TD]906
[/TD]
[TD]906
[/TD]
[TD]605
[/TD]
[TD]R01
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]906
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[/TR]
</tbody>[/TABLE]
I have been coming the archives of many forums trying to find a good, effective and safe solution for changing the layout of an SAP report exported to Excel 2010. It takes months and months to get them to provide us with information and while we have asked for raw data they seem hesitant to give it to us. They always want to provide us with a report. I am not proficient with VBA but can get around. I do not understand a lot about looping.
What I need to do it to take the spreadsheet and insert twelve rows after each existing record, copy the information from columns A:L into the blanks beneath each populated row. I do that often with GoTo, Special, Find Blanks and a simple formula like =A2. The real problem lies with M:X. The reports is given with twelve months of data laid out in each column. Row 1 is the Date, row 2 has the actual values. I want to copy and transpose the dates into a new field in column Y for each populated row and name it Purchase Date beginning with the first populated record and then bring the corresponding values for each date into column Z naming it Purchase Amount. If you can help I would greatly appreciate it. Sample data is below.
[TABLE="width: 2070"]
<tbody>[TR]
[TD]VENDOR NUMBER
[/TD]
[TD]VENDOR NAME
[/TD]
[TD]MATERIAL
[/TD]
[TD]DESCRIPTION
[/TD]
[TD]VENDOR PART NUMBER
[/TD]
[TD]UOM
[/TD]
[TD]Lead Time
[/TD]
[TD]QTY ON ORDER
[/TD]
[TD]QTY FCST (12 MO)
[/TD]
[TD]TOTAL QTY
[/TD]
[TD]Buyer
[/TD]
[TD]MATERIAL CONTROLLER
[/TD]
[TD]Oct-16
[/TD]
[TD]Nov-16
[/TD]
[TD]Dec-16
[/TD]
[TD]Jan-17
[/TD]
[TD]Feb-17
[/TD]
[TD]Mar-17
[/TD]
[TD]Apr-17
[/TD]
[TD]May-17
[/TD]
[TD]Jun-17
[/TD]
[TD]Jul-17
[/TD]
[TD]Aug-17
[/TD]
[TD]Sep-17
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6000060
[/TD]
[TD]RES MEP-HYPERCEL
[/TD]
[TD]12035
[/TD]
[TD]L
[/TD]
[TD]169
[/TD]
[TD]200
[/TD]
[TD]360
[/TD]
[TD]560
[/TD]
[TD]606
[/TD]
[TD]R10
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]130
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]70
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]150
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]210
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6000124
[/TD]
[TD]FLT MEMBRANE CASSETTE 30K MWCO
[/TD]
[TD]OS030C26
[/TD]
[TD]EA
[/TD]
[TD]61
[/TD]
[TD]195
[/TD]
[TD]0
[/TD]
[TD]195
[/TD]
[TD]606
[/TD]
[TD]R06
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]95
[/TD]
[TD]40
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]60
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6000165
[/TD]
[TD]FLT CART 5" 0.2UM HYDROPHILIC
[/TD]
[TD]AB05DFL2PH4
[/TD]
[TD]EA
[/TD]
[TD]50
[/TD]
[TD]0
[/TD]
[TD]24
[/TD]
[TD]24
[/TD]
[TD]606
[/TD]
[TD]R06
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]6
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]6
[/TD]
[TD]12
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6000167
[/TD]
[TD]FLT CASSETE 30K MWCO 1FT2
[/TD]
[TD]OS030C12
[/TD]
[TD]EA
[/TD]
[TD]62
[/TD]
[TD]0
[/TD]
[TD]12
[/TD]
[TD]12
[/TD]
[TD]606
[/TD]
[TD]R06
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]12
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6000196
[/TD]
[TD]FLT CAPSULE 0.2UM 500CM2 STERI
[/TD]
[TD]12991
[/TD]
[TD]EA
[/TD]
[TD]74
[/TD]
[TD]0
[/TD]
[TD]12
[/TD]
[TD]12
[/TD]
[TD]606
[/TD]
[TD]R06
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]12
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6000414
[/TD]
[TD]FLT MEM CASETTE OMEGA T-SERIES
[/TD]
[TD]OS010T06
[/TD]
[TD]EA
[/TD]
[TD]64
[/TD]
[TD]61
[/TD]
[TD]14
[/TD]
[TD]75
[/TD]
[TD]606
[/TD]
[TD]R06
[/TD]
[TD]6
[/TD]
[TD]2
[/TD]
[TD]33
[/TD]
[TD]20
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]14
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6001060
[/TD]
[TD]FLT VENT 0.2UM PTFE HYDROPHOBI
[/TD]
[TD]4251
[/TD]
[TD]EA
[/TD]
[TD]70
[/TD]
[TD]0
[/TD]
[TD]59
[/TD]
[TD]59
[/TD]
[TD]606
[/TD]
[TD]R06
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]17
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]15
[/TD]
[TD]0
[/TD]
[TD]27
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]103326
[/TD]
[TD]Palole Corporation DBA
[/TD]
[TD]6001345
[/TD]
[TD]FLT T-SERIES 30KD MWCO 2.5M2 M
[/TD]
[TD]OS030T26
[/TD]
[TD]EA
[/TD]
[TD]64
[/TD]
[TD]36
[/TD]
[TD]26
[/TD]
[TD]62
[/TD]
[TD]606
[/TD]
[TD]R06
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]36
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]8
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]18
[/TD]
[/TR]
[TR]
[TD]103393
[/TD]
[TD]Dill Palmer Instrument Co
[/TD]
[TD]6001166
[/TD]
[TD]ADP Y CONNECTOR 3/8" BARB KYNA
[/TD]
[TD]WU-30703-93
[/TD]
[TD]EA
[/TD]
[TD]19
[/TD]
[TD]0
[/TD]
[TD]760
[/TD]
[TD]760
[/TD]
[TD]606
[/TD]
[TD]R04
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]230
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]220
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]310
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]104008
[/TD]
[TD]Signal-Abbot Inc.
[/TD]
[TD]6000055
[/TD]
[TD]CHM TRANS-4 5-DIHYDROXY-1 2-DI
[/TD]
[TD]D3511
[/TD]
[TD]G
[/TD]
[TD]51
[/TD]
[TD]14,000
[/TD]
[TD]24,876
[/TD]
[TD]38,876
[/TD]
[TD]606
[/TD]
[TD]R01
[/TD]
[TD]0
[/TD]
[TD]14,000
[/TD]
[TD]0
[/TD]
[TD]4,876
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]10,000
[/TD]
[TD]0
[/TD]
[TD]5,000
[/TD]
[TD]0
[/TD]
[TD]5,000
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]104008
[/TD]
[TD]Signal-Abbot Inc.
[/TD]
[TD]6000069
[/TD]
[TD]CHM DEXTRAN SULFATESODIUM SALT
[/TD]
[TD]D6924
[/TD]
[TD]G
[/TD]
[TD]51
[/TD]
[TD]4,000
[/TD]
[TD]8,450
[/TD]
[TD]12,450
[/TD]
[TD]606
[/TD]
[TD]R01
[/TD]
[TD]0
[/TD]
[TD]2,000
[/TD]
[TD]2,000
[/TD]
[TD]0
[/TD]
[TD]3,000
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]2,750
[/TD]
[TD]0
[/TD]
[TD]2,700
[/TD]
[TD]0
[/TD]
[/TR]
[TR]
[TD]107575
[/TD]
[TD]Univarlist Usa Inc
[/TD]
[TD]6000087
[/TD]
[TD]CHM ANTIFOAM-C MED GRADE SILIC
[/TD]
[TD]803579
[/TD]
[TD]G
[/TD]
[TD]20
[/TD]
[TD]0
[/TD]
[TD]906
[/TD]
[TD]906
[/TD]
[TD]605
[/TD]
[TD]R01
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]906
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[TD]0
[/TD]
[/TR]
</tbody>[/TABLE]