VBA Если ячейка равна «» Имя ", то вроде

Question

Я новичок в vba. Мне нужен кто-то с большим опытом, чтобы смотреть на это, как за 4 секунды, чтобы обучить меня. :)

Моя проблема заключается в первой части это хорошо (как показано ниже). на основе имен в ячейке D5, (например, Дон или Кит) Я хочу сортировки произойти. для этой первой части она работает.

эта часть работы

Sheets("Input Tab").Select 
Range("D5").Select 
If Selection.Value = "Don" Then 

Sheets("Cost Center Comparison").Range("$A$5:$P$815").AutoFilter Field:=2, Criteria1:=Array("10" _ 
    , "11", "12", "13", "14", "15", "20", "21", "30", "51", "52", "54", "55", "57", "58", "60"), Operator:=xlFilterValues 

вопрос w с ElseIf здесь

Затем я хочу вернуться к той же самой ячейке (D5), чтобы постоянно ее оценивать. Если имя изменится, будет фильтр.

ElseIf Sheets("Input tab").Range("D5").Selection.Value = "Job/Bob" Then 
Sheets("Cost Center Comparison").Range("$A$5:$P$815").AutoFilter Field:=2, Criteria1:=Array("12"), Operator:=xlFilterValues 

ElseIf по какой-то причине не работает, и я не понимаю синтаксис достаточно хорошо, чтобы понять, почему. Любая помощь?

Answer 1

Нечто подобное могло бы работать лучше для вас ...

Sub FilterOnName()  
    Dim nm As String, arr As Variant  
    nm = ActiveWorkbook.Sheets("Input Tab").Range("D5").Value 

    Select Case nm 
     Case "Don": arr = Array("10", "11", "12", "13", "14", "15", _ 
           "20", "21", "30", "51", "52", "54", _ 
           "55", "57", "58", "60") 

     Case "Job/Ron": arr = Array("12")   
     'Case Else: define a default here if no match 
    End Select 

    If Not IsEmpty(arr) Then   
     ActiveWorkbook.Sheets("Cost Center Comparison").Range("$A$5:$P$815") _ 
       .AutoFilter Field:=2, Criteria1:=arr, Operator:=xlFilterValues   
    End If   
End Sub