Originally Posted by
Paul_Hossler
I'd use Change instead of SelectionChange
Private Sub Worksheet_Change(ByVal Target As Range)
Maybe attach a small sample workbook also
I'd add Application.EnableEvents = False also
Yes sure. See the following link (I tried to attach but it didn't work): https://easyupload.io/cy2uqm
I have had to delete quite a lot of data and sheets to ensure it has no sensitive data.
Nevertheless in the file you will see a pivot on the first worksheet called 'Client'. You will see the pivot from cell L10 onwards under 'details of actuals posted'. This pivot should be updating when the value in cell A1 is changed in the same sheet (which then generates a client name in cell B1 that I think the code picks up in order to amend the pivot [the font in cell B1 is white so please click on it to see the formula]- this was done my by predecessor so I'm trying to fix it!). Specifically, the filter called 'TEBUD' should be updating in the pivot (cell M11).
The error I get when implementing the code in my first post is related to this part and I'm not sure why:
Field.CurrentPage = NewCat
The amended raw data is in the 'YTD raw data' tab. Any help would be appreciated 
p.s. I thought SelectionChange was what I needed as I only want the pivot to update when I amend one cell?
Reply With Quote