<div>
Hi, 
 
pls try (F19 is changing, only the value of &quot;lumoeligibleelec&quot; is changing not the formula) 
 

<pre><code class="code-1 nolinks" id="code-20-41444649-1">Private Sub Worksheet_Change(ByVal Target As Range)
' This will change the filter on the lookup sheet
If Not (Intersect(Target, Range(&quot;F19&quot;)) Is Nothing) Then
 aValues = WorksheetFunction.Transpose(Range(&quot;lumoeligibleelec&quot;))
 Range(&quot;lumoelecplans&quot;).AutoFilter Field:=1, Criteria1:=aValues, Operator:=xlFilterValues
End If
 
End Sub
</code></pre>
Regards
</div>

<div>
Hi 
 
I have created a dynamic named range. 
 
Name: drng_PlanCodes_Filter 
RefersTo: =Lookup!$B$32:INDEX(Lookup!$B$32:$B$36,MATCH(REPT(&quot;z&quot;,255),Lookup!$B$32:$B$36,1),1) 
 
Then the code that I have used: 

<pre><code class="code-10 nolinks" id="code-20-41444660-1">Private Sub Worksheet_Change(ByVal Target As Range)
 Dim rngTemp As Excel.Range
 
 Const strValuesDNR As String = &quot;drng_PlanCodes_Filter&quot;
 Const strTableName As String = &quot;lumoelecplans&quot;
 With Me
 If Not Application.Intersect(.Range(&quot;F19&quot;), Target) Is Nothing Then 'check if F19 has changed
 If Len(.Range(&quot;F19&quot;).Value) &gt; 0 Then 'it is not blank
 On Error Resume Next
 Set rngTemp = Evaluate(ThisWorkbook.Names(strValuesDNR).RefersTo) 'check that there are filtervalues
 On Error GoTo 0
 If Not rngTemp Is Nothing Then 'don't filter if there are no filter values
 Call FilterArray(.Range(strTableName), 1, Application.Transpose(rngTemp.Value)) 'apply the filter
 End If
 End If
 End If
 End With
End Sub

Public Sub FilterArray(ByVal rngTable As Excel.Range, ByVal lngField As Long, ByVal varValues As Variant)
 With rngTable
 Call .AutoFilter(Field:=lngField, Criteria1:=varValues, Operator:=xlFilterValues)
 End With
End Sub
</code></pre>
</div>

ee-Calculatorv35.xlsm

<div>
Thanks. I'm sure all answers worked (thanks all experts), but this one was easy to check as the workbook was attached. I tried this one first and all was goo.
</div>

<div>
<div class="content wysiwyg-content">
Hi, 
 
Seeking help on an event macro that will automatically filter a table range when a cell changes. 
 
I would like the filter to return results for up to 5 record types (within the same column - column A). 
 
I have already attempted a macro within the sample spreadsheet. 
 
Further instructions on the lookup sheet. 
 
thanks 
<a href="https://filedb.experts-exchange.com/incoming/2016/02_w06/1079148/ee-Calculatorv35.xlsm" target="_blank" class="file-inline" title="Sample (97 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>ee-Calculatorv35.xlsm</a>
</div>
</div>

Hi,

Seeking help on an event macro that will automatically filter a table range when a cell changes.

I would like the filter to return results for up to 5 record types (within the same column - column A).

I have already attempted a macro within the sample spreadsheet.

Further instructions on the lookup sheet.

thanks


Excel Macro: Filter a column to return up to 5 values

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.