Need Macro to filter pivot and provide data based on value

[Aswinraj]

Hello Can anybody please help me on this...,

In Excel Sheet 1 contains more than 100 Account images and Sheet 2 contains some Raw data and Sheet 3 contains the Pivot table.

1. When User clicks any images, based on the image clicked it should filter the data in pivot table and show it to user.
2. Raw data will be keep on updating, so whenever the data has been added to rawdata sheet, the pivot should be updated automatically.

Example: I had attached an example sheet where i had added some images,
like image 1 (ABC) it should filter the data in pivot based on image name.

 

[Chihiro]

1. Easiest method I can think of is to assign following code to each image by right clicking.

Sub ImgClick()
Dim sName As String
Dim pFilter As String

sName = ActiveSheet.Shapes(Application.Caller).Name
pFilter = ActiveWorkbook.Sheets("Dashboard").PivotTables("PivotTable1").PivotFields("Acct name").CurrentPage

If pFilter = sName Then
    Exit Sub
Else
    ActiveWorkbook.Sheets("Dashboard").PivotTables("PivotTable1").PivotFields("Acct name").CurrentPage = sName
End If
End Sub

2. Use named range to dynamically define Pivot Range.



See attached sample.

Edit: If you want to jump to Dashboard after clicking on the image add code below just before End If.

ActiveWorkbook.Sheets("Dashboard").Activate