Экземпляр макроса вызывает странное поведение

Question

Привет, здесь очень много нового для макросов Excel, работающих на одном из них, который сортируется с использованием автофильтра. Он отлично работает и делает то, что я хочу, только когда я пытаюсь прибегнуть к данным, которые он показывает, в неправильном листе. Во всяком случае вот мой макрос

Sub Hide_Unassigned() 
Worksheets("Resource View (2)").Activate 
Dim LastRow As Long, c As Range 
Application.EnableEvents = False 
LastRow = Cells(Cells.Rows.Count, "D").End(xlUp).Row 

ActiveWorkbook.Worksheets("Master Data").AutoFilter.Sort.SortFields.Clear 
ActiveWorkbook.Worksheets("Master Data").AutoFilter.Sort. _ 
    SortFields.Add Key:=Range("Z1:Z200"), SortOn:=xlSortOnValues, Order:= _ 
    xlDescending, DataOption:=xlSortNormal 
     With ActiveWorkbook.Worksheets("Master Data").AutoFilter.Sort 
    .Header = xlYes 
    .MatchCase = False 
    .Orientation = xlTopToBottom 
    .SortMethod = xlPinYin 
    .Apply 
End With 
On Error Resume Next 
For Each c In Range("D1:D" & LastRow) 
If c.Value = "Unassigned" Then 
    c.EntireRow.Hidden = True 
Else 
    c.EntireRow.Hidden = False 
End If 

Next 
    ActiveWorkbook.Worksheets("Master Data").AutoFilter.Sort.SortFields.Clear 
    ActiveWorkbook.Worksheets("Master Data").AutoFilter.Sort. _ 
    SortFields.Add Key:=Range("D1:D200"), SortOn:=xlSortOnValues, Order:= _ 
    xlAscending, DataOption:=xlSortNormal 
     With ActiveWorkbook.Worksheets("Master Data").AutoFilter.Sort 
    .Header = xlYes 
    .MatchCase = False 
    .Orientation = xlTopToBottom 
    .SortMethod = xlPinYin 
    .Apply 
End With 
On Error GoTo 0 
Application.EnableEvents = True 
End Sub 

Как я сказал, что все работает нормально, за исключением, когда я пытаюсь заново сортировать данные в основных данных он показывает в представлении ресурсов (2) листа. Затем его можно удалить, просто перетащив его, но я не думаю, что это достаточно.

Заранее спасибо за любые предложения или помочь

Answer 1

Если бы волне мозга и сумели разобраться в этом самом, просто перемещая последнюю часть макроса будет вызвана, когда я сам доступом к лист основных данных.

Answer 2

Не использовать Active(anything). Это то, что произойдет, когда вы это сделаете.

Добавить:

Dim MstrDataWS as Worksheet 
Dim ResWS as Worksheet 
Set ResWS = Worksheets("Resource View (2)") 
Set MstrDataWS = ActiveWorkbook.Worksheets("Master Data") 

Затем, каждый раз, когда вы хотите сослаться на один рабочий лист или другой, используйте MstrDataWS или ResWS, в зависимости от обстоятельств. Это гарантирует, что вы ссылаетесь на правильный лист. Он также позволяет устранить все ссылки на .Activate и .Select.

Кроме того, Cells() и Range() относятся к тому, что является активным листом, поэтому вы можете потеряться там. Откорректируйте эти команды для использования ResWS.Cells() или MstrDataWS.Cells(), если необходимо.