double click on highlighted cells in pivot table

[ilkhomjon]

Hi. I have more than 100 hundred pivot tables with highlighted cells in different workbooks. And I need to double click on each of the highlighted cells to see the details of those highlighted cells. can you help me to write a code for automatically double clicking on highlighted cells in pivot table. it would be very helpful.

 

[Crystalyzer]

Assuming you want to show the details of the highlighted cells in a new worksheet? If so the code that will do this is

Range("B10").ShowDetail = True

Of course you will have to surround this with the specific worksheets and actual range addresses, but the code above will open a new worksheet for the details of the cell if it is contained in a pivot table.

 

[ilkhomjon]

Assuming you want to show the details of the highlighted cells in a new worksheet? If so the code that will do this is

Range("B10").ShowDetail = True

Of course you will have to surround this with the specific worksheets and actual range addresses, but the code above will open a new worksheet for the details of the cell if it is contained in a pivot table.

This is a code for double clicking every cell in pivot table that I found in this website and I need to change it into a code that doesn't doubleclick if the cell is not highlighted. I need details of only highlighted cells and there are more than 50 highlighted cells out of 500 cells in pivot table. Could you please help me.

 

[Crystalyzer]

For Each c In .DataBodyRange
    If c.Interior.Color <> xlNone Then
        c.ShowDetail = True
        ActiveSheet.Name = c.Address
    End If
Next

 

[ilkhomjon]

For Each c In .DataBodyRange
    If c.Interior.Color <> xlNone Then
        c.ShowDetail = True
        ActiveSheet.Name = c.Address
    End If
Next

thank you for your help. it helped me a lot