Changing the layout of an Excel 2010 SAP report

Anita Kay

New Member
Joined
Jan 26, 2017
Messages
8
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]
 
Anita Kay,

Sample new results in worksheet New Layout:


Excel 2007
ABCDEFGHIJKL
1MATERIALDESCRIPTIONVENDOR PART NUMBERUOMLead TimeQTY ON ORDERQTY FCST (12 MO)TOTAL QTYBuyerMATERIAL CONTROLLERProject DateActual Quantity
26000060RES MEP-HYPERCEL12035L169200360560606R10Oct-160
36000060RES MEP-HYPERCEL12035L169200360560606R10Nov-160
46000060RES MEP-HYPERCEL12035L169200360560606R10Dec-16130
56000060RES MEP-HYPERCEL12035L169200360560606R10Jan-170
66000060RES MEP-HYPERCEL12035L169200360560606R10Feb-170
76000060RES MEP-HYPERCEL12035L169200360560606R10Mar-1770
86000060RES MEP-HYPERCEL12035L169200360560606R10Apr-170
96000060RES MEP-HYPERCEL12035L169200360560606R10May-170
106000060RES MEP-HYPERCEL12035L169200360560606R10Jun-17150
116000060RES MEP-HYPERCEL12035L169200360560606R10Jul-170
126000060RES MEP-HYPERCEL12035L169200360560606R10Aug-170
136000060RES MEP-HYPERCEL12035L169200360560606R10Sep-17210
146000124FLT MEMBRANE CASSETTE 30K MWCOOS030C26EA611950195606R06Oct-160
156000124FLT MEMBRANE CASSETTE 30K MWCOOS030C26EA611950195606R06Nov-160
166000124FLT MEMBRANE CASSETTE 30K MWCOOS030C26EA611950195606R06Dec-160
176000124FLT MEMBRANE CASSETTE 30K MWCOOS030C26EA611950195606R06Jan-1795
186000124FLT MEMBRANE CASSETTE 30K MWCOOS030C26EA611950195606R06Feb-1740
196000124FLT MEMBRANE CASSETTE 30K MWCOOS030C26EA611950195606R06Mar-170
206000124FLT MEMBRANE CASSETTE 30K MWCOOS030C26EA611950195606R06Apr-170
216000124FLT MEMBRANE CASSETTE 30K MWCOOS030C26EA611950195606R06May-170
226000124FLT MEMBRANE CASSETTE 30K MWCOOS030C26EA611950195606R06Jun-170
236000124FLT MEMBRANE CASSETTE 30K MWCOOS030C26EA611950195606R06Jul-1760
246000124FLT MEMBRANE CASSETTE 30K MWCOOS030C26EA611950195606R06Aug-170
256000124FLT MEMBRANE CASSETTE 30K MWCOOS030C26EA611950195606R06Sep-170
New Layout





Code:
Sub Reorg_SAP_Report_V2()
' hiker95, 01/27/2017, ME987801
Dim a As Variant, i As Long, c As Long, cc As Long, d As Long, lr As Long, lc As Long
Dim o As Variant, j As Long, n As Long
Application.ScreenUpdating = False
With Sheets("Sample Data")    '<-- you can change the sheet name here
  lr = .Cells(Rows.Count, 1).End(xlUp).Row
  lc = .Cells(1, Columns.Count).End(xlToLeft).Column
  a = .Range(.Cells(1, 1), .Cells(lr, lc))
  ReDim o(1 To (lr + 1) * 12, 1 To 12)
End With
For i = 2 To UBound(a, 1) Step 1
  cc = 13
  For n = 1 To 12 Step 1
    j = j + 1
    d = 1
    For c = 3 To 12 Step 1
      o(j, d) = a(i, c)
      d = d + 1
    Next c
    o(j, 11) = a(1, cc)
    o(j, 12) = a(i, cc)
    cc = cc + 1
  Next n
Next i
With Sheets("New Layout")    '<-- you can change the sheet name here
  lr = .Cells(Rows.Count, 1).End(xlUp).Row
  If lr > 1 Then
    .Range("A2:L" & lr).ClearContents
  End If
  .Range("A2").Resize(UBound(o, 1), UBound(o, 2)) = o
  .Range("K2").Resize(UBound(o, 1)).NumberFormat = "mmm-yy"
  .Columns(1).Resize(, UBound(o, 2)).AutoFit
  .Activate
End With
Application.ScreenUpdating = True
End Sub

Same instructions as my last reply.

Then run the Reorg_SAP_Report_V2 macro.
 
Upvote 0

Excel Facts

Excel Joke
Why can't spreadsheets drive cars? They crash too often!
Thanks so much Hiker95!!!! I will try this out this weekend and give you a shout back!

Anita Kay

Anita Kay,

Sample new results in worksheet New Layout:

