Pfthb

Sub FilterPivotTable()

 Dim pt As PivotTable
 Dim pf As PivotField
 Dim pi As PivotItem

 Set pt = Sheets("pivotTable").PivotTables("PivotTable1") ' PivotTable1 is the name of the table. Fix variable

 Dim pItem As String ' the value from "H3" is filtered
 pItem = Sheets("pivotTable").range("H3")

 ' Pivot Table Fields: KG Date Units Value

 Set pf = pt.PivotFields("Date")
 pf.ClearAllFilters

 ' pi is returning an error due to the cell format
 ' cell format is Date
 Set pi = pf.PivotItems(pItem)
 pi.Visible = False

 Debug.Print pi

End Sub

Sub FilterPivotTable()

 Dim pt As PivotTable
 Dim pf As PivotField
 Dim pi As PivotItem

 Set pt = Sheets("pivotTable").PivotTables("PivotTable1") ' PivotTable1 is the name of the table. Fix variable

 Dim pItem As String ' the value from "H3" is filtered
 pItem = Sheets("pivotTable").range("H3")

 ' Pivot Table Fields: KG Date Units Value

 Set pf = pt.PivotFields("Date")
 pf.ClearAllFilters

 ' pi is returning an error due to the cell format
 ' cell format is Date
 Set pi = pf.PivotItems(pItem)
 pi.Visible = False

 Debug.Print pi

End Sub

Sub FilterPivotTable()

 Dim pt As PivotTable
 Dim pf As PivotField
 Dim pi As PivotItem

 Set pt = Sheets("pivotTable").PivotTables("PivotTable1") ' PivotTable1 is the name of the table. Fix variable

 Dim pItem As String ' the value from "H3" is filtered
 pItem = Sheets("pivotTable").range("H3")

 ' Pivot Table Fields: KG Date Units Value

 Set pf = pt.PivotFields("Date")
 pf.ClearAllFilters

 ' pi is returning an error due to the cell format
 ' cell format is Date
 Set pi = pf.PivotItems(pItem)
 pi.Visible = False

 Debug.Print pi

End Sub

Sub FilterPivotTable()

 Dim pt As PivotTable
 Dim pf As PivotField
 Dim pi As PivotItem

 Set pt = Sheets("pivotTable").PivotTables("PivotTable1") ' PivotTable1 is the name of the table. Fix variable

 Dim pItem As String ' the value from "H3" is filtered
 pItem = Sheets("pivotTable").range("H3")

 ' Pivot Table Fields: KG Date Units Value

 Set pf = pt.PivotFields("Date")
 pf.ClearAllFilters

 ' pi is returning an error due to the cell format
 ' cell format is Date
 Set pi = pf.PivotItems(pItem)
 pi.Visible = False

 Debug.Print pi

End Sub

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);