| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Pivot table - remove worksheet
When I double click a cell in a pivot table the data shows on a new
worksheet. How can I have this worksheet 'delete' when moving to another worksheet in the workbook? Thanks, Greg |
|
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Pivot table - remove worksheet
You could use programming to delete the sheets. If no other sheet names
start with "Sheet", you could use code similar to this in the ThisWorkbook module: '==================== Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If Left(ws.Name, 5) = "Sheet" Then If ws.Name < ActiveSheet.Name Then Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True End If End If Next ws End Sub '========================= Greg wrote: When I double click a cell in a pivot table the data shows on a new worksheet. How can I have this worksheet 'delete' when moving to another worksheet in the workbook? Thanks, Greg -- Debra Dalgleish Contextures http://www.contextures.com/tiptech.html |
|
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Pivot table - remove worksheet
Debra,
Perfect-O! I was hoping for something like that. Thanks, Greg "Debra Dalgleish" wrote: You could use programming to delete the sheets. If no other sheet names start with "Sheet", you could use code similar to this in the ThisWorkbook module: '==================== Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If Left(ws.Name, 5) = "Sheet" Then If ws.Name < ActiveSheet.Name Then Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True End If End If Next ws End Sub '========================= Greg wrote: When I double click a cell in a pivot table the data shows on a new worksheet. How can I have this worksheet 'delete' when moving to another worksheet in the workbook? Thanks, Greg -- Debra Dalgleish Contextures http://www.contextures.com/tiptech.html |
|
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Pivot table - remove worksheet
You're welcome!
Greg wrote: Debra, Perfect-O! I was hoping for something like that. Thanks, Greg "Debra Dalgleish" wrote: You could use programming to delete the sheets. If no other sheet names start with "Sheet", you could use code similar to this in the ThisWorkbook module: '==================== Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If Left(ws.Name, 5) = "Sheet" Then If ws.Name < ActiveSheet.Name Then Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True End If End If Next ws End Sub '========================= Greg wrote: When I double click a cell in a pivot table the data shows on a new worksheet. How can I have this worksheet 'delete' when moving to another worksheet in the workbook? Thanks, Greg -- Debra Dalgleish Contextures http://www.contextures.com/tiptech.html -- Debra Dalgleish Contextures http://www.contextures.com/tiptech.html |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Can you remove duplicates from Pivot Table? | Excel Discussion (Misc queries) | |||
| how to remove old selection values in the pivot table | Excel Discussion (Misc queries) | |||
| How do I remove lines from a Pivot Table in Excel? | Charts and Charting in Excel | |||
| How do I remove the (blank) from an excel pivot table? | Excel Discussion (Misc queries) | |||
| how to remove "(All)" in a pivot table using VBA | Excel Discussion (Misc queries) | |||
Linear Mode