Excel 2007
ABCDEFGHIJKL
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06

<colgroup><col style="width: 25pxpx"><col><col><col><col><col><col><col><col><col><col><col><col></colgroup><thead>
</thead><tbody>
[TD="align: center"]1[/TD]
[TD="bgcolor: #BFBFBF, align: center"]MATERIAL[/TD]
[TD="bgcolor: #BFBFBF"]DESCRIPTION[/TD]
[TD="bgcolor: #BFBFBF, align: center"]VENDOR PART NUMBER[/TD]
[TD="bgcolor: #BFBFBF, align: center"]UOM[/TD]
[TD="bgcolor: #BFBFBF, align: center"]Lead Time[/TD]
[TD="bgcolor: #BFBFBF, align: center"]QTY ON ORDER[/TD]
[TD="bgcolor: #BFBFBF, align: center"]QTY FCST (12 MO)[/TD]
[TD="bgcolor: #BFBFBF, align: center"]TOTAL QTY[/TD]
[TD="bgcolor: #BFBFBF, align: center"]Buyer[/TD]
[TD="bgcolor: #BFBFBF, align: center"]MATERIAL CONTROLLER[/TD]
[TD="bgcolor: #BFBFBF, align: center"]Project Date[/TD]
[TD="bgcolor: #BFBFBF, align: center"]Actual Quantity[/TD]

