Thread: Macro Failure
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
Paula Paula is offline
external usenet poster
 
Posts: 138
Default Macro Failure

Hi, I'm really sorry - my macro knowledge is very basic (instead of visio
basic :-))

can you explain in my example what I am doing wrong, I need to unhide the
pivot in the sequence to refresh but then don't want it to be visiable
afterwards, is there something I am doing wrong in the recording sequence?

Many thanks

"Shane Devenshire" wrote:

Hi,

FYI:

There is no need to unhide and hide the sheets, just change ActiveSheet to
Sheets("yoursheetname")

Example:

Sheets("Manual
Grouping").PivotTables("PivotTable1").PivotFields( "City").PivotItems("Dallas").Visible = False

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"Paula" wrote:

Hi, I am not great with macros and can only get by with recording, not
actually writing VBA. I am recording a really simple macro which goes through
3 pages and changes the pivot chart Country to Belgium for example, then I
need to go to a hidden sheet, unhide the sheet and refresh the pivot on that
sheet, and hide the sheet again before I go back to the front page. Unhiding
and hiding the sheet seems to fail the macro as I get a debug. Any ideas how
to record a macro which has to refresh a pivot with a hidden sheet?


'
Sheets("SUMMARY").Select
ActiveSheet.PivotTables("PivotTable3").PivotFields ("Client ID Name"). _
CurrentPage = "XXX-BELGIUM "
Sheets("ADV BOOKIND DAYS").Select
ActiveSheet.PivotTables("PivotTable4").PivotFields ("Client ID Name"). _
CurrentPage = "XXX-BELGIUM "
Sheets("By Class").Select
ActiveSheet.PivotTables("PivotTable4").PivotFields ("Client ID Name"). _
CurrentPage = "XXX-BELGIUM "
Sheets("FORMAT RAW").Visible = True
ActiveSheet.PivotTables("PivotTable2").PivotFields ("Client ID Name"). _
CurrentPage = "XXX-BELGIUM "
Sheets("RAW DATA").Visible = True
Sheets("Sheet1").Select

It seems to stick at this line - 3rd up from bottom...
ActiveSheet.PivotTables("PivotTable2").PivotFields ("Client ID Name"). _
CurrentPage = "XXX-BELGIUM

Any advice would be fantastic ...

Many thanks
Paula