If Then Function Error VBA

[Lauren123]

Hi, I have this code and it shows me "Object doesn't support this property or method" I dont know if anybody knows waht might be the mistake!


Sub Horror()


Call LastRowPivotTable
With ThisWorkbook
Set wb = ThisWorkbook
Set DR = wb.Sheets("Draft")
Set PT = wb.Sheets("Pivot Table I")
MasterAcct = wb.DR.Range("C4")


If wb.DR.Range("T7").Value = "1" Then

wb.PT.PivotFields("Master Account").ClearAllFilters
wb.PT.PivotFields("Master Account").CurrentPage = MasterAcct
Else
wb.PT.Range("B4:L & LastRowPivot").ClearContents
End If
End With


End Sub




This is the call I have
Sub LastRowPivotTable()


Dim ThisWK As String


ThisWK = ThisWorkbook.Name


LastRowPivot = Workbooks(ThisWK).Worksheets("Pivot Table I").Cells(Rows.Count, "B").End(xlUp).Row




End Sub

Thanks!

 

[JLGWhiz]

I removed a lot of unecessary items from the code and put your last row variable in the main code instead of a macro call. See if it works for you.

Sub Horror2()
 Dim LastRowPivot As Long, DR As Worksheet, PT As Worksheet, MasterAcct As Variant
 'Set wb = ThisWorkbook
 Set DR = Sheets("Draft")
 Set PT = Sheets("Pivot Table I")
 MasterAcct = DR.Range("C4").Value
     If DR.Range("T7").Value = "1" Then
         LastRowPivot = Worksheets("Pivot Table I").Cells(Rows.Count, "B").End(xlUp).Row
         PT.PivotFields("Master Account").ClearAllFilters
         PT.PivotFields("Master Account").CurrentPage = MasterAcct
     Else
         PT.Range("B4:L & LastRowPivot").ClearContents
     End If
End Sub

 

[Lauren123]

Hello! thanks for answering!

I did what you said and is showing "Method od data member not found" PT.PivotFields("Master Account").ClearAllFilters and selects the part i put on bold.

I dont know if you could help me fix that?

Thanks!

 

[JLGWhiz]

Idon't work with pivot tables, but if I read the help file correctly, you probably need to add the PivotTable reference into these two lines of code.

[COLOR=#B22222][/COLOR]PT.[COLOR=#B22222]PivotTableRefHere.[/COLOR]Pi[COLOR=#B22222][/COLOR]votFields("Master Account").ClearAllFilters
[COLOR=#B22222][/COLOR]PT.[COLOR=#B22222]PivotTableRefHere[/COLOR].PivotFields("Master Account").CurrentPage = MasterAcct