November 19, 2008 03:16am pst

1. zorvek 2,827,429
2. rorya 2,224,701
3. saurabh726 2,071,159
4. byundt 960,600
5. chris_bot... 927,392
6. nutsch 687,343
7. patrickab 536,897
8. brettdj 516,730
9. matthews... 479,634
10. webtubbs 429,603
11. jeverist 411,038
12. ahammar 343,641
13. spattewar 330,928
14. jpaulino 281,347
15. RobSamp... 279,314
16. Psychotec 269,350
17. irudyk 229,501
18. epaclm 224,910
19. dj88 216,941
20. WJReid 194,934
21. weellio 153,019
22. Merch_Ops 142,013
23. GrahamSkan 135,635
24. StellanRo... 129,668
25. pkhari 123,549

1. zorvek 10,131,920
2. byundt 7,703,689
3. rorya 5,919,432
4. matthews... 3,042,762
5. jeverist 2,821,307
6. patrickab 2,292,460
7. saurabh726 2,164,738
8. roos01 1,923,578
9. brettdj 1,559,306
10. mvidas 1,529,753
11. webtubbs 1,525,995
12. fanpages 1,236,922
13. chris_bot... 1,116,898
14. MalicUK 1,060,396
15. nutsch 687,343
16. mgh_mgh... 649,110
17. ahammar 643,774
18. LoNeRaV... 602,049
19. ture 572,551
20. spattewar 539,877
21. R_Rajesh 468,975
22. jpaulino 394,246
23. david251 378,578
24. RobSamp... 377,863
25. gtgloner 350,284

05.23.2008 at 12:47PM PDT, ID: 23428779

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.7

Reverse Pivot Code Modification to include Sheet Name

Asked by Cook09 in Microsoft Excel Spreadsheet Software, Office & Productivity Software

Tags: Microsoft, Excel, 2007, VBA

Attached is some code that I've been using to create a reverse pivot. At the moment it only does 3 columns, but I need it to add an additional column that includes the DeptID (Sheet Tab or Sheet Name). I'm not sure how to make it loop through multiple worksheets (30), but if I can get it to do one, then I'll manually copy and paste the others I do for one large consolidated table, that can pivoted.

As you can see, the Output Range is three columns (Input Range is F7:R39), but I need four with the Dept being first, well I guess it wouldn't matter.

Thanks,

RonStart Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:

           
           
             Option Explicit
 
Private Sub UserForm_Initialize()
    RefEditInput.Text = ActiveCell.CurrentRegion.Address
End Sub
 
Sub OKButton_Click()
    Dim SummaryTable As Range
    Dim OutputRange As Range
 
'   Validate ranges
    On Error Resume Next
    Set SummaryTable = Range(RefEditInput.Text)
    If Err.Number <> 0 Then
        MsgBox "Invalid input range.", vbCritical
        Exit Sub
    End If
    
    Set OutputRange = Range(RefEditOutput.Text).Range("A1")
    If Err.Number <> 0 Then
        MsgBox "Invalid output range.", vbCritical
        Exit Sub
    End If
    On Error GoTo 0
    
    If SummaryTable.Count = 1 Or SummaryTable.Rows.Count < 3 Then
        MsgBox "Select a cell in the summary table.", vbCritical
        Exit Sub
    End If
    
    Call All_Funds(SummaryTable, OutputRange, cbCreateTable)
    
    Unload Me
End Sub
 
Sub All_Funds(SummaryTable As Range, OutputRange As Range, CreateTable As Boolean)
    Dim r As Long, c As Long
    Dim OutRow As Long, OutCol As Long
 
'   Convert the range
    OutRow = 2
    Application.ScreenUpdating = False
 
   OutputRange.Range("A1:C3") = Array("Category", "Month", "Values")
    For r = 2 To SummaryTable.Rows.Count
        For c = 2 To SummaryTable.Columns.Count
            OutputRange.Cells(OutRow, 1) = SummaryTable.Cells(r, 1)
            OutputRange.Cells(OutRow, 2) = SummaryTable.Cells(1, c)
            OutputRange.Cells(OutRow, 3) = SummaryTable.Cells(r, c)
            OutputRange.Cells(OutRow, 3).NumberFormat = SummaryTable.Cells(r, c).NumberFormat
            OutRow = OutRow + 1
        Next c
    Next r
 
'   Make it a table?
    On Error Resume Next
    If CreateTable Then _
      ActiveSheet.ListObjects.Add xlSrcRange, _
        OutputRange.CurrentRegion, , xlYes
    On Error GoTo 0
End Sub
 
Private Sub CancelButton_Click()
    Unload Me
End Sub

           
         

Keywords: Reverse Pivot Code Modification to incl…

	Title
1	Pivot tables: updating the row field se…
2	Change record source on existing Pivo…
3	Format Pivot Chart
4	Combining Multiple Ranges on one Pivot…
5	refreshing pivot tables
6	Pivot tables

Loading Advertisement...