Hello,
I have a VBA script that send the emails out to the group of people different sheets. What I would like to do is to send one pivot table that is slicer filtered.
How do I insert the slicer code into the loop so it selects and deselects right filters?
Sub send_updates()
Dim wb As Workbook
Dim DSPc, ORP As Worksheet
Set wb = Workbooks("ORP_tracker.xlsm")
Set DSPc = Workbooks("ORP_tracker.xlsm").Worksheets("DSP contacts")
Set ORP = Workbooks("ORP_tracker.xlsm").Worksheets("ORP")
On Error Resume Next
sn = DSPc.Cells(1).CurrentRegion.Value
For i = 2 To UBound(sn)
wb.EnvelopeVisible = True
Set Sendrng = wb.Worksheets(sn(i, 1)).Range("A1:K100")
With Sendrng
.Parent.Select
With .Parent.MailEnvelope
'.Introduction = sn(i, 4)
With .Item
.to = sn(i, 2)
'.CC = sn(i, 3)
.Subject = sn(i, 4)
.Intro = sn(i, 5)
.Send
End With
End With
End With
Next
ORP.Select
End Sub
Sub Macro2()
With ActiveWorkbook.SlicerCaches("Slicer_DSP")
.SlicerItems("FULL").Selected = True
.SlicerItems("DTTD").Selected = False
.SlicerItems("FDTL").Selected = False
.SlicerItems("GSSL").Selected = False
.SlicerItems("MCHL").Selected = False
.SlicerItems("NGC").Selected = False
.SlicerItems("PCSL").Selected = False
.SlicerItems("UKED").Selected = False
.SlicerItems("WCDL").Selected = False
End With
'ActiveWorkbook.SlicerCaches("Slicer_DSP").ClearManualFilter
End Sub
Bookmarks