What This VBA Code Does
Stop creating the same Pivot Table every month for your monthly data extracts! Create a template with your Pivot Table already made and just replace the data every time you need to update. Then throw the below code in that workbook so you can use the power of VBA to automatically adjust the Source Data for your Pivot Table. This methodology saves me a TON of time every month and hopefully it does the same for you!
Learn More About Pivot Table VBA Coding! Check Out My Blog Post Guide On This Topic!
'PURPOSE: Automatically readjust a Pivot Table's data source range
Dim Data_sht As Worksheet
Dim Pivot_sht As Worksheet
Dim StartPoint As Range
Dim DataRange As Range
Dim PivotName As String
Dim NewRange As String
'Set Variables Equal to Data Sheet and Pivot Sheet
Set Data_sht = ThisWorkbook.Worksheets("Sheet1")
Set Pivot_sht = ThisWorkbook.Worksheets("Sheet2")
'Enter in Pivot Table Name
PivotName = "PivotTable1"
'Dynamically Retrieve Range Address of Data
Set StartPoint = Data_sht.Range("A1")
Set DataRange = Data_sht.Range(StartPoint, StartPoint.SpecialCells(xlLastCell))
NewRange = Data_sht.Name & "!" & _
'Make sure every column in data set has a heading and is not blank (error prevention)
If WorksheetFunction.CountBlank(DataRange.Rows(1)) > 0 Then
MsgBox "One of your data columns has a blank heading." & vbNewLine _
& "Please fix and re-run!.", vbCritical, "Column Heading Missing!"
'Change Pivot Table Data Source Range Address
'Ensure Pivot Table is Refreshed
MsgBox PivotName & "'s data source range has been successfully updated!"
Keep On Learning!
To learn more about VBA & Pivot Tables check out the Guide I put together that covers all the different ways you can automate your pivots with macros! I have tons of example code snippets in this post and it really serves as a good reference if you like to use Pivot Tables in your Excel workbooks.
More Posts On This Topic
- The VBA Guide To Excel Pivot Tables
- Dynamically Change Every Pivot Table Data Source Range Inside A Workbook
- Quickly Change Pivot Table Field Calculation From Count To Sum
How Do I Modify This To Fit My Specific Needs?
Chances are this post did not give you the exact answer you were looking for. We all have different situations and it's impossible to account for every particular need one might have. That's why I want to share with you: My Guide to Getting the Solution to your Problems FAST! In this article, I explain the best strategies I have come up with over the years to getting quick answers to complex problems in Excel, PowerPoint, VBA, you name it!
I highly recommend that you check this guide out before asking me or anyone else in the comments section to solve your specific problem. I can guarantee 9 times out of 10, one of my strategies will get you the answer(s) you are needing faster than it will take me to get back to you with a possible solution. I try my best to help everyone out, but sometimes I don't have time to fit everyone's questions in (there never seem to be quite enough hours in the day!).
I wish you the best of luck and I hope this tutorial gets you heading in the right direction!
Chris "Macro" Newman :)