[TD="align: center"]2[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Oct-16[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]3[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Nov-16[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]4[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Dec-16[/TD]
[TD="align: right"]130[/TD]

[TD="align: center"]5[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Jan-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]6[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Feb-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]7[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Mar-17[/TD]
[TD="align: right"]70[/TD]

[TD="align: center"]8[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Apr-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]9[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]May-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]10[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Jun-17[/TD]
[TD="align: right"]150[/TD]

[TD="align: center"]11[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Jul-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]12[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Aug-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]13[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Sep-17[/TD]
[TD="align: right"]210[/TD]

[TD="align: center"]14[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Oct-16[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]15[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Nov-16[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]16[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Dec-16[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]17[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Jan-17[/TD]
[TD="align: right"]95[/TD]

[TD="align: center"]18[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Feb-17[/TD]
[TD="align: right"]40[/TD]

[TD="align: center"]19[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Mar-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]20[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Apr-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]21[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]May-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]22[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Jun-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]23[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Jul-17[/TD]
[TD="align: right"]60[/TD]

[TD="align: center"]24[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Aug-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]25[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Sep-17[/TD]
[TD="align: right"]0[/TD]

</tbody>
New Layout






Code:
Sub Reorg_SAP_Report_V2()
' hiker95, 01/27/2017, ME987801
Dim a As Variant, i As Long, c As Long, cc As Long, d As Long, lr As Long, lc As Long
Dim o As Variant, j As Long, n As Long
Application.ScreenUpdating = False
With Sheets("Sample Data")    '<-- you can change the sheet name here
  lr = .Cells(Rows.Count, 1).End(xlUp).Row
  lc = .Cells(1, Columns.Count).End(xlToLeft).Column
  a = .Range(.Cells(1, 1), .Cells(lr, lc))
  ReDim o(1 To (lr + 1) * 12, 1 To 12)
End With
For i = 2 To UBound(a, 1) Step 1
  cc = 13
  For n = 1 To 12 Step 1
    j = j + 1
    d = 1
    For c = 3 To 12 Step 1
      o(j, d) = a(i, c)
      d = d + 1
    Next c
    o(j, 11) = a(1, cc)
    o(j, 12) = a(i, cc)
    cc = cc + 1
  Next n
Next i
With Sheets("New Layout")    '<-- you can change the sheet name here
  lr = .Cells(Rows.Count, 1).End(xlUp).Row
  If lr > 1 Then
    .Range("A2:L" & lr).ClearContents
  End If
  .Range("A2").Resize(UBound(o, 1), UBound(o, 2)) = o
  .Range("K2").Resize(UBound(o, 1)).NumberFormat = "mmm-yy"
  .Columns(1).Resize(, UBound(o, 2)).AutoFit
  .Activate
End With
Application.ScreenUpdating = True
End Sub

Same instructions per my reply #8.

Then run the Reorg_SAP_Report_V2 macro.
 
Upvote 0
OK HIker95,

I really appreciate all of your hard work. However,I made a mistake. All the columns in the Sample Data worksheet should showup in the New Layout until you get to those columns that house the date as a field name and the values for each record. When I copied over the data into the New Layout sheet, I really messed that up. I apologize. Otherwise, the restructuring looks good for those date fields and of course, adding the extra records for each line item.

The other issue is that the field names in row 1 do not show in the New layout.

If you could advise on how to modify the code, I would appreciate it greatly.

AnitKay

Anita Kay,

Sample new results in worksheet New Layout:

Excel 2007
ABCDEFGHIJKL
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
RES MEP-HYPERCELLR10
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06
FLT MEMBRANE CASSETTE 30K MWCOOS030C26EAR06

<colgroup><col style="width: 25pxpx"><col><col><col><col><col><col><col><col><col><col><col><col></colgroup><thead>
</thead><tbody>
[TD="align: center"]1[/TD]
[TD="bgcolor: #BFBFBF, align: center"]MATERIAL[/TD]
[TD="bgcolor: #BFBFBF"]DESCRIPTION[/TD]
[TD="bgcolor: #BFBFBF, align: center"]VENDOR PART NUMBER[/TD]
[TD="bgcolor: #BFBFBF, align: center"]UOM[/TD]
[TD="bgcolor: #BFBFBF, align: center"]Lead Time[/TD]
[TD="bgcolor: #BFBFBF, align: center"]QTY ON ORDER[/TD]
[TD="bgcolor: #BFBFBF, align: center"]QTY FCST (12 MO)[/TD]
[TD="bgcolor: #BFBFBF, align: center"]TOTAL QTY[/TD]
[TD="bgcolor: #BFBFBF, align: center"]Buyer[/TD]
[TD="bgcolor: #BFBFBF, align: center"]MATERIAL CONTROLLER[/TD]
[TD="bgcolor: #BFBFBF, align: center"]Project Date[/TD]
[TD="bgcolor: #BFBFBF, align: center"]Actual Quantity[/TD]

[TD="align: center"]2[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Oct-16[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]3[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Nov-16[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]4[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Dec-16[/TD]
[TD="align: right"]130[/TD]

[TD="align: center"]5[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Jan-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]6[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Feb-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]7[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Mar-17[/TD]
[TD="align: right"]70[/TD]

[TD="align: center"]8[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Apr-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]9[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]May-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]10[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Jun-17[/TD]
[TD="align: right"]150[/TD]

[TD="align: center"]11[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Jul-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]12[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Aug-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]13[/TD]
[TD="align: right"]6000060[/TD]

[TD="align: right"]12035[/TD]

[TD="align: right"]169[/TD]
[TD="align: right"]200[/TD]
[TD="align: right"]360[/TD]
[TD="align: right"]560[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Sep-17[/TD]
[TD="align: right"]210[/TD]

[TD="align: center"]14[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Oct-16[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]15[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Nov-16[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]16[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Dec-16[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]17[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Jan-17[/TD]
[TD="align: right"]95[/TD]

[TD="align: center"]18[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Feb-17[/TD]
[TD="align: right"]40[/TD]

[TD="align: center"]19[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Mar-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]20[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Apr-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]21[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]May-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]22[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Jun-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]23[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Jul-17[/TD]
[TD="align: right"]60[/TD]

[TD="align: center"]24[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Aug-17[/TD]
[TD="align: right"]0[/TD]

[TD="align: center"]25[/TD]
[TD="align: right"]6000124[/TD]

[TD="align: right"]61[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]195[/TD]
[TD="align: right"]606[/TD]

[TD="align: right"]Sep-17[/TD]
[TD="align: right"]0[/TD]

</tbody>
New Layout






Code:
Sub Reorg_SAP_Report_V2()
' hiker95, 01/27/2017, ME987801
Dim a As Variant, i As Long, c As Long, cc As Long, d As Long, lr As Long, lc As Long
Dim o As Variant, j As Long, n As Long
Application.ScreenUpdating = False
With Sheets("Sample Data")    '<-- you can change the sheet name here
  lr = .Cells(Rows.Count, 1).End(xlUp).Row
  lc = .Cells(1, Columns.Count).End(xlToLeft).Column
  a = .Range(.Cells(1, 1), .Cells(lr, lc))
  ReDim o(1 To (lr + 1) * 12, 1 To 12)
End With
For i = 2 To UBound(a, 1) Step 1
  cc = 13
  For n = 1 To 12 Step 1
    j = j + 1
    d = 1
    For c = 3 To 12 Step 1
      o(j, d) = a(i, c)
      d = d + 1
    Next c
    o(j, 11) = a(1, cc)
    o(j, 12) = a(i, cc)
    cc = cc + 1
  Next n
Next i
With Sheets("New Layout")    '<-- you can change the sheet name here
  lr = .Cells(Rows.Count, 1).End(xlUp).Row
  If lr > 1 Then
    .Range("A2:L" & lr).ClearContents
  End If
  .Range("A2").Resize(UBound(o, 1), UBound(o, 2)) = o
  .Range("K2").Resize(UBound(o, 1)).NumberFormat = "mmm-yy"
  .Columns(1).Resize(, UBound(o, 2)).AutoFit
  .Activate
End With
Application.ScreenUpdating = True
End Sub

Same instructions per my reply #8.

Then run the Reorg_SAP_Report_V2 macro.
 
Upvote 0
All the columns in the Sample Data worksheet should showup in the New Layout until you get to those columns that house the date as a field name and the values for each record. When I copied over the data into the New Layout sheet, I really messed that up. I apologize. Otherwise, the restructuring looks good for those date fields and of course, adding the extra records for each line item.

The other issue is that the field names in row 1 do not show in the New layout.

Anita Kay,

Please supply another workbook, with the raw data in worksheet Sample Data with the title row, and, just 5 more of the sample rows, and, worksheet New Layout (manually formatted/completed by you) with the results that you are now looking for.
 
Upvote 0
Upvote 0
Anita Kay,

Thanks for the new workbook/worksheets.

Here is a new macro for you to consider.

Code:
Sub Reorg_SAP_Report_V3()
' hiker95, 01/30/2017, ME987801
Dim a As Variant, i As Long, c As Long, cc As Long, d As Long, lr As Long, lc As Long
Dim o As Variant, j As Long, n As Long
Application.ScreenUpdating = False
With Sheets("Sample Data")    '<-- you can change the sheet name here
  lr = .Cells(Rows.Count, 1).End(xlUp).Row
  lc = .Cells(1, Columns.Count).End(xlToLeft).Column
  a = .Range(.Cells(1, 1), .Cells(lr, lc))
  ReDim o(1 To (lr + 1) * 12, 1 To 14)
End With
For i = 2 To UBound(a, 1) Step 1
  cc = 13
  For n = 1 To 12 Step 1
    j = j + 1
    d = 1
    For c = 1 To 12 Step 1
      o(j, d) = a(i, c)
      d = d + 1
    Next c
    o(j, 13) = a(1, cc)
    o(j, 14) = a(i, cc)
    cc = cc + 1
  Next n
Next i
With Sheets("New Layout")    '<-- you can change the sheet name here
  lr = .Cells(Rows.Count, 1).End(xlUp).Row
  If lr > 1 Then
    .Range("A2:N" & lr).ClearContents
  End If
  .Range("A2").Resize(UBound(o, 1), UBound(o, 2)) = o
  .Range("M2").Resize(UBound(o, 1)).NumberFormat = "mmm-yy"
  .Columns(1).Resize(, UBound(o, 2)).AutoFit
  .Activate
End With
Application.ScreenUpdating = True
End Sub

Same instructions per my reply #8.

Then run the Reorg_SAP_Report_V3 macro.
 
Upvote 0
Thank you so much Hiker95,

I just met with my colleagues and it is working as we wished. Thank you so much for your help in solving this problem. We will build off of this to complete future assignments.

AnitaKay:)

Anita Kay,

Thanks for the new workbook/worksheets.

Here is a new macro for you to consider.

Code:
Sub Reorg_SAP_Report_V3()
' hiker95, 01/30/2017, ME987801
Dim a As Variant, i As Long, c As Long, cc As Long, d As Long, lr As Long, lc As Long
Dim o As Variant, j As Long, n As Long
Application.ScreenUpdating = False
With Sheets("Sample Data")    '<-- you can change the sheet name here
  lr = .Cells(Rows.Count, 1).End(xlUp).Row
  lc = .Cells(1, Columns.Count).End(xlToLeft).Column
  a = .Range(.Cells(1, 1), .Cells(lr, lc))
  ReDim o(1 To (lr + 1) * 12, 1 To 14)
End With
For i = 2 To UBound(a, 1) Step 1
  cc = 13
  For n = 1 To 12 Step 1
    j = j + 1
    d = 1
    For c = 1 To 12 Step 1
      o(j, d) = a(i, c)
      d = d + 1
    Next c
    o(j, 13) = a(1, cc)
    o(j, 14) = a(i, cc)
    cc = cc + 1
  Next n
Next i
With Sheets("New Layout")    '<-- you can change the sheet name here
  lr = .Cells(Rows.Count, 1).End(xlUp).Row
  If lr > 1 Then
    .Range("A2:N" & lr).ClearContents
  End If
  .Range("A2").Resize(UBound(o, 1), UBound(o, 2)) = o
  .Range("M2").Resize(UBound(o, 1)).NumberFormat = "mmm-yy"
  .Columns(1).Resize(, UBound(o, 2)).AutoFit
  .Activate
End With
Application.ScreenUpdating = True
End Sub

Same instructions per my reply #8.

Then run the Reorg_SAP_Report_V3 macro.
 
Upvote 0
Anita Kay,

Thanks for the feedback.

You are very welcome. Glad I could help.

And, come back anytime.
 
Upvote 0

Forum statistics

Threads
1,223,903
Messages
6,175,284
Members
452,630
Latest member
OdubiYouth

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