Pivot Table and Cell Reference

[cmrluvitlevit]

I have a pivot table that has all of my project numbers and current costs associated with cost codes. I want to create a code that will take the project number in cell F1 and this will go to the 'Project_ID' in the Pivot Table, then filter the pivot table on the Project_ID.

It must also refresh the pivot table to external data through the refresh button.

I have been struggling with this for a day now and could use some help.

 

[cmrluvitlevit]

The following code does not refresh the table. It will put the value in F1 as Project_ID; however none of the values in the Pivot Table change. It does not do anything.


Sub UpdatePivotTable()
Dim PT As PivotTable
Set PT = Sheets("CTC Financial").PivotTables("PivotTable2")
PT.PivotFields("Project_ID").CurrentPage = Sheets("CTC Financial").Range("F1").Value
Set PT = Nothing

End Sub

 

[cmrluvitlevit]

I did not know about the rules for posting in different forums. Here are two links that I posted to reference if anyone has posted a response. At the time of this post, no responses.

http://www.excelforum.com/excel-programming/779562-pivot-table-and-cell-reference.html

http://www.ozgrid.com/forum/showthread.php?t=155029

 

[cmrluvitlevit]

Does anyone have any advice on additional information that I could add that would assist in coming up with an answer?

 

[cmrluvitlevit]

This is as far as I have gotten with the code:

Sub UpdatePivotTable()
Range("E4").Select
Selection.Copy
Sheets("CTC Financial").Select
Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select

Dim PT As PivotTable
Set PT = Sheets("CTC Financial").PivotTables("PivotTable2")
PT.PivotFields("Project_ID").CurrentPage = Sheets("CTC Financial").Range("F1").Value
Set PT = Nothing
PT.RefreshTable
End Sub

I am getting an error with "Unable to get pivot table properties of the worksheet class".