Autosum

Okay guys, I'm stymied on this one. I've been working on creating an auto-reporting tool and I'm stuck.

I have been working in a "scratchbook" (book4.xlsm) to ensure that I have proper coding before importing it into my final product.

My line of code says to run the data table through a series of filters, autosum the results and then paste them into a cell on the summary page. Then, it resets the filters and runs the data through the process again, changing the filters and the output cell destination.

In Book4.xlsm the macro works EXACTLY like it is supposed to. So, I copied the macro coding and pasted into the "reporting tool.xlsm". I included the lines to activate the "Monthly report.xls" and the correct sheet and select a cell in the data range. I even left the auto-refresh update ON so that I could see what's happening.

Now, the coding does NOT work properly. it's EXACTLy the same code from book4, but it doesnt work. It's supposed to only be auto-summing the VISIBLE cells. But now, it's returning a random number. At first I thought that it was returning the results for ALL of column N, visible and hidden, but even that isnt the case. The results for Column N when auto-summed manually are "74918.28", however the macro is returning a result of "230144.65" and I cannot ascertain where that figure is coming from. Additionally, it's returing this same value for every single filter.

I'm stuck. Please, please help!

The code is below:

******************************************

Sub Calculate()

Call RVRTotals


End Sub

Sub RVRTotals()

Windows("Monthly Finance Report.xls").Activate
Sheets("RVR Detail").Select
Range("A3").Select

Call RVR_GMH_NonXIX
Call RVR_GMH_XIX
Call RVR_GMH_XXI

Call RVR_SMI_NonXIX_Cenpatico
Call RVR_SMI_XIX_Cenpatico
Call RVR_SMI_XXI_Cenpatico

Call RVR_SMI_NonXIX_Apache
Call RVR_SMI_XIX_Apache
Call RVR_SMI_XXI_Apache

Call RVR_SMI_NonXIX_NARBHAFFS
Call RVR_SMI_XIX_NARBHAFFS
Call RVR_SMI_XXI_NARBHAFFS

Sheets("Summary").Select


End Sub

Sub RVR_GMH_NonXIX()

' Subtotals RVR GMH Non-XIX values
Range("a3").Select

    Selection.AutoFilter
    Selection.AutoFilter Field:=7, Criteria1:="GMH"
    Selection.AutoFilter Field:=6, Criteria1:="Non XIX"

Dim b As Range
 
' create range in column N from row 2 to the last visible cell with data
With Sheet1
    Set b = .Range("N2", .Range("N" & .Rows.Count).End(xlUp))
End With
 
Range("S1").Value = WorksheetFunction.Sum(b.SpecialCells(xlCellTypeVisible))

Range("S1").Select
Selection.Copy

Worksheets("Summary").Activate
Range("E10").PasteSpecial
Worksheets("RVR Detail").Activate
Selection.AutoFilter

End Sub

Sub RVR_GMH_XIX()

' Subtotals RVR GMH Non-XIX values
Range("A3").Select


    Selection.AutoFilter Field:=7, Criteria1:="GMH"
    Selection.AutoFilter Field:=6, Criteria1:="XIX"

Dim a As Range
 
' create range in column N from row 2 to the last visible cell with data
With Sheet1
    Set a = .Range("N2", .Range("N" & .Rows.Count).End(xlUp))
End With
 
Range("S1").Value = WorksheetFunction.Sum(a.SpecialCells(xlCellTypeVisible))

Range("S1").Select
Selection.Copy

Worksheets("Summary").Activate
Range("F10").PasteSpecial
Worksheets("RVR Detail").Activate
Selection.AutoFilter

End Sub
Sub RVR_GMH_XXI()

' Subtotals RVR GMH Non-XIX values
Range("a3").Select

    Selection.AutoFilter Field:=7, Criteria1:="GMH"
    Selection.AutoFilter Field:=6, Criteria1:="XXI"

Dim a As Range
 
' create range in column N from row 2 to the last visible cell with data
With Sheet1
    Set a = .Range("N2", .Range("N" & .Rows.Count).End(xlUp))
End With
 
Range("S1").Value = WorksheetFunction.Sum(a.SpecialCells(xlCellTypeVisible))

Range("S1").Select
Selection.Copy

Worksheets("Summary").Activate
Range("G10").PasteSpecial
Worksheets("RVR Detail").Activate
Selection.AutoFilter

End Sub





Sub RVR_SMI_NonXIX_Cenpatico()

' Subtotals RVR GMH Non-XIX values
Range("a3").Select

    Selection.AutoFilter Field:=7, Criteria1:="SMI"
    Selection.AutoFilter Field:=6, Criteria1:="Non XIX"
    Selection.AutoFilter Field:=1, Criteria1:="Cenpatico"
    

Dim a As Range
 
' create range in column N from row 2 to the last visible cell with data
With Sheet1
    Set a = .Range("N2", .Range("N" & .Rows.Count).End(xlUp))
End With
 
Range("S1").Value = WorksheetFunction.Sum(a.SpecialCells(xlCellTypeVisible))

Range("S1").Select
Selection.Copy

Worksheets("Summary").Activate
Range("E11").PasteSpecial
Worksheets("RVR Detail").Activate
Selection.AutoFilter

End Sub
Sub RVR_SMI_XIX_Cenpatico()

' Subtotals RVR GMH Non-XIX values
Range("a3").Select

    Selection.AutoFilter Field:=7, Criteria1:="SMI"
    Selection.AutoFilter Field:=6, Criteria1:="XIX"
    Selection.AutoFilter Field:=1, Criteria1:="Cenpatico"
    

Dim a As Range
 
' create range in column N from row 2 to the last visible cell with data
With Sheet1
    Set a = .Range("N2", .Range("N" & .Rows.Count).End(xlUp))
End With
 
Range("S1").Value = WorksheetFunction.Sum(a.SpecialCells(xlCellTypeVisible))

Range("S1").Select
Selection.Copy

Worksheets("Summary").Activate
Range("F11").PasteSpecial
Worksheets("RVR Detail").Activate
Selection.AutoFilter

End Sub
Sub RVR_SMI_XXI_Cenpatico()

' Subtotals RVR GMH Non-XIX values
Range("a3").Select

    Selection.AutoFilter Field:=7, Criteria1:="SMI"
    Selection.AutoFilter Field:=6, Criteria1:="XXI"
    Selection.AutoFilter Field:=1, Criteria1:="Cenpatico"
    

Dim a As Range
 
' create range in column N from row 2 to the last visible cell with data
With Sheet1
    Set a = .Range("N2", .Range("N" & .Rows.Count).End(xlUp))
End With
 
Range("S1").Value = WorksheetFunction.Sum(a.SpecialCells(xlCellTypeVisible))

Range("S1").Select
Selection.Copy

Worksheets("Summary").Activate
Range("G11").PasteSpecial
Worksheets("RVR Detail").Activate
Selection.AutoFilter

End Sub

Sub RVR_SMI_NonXIX_Apache()

' Subtotals RVR GMH Non-XIX values
Range("a3").Select

    Selection.AutoFilter Field:=7, Criteria1:="SMI"
    Selection.AutoFilter Field:=6, Criteria1:="Non XIX"
    Selection.AutoFilter Field:=1, Criteria1:="Apache TRBHA"
    

Dim a As Range
 
' create range in column N from row 2 to the last visible cell with data
With Sheet1
    Set a = .Range("N2", .Range("N" & .Rows.Count).End(xlUp))
End With
 
Range("S1").Value = WorksheetFunction.Sum(a.SpecialCells(xlCellTypeVisible))

Range("S1").Select
Selection.Copy

Worksheets("Summary").Activate
Range("E12").PasteSpecial
Worksheets("RVR Detail").Activate
Selection.AutoFilter

End Sub
Sub RVR_SMI_XIX_Apache()

' Subtotals RVR GMH Non-XIX values
Range("a3").Select

    Selection.AutoFilter Field:=7, Criteria1:="SMI"
    Selection.AutoFilter Field:=6, Criteria1:="XIX"
    Selection.AutoFilter Field:=1, Criteria1:="Apache TRBHA"
    

Dim a As Range
 
' create range in column N from row 2 to the last visible cell with data
With Sheet1
    Set a = .Range("N2", .Range("N" & .Rows.Count).End(xlUp))
End With
 
Range("S1").Value = WorksheetFunction.Sum(a.SpecialCells(xlCellTypeVisible))

Range("S1").Select
Selection.Copy

Worksheets("Summary").Activate
Range("F12").PasteSpecial
Worksheets("RVR Detail").Activate
Selection.AutoFilter

End Sub

(Truncated due to length)....all the rest is the same as above...

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

I've added the tags this time,but be sure to read & follow the rules

To best describe or illustrate your problem you would be better off attaching a dummy workbook, the workbook should contain the same structure and some dummy data of the same type as the type you have in your real workbook - so, if a cell contains numbers & letters in this format abc-123 then that should be reflected in the dummy workbook.

If needed supply a before and after sheet in the workbook so the person helping you can see what you are trying to achieve.

Doing this will ensure you get the result you need!

Without seeing the data layout it's difficult, but probably a PivotTable would be better & more efficient, especially as your code is not written with efficiency in mind

Your post does not comply with Rule 9 of our Forum RULES. If you solve a problem yourself before anyone else has responded, please take a moment to describe your solution, chances are some other member will benefit. And please never edit a thread in which someone else has responded.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save