title: USE Vba to Iterate through Pivot Table while copying single field into separate sheet
body: <p>I am using Excel 2013 and I have a pivot table with hundreds of filter values that I need to iterate through, making each one visiible individually , then copy the filtered value, and a specific cell (non-Pivot, and IF >0) and paste it (values only) into a specified sheet and the move on to the next pivot item and do the same. 
  I found some code that is similar to what I want   </p>
  
  <pre><code>Sub PivotStockItems()
  Dim i As Integer
  Dim sItem As String
  Application.ScreenUpdating = False
  With ActiveSheet.PivotTables("PivotTable1")
      .PivotCache.MissingItemsLimit = xlMissingItemsNone
      .PivotCache.Refresh
      With .PivotFields("Country")
          '---hide all items except item 1
          .PivotItems(1).Visible = True
          For i = 2 To .PivotItems.Count
              .PivotItems(i).Visible = False
          Next
          For i = 1 To .PivotItems.Count
              .PivotItems(i).Visible = True
              If i &lt;&gt; 1 Then .PivotItems(i - 1).Visible = False
              sItem = .PivotItems(i)
              Cells.Copy
              Workbooks.Add
              With ActiveWorkbook
                  .Sheets(1).Cells(1).PasteSpecial _
                      Paste:=xlPasteValuesAndNumberFormats
                  .SaveAs "C:\TEST\MyReport-" &amp; sItem &amp; ".xlsx", _
                      FileFormat:=xlOpenXMLWorkbook
                  .Close
              End With
          Next i
      End With
  End With
  </code></pre>
  
  <p>End Sub
  However, I know I need to cut out</p>
  
  <pre><code>Cells.Copy
          Workbooks.Add
          With ActiveWorkbook
              .Sheets(1).Cells(1).PasteSpecial _
                  Paste:=xlPasteValuesAndNumberFormats
              .SaveAs "C:\TEST\MyReport-" &amp; sItem &amp; ".xlsx", _
                  FileFormat:=xlOpenXMLWorkbook
              .Close
  </code></pre>
  
  <p>I just do not know what to add to for the copying of a certain cell (non-Pivot) and pasting it into a different sheet assuming it meets the >0 criteria. I am relatively new to VBA and I am trying to improve my skills. </p>
  
  <p>Adding Screenshots for Reference
  Essentially, I am wanting to iterate through B3 (Pivot Table) and copy B3 and F46 into the new sheet pictured below If F46>0. :</p>
  
  <p><a href="https://i.stack.imgur.com/w4bJo.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/w4bJo.png" alt="Pivot Table"></a>
  <a href="https://i.stack.imgur.com/wn8gA.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/wn8gA.png" alt="Sheet to Copy to"></a>
  Thanks.</p>