Как заставить Частный Sub работать вместе с «нормальным» Sub? - PullRequest
Новая
       13

Как заставить Частный Sub работать вместе с «нормальным» Sub?

1 голос
/ 29 апреля 2019

У меня есть большая база писем от примерно 200 компаний.Я пытаюсь создать индивидуальные списки для каждой компании, которые включают всех пользователей этой компании.Идея состоит в том, чтобы иметь целевую ячейку, в которой имена компаний повторяются, а затем обновлять сводную таблицу на основе целевой ячейки.Полученный список печатается в формате PDF.

В приведенном ниже коде верхний раздел фильтрует названия компаний в целевой ячейке и печатает каждый раз в PDF.

Код внизу фильтрует сводную таблицу на основе названия компании в целевой ячейке.Этот раздел также работает, но ТОЛЬКО если я нахожусь в рабочем листе и меняю название компании самостоятельно, т.е.без вышеуказанного макроса.

Sub UserList_Creation()
'Define Worksheet
Dim wk As Worksheet

Set wk = Worksheets("Users")

'Add +1 to the Lookup Cell
Do
Range("F1").Value = Range("F1").Value + 1


' SavePDF Macro
'

'
ChDir "C:\Users\jhercksen\Desktop\Q2_2019"
wk.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\jhercksen\Desktop\Q2_2019\Inactive Companies\" & Range("B4").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

'Loop through last three steps until the below is satisfied
Loop Until Range("F1") >= Range("F2")
End Sub

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'This line stops the worksheet updating on every change, it only updates when cell H6 or H7 is touched
If Intersect(Target, Range("B3")) Is Nothing Then Exit Sub

'Variables
Dim pt As PivotTable
Dim Field As PivotField
Dim NewCat As String

'Details for Pivottable location
Set pt = Worksheets("Users").PivotTables("PivotTable1")
Set Field = pt.PivotFields("Company ")
NewCat = Worksheets("Users").Range("B3").Value

'This updates and refreshes the PIVOT table
With pt
Field.ClearAllFilters
Field.CurrentPage = NewCat
pt.RefreshTable
End With

End Sub

Я хочу выяснить, как эти дваМакросы работают вместе, поэтому, когда 1-й макрос меняет название компании в целевой ячейке, 2-й макрос фильтрует сводную таблицу до правильного списка адресов электронной почты компании перед печатью в PDF.

Любая помощь очень ценится!

...