Pivot tables Issues

[dessim]

Evening Ppl,

I have some issue with Pivot Tables.

Dont mind bear with me & advise some solutions if possible.Greatly appreciated.

https://drive.google.com/open?id=1qtKw3ZJWd8ImthY4GWhPdr6uofQa1fbl

I have attached a workbook - Demo Ques.

Basically I am facing some issue when i click on the data value on the pivot table sheet.

Ques 1: when click North City Data Value -> Sheet 1 will appeared as seen. All the data will be "squeezed" with the columns.

1) Is there any method to autofit the content within each individual cells (to show the hidden content)
rather than to manually have to use "wrap text function" over the cell ?

2) Is there any setting we could do to align all the datas within the cells

Ques 2: When I click on North City Data Value more than 1 times, sheet 1, Sheet8, Sheet 9 will appeared accordingly. Number of sheets appearing will be based on the number of times I clicked.

1) Is there any way this sheet appearing feature in pivot tabel can be "control" or manually deleting the new sheets is the only solution ?

Seek some kind assistance one the above.


Thank you.

Regards
Des

 

[mole999]

Drilling to detail creates a new sheet and does nothing more with formating

There are a number of routines around that that can delete sheets name sheet when you close or change focus

other than that I think you are seeing bog standard events

make sure your main sheet is not called sheets-something

 

[dessim]

Drilling to detail creates a new sheet and does nothing more with formating

There are a number of routines around that that can delete sheets name sheet when you close or change focus

other than that I think you are seeing bog standard events

make sure your main sheet is not called sheets-something

Seek your kind enlightenment.
Pardon my poor understanding on the issue, I dont really get what u mean.

 

[mole999]

the code is like

Sub macro2()

Dim i As Long

Application.DisplayAlerts = False

For i = 1 to Worksheets.Count

If Worksheets(i).Name Like "Sheets*" Then Worksheets(i).Delete

Next i

Application.DisplayAlerts = True

End Sub</pre></pre>

depends how you want to use it to auto delete on workbookclose maybe