ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Pivot Macro (https://www.excelbanter.com/excel-programming/409966-pivot-macro.html)

Ranjit kurian

Pivot Macro
 
Hi,

I have two sheets in excel,

sheet1 is the source data, where the count of the data keep changes.
sheet2 is the pivot sheet, where pivot is allready created.

I need a excel macro code, to update my pivot every day, when i run macro.
Update means, As in sheet1 the count of row keep changing the macro first it
should check the count in sheet1 then, the macro should update the same row
count in pivot.
Macro should do the changes in existing pivot, it should not create a new
pivot.

Please help me...





Roger Govier[_3_]

Pivot Macro
 
Hi

Instead of using a fixed range as the source for your PT, use a Dynamic
range.
InsertNameDefineName myData Refers to =
Sheet1!$A$1:INDEX(Sheet1!$1:$65536,COUNTA(Sheet1!$ A:$A),COUNTA(Sheet1!$1:$1))

Then refer to the named range myData in your macro
--
Regards
Roger Govier

"Ranjit kurian" wrote in message
...
Hi,

I have two sheets in excel,

sheet1 is the source data, where the count of the data keep changes.
sheet2 is the pivot sheet, where pivot is allready created.

I need a excel macro code, to update my pivot every day, when i run macro.
Update means, As in sheet1 the count of row keep changing the macro first
it
should check the count in sheet1 then, the macro should update the same
row
count in pivot.
Macro should do the changes in existing pivot, it should not create a new
pivot.

Please help me...





Vishwanath N

Pivot Macro
 
Try the code below
copy and Paste the code in new module

Option Explicit

Sub ShowDates()
Dim pt As PivotTable
Dim ws As Worksheet
Set ws = Worksheets("Pivot")
Set pt = ws.PivotTables(1)

pt.PivotCache.Refresh
End Sub


Vishwanath N


*** Sent via Developersdex
http://www.developersdex.com ***


All times are GMT +1. The time now is 02:38 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com