Run Code When E2 or E3 Change

Hi,

Could the code below be modified so when cells E2 or E3 change it runs?

Thank you

Sub FIL()
Dim a
On Error Resume Next
With Sheet2
    If .ListObjects(1).ListRows.Count Then .ListObjects(1).DataBodyRange.Delete
    a = .Evaluate("FILTER(Table1,TEXT(Table1[Date],""[$-en]mmmmyyyy"")=E3&E2)")
    .[B7].Resize(UBound(a), 6) = a
End With
End Sub

Try this in your Sheet's Module.

Option Explicit
Dim pWB As Workbook

Private Sub Worksheet_Change(ByVal Target As Range)
Set pWB = Workbooks(ThisWorkbook.Name)
Dim wSheet As Worksheet
Dim rRange As Range
Set wSheet = pWB.Worksheets("Sheet2")
Set rRange = wSheet.Range("$E$2:$E$3")
If Not Intersect(Target, rRange) Is Nothing Then

'Start your Code Here

Dim a
On Error Resume Next
With Sheet2
    If .ListObjects(1).ListRows.Count Then .ListObjects(1).DataBodyRange.Delete
    a = .Evaluate("FILTER(Table1,TEXT(Table1[Date],""[$-en]mmmmyyyy"")=E3&E2)")
    .[B7].Resize(UBound(a), 6) = a
End With

'End your Code Here

End If
End Sub

Thanks but it goes to debug at Set wSheet line

Originally Posted by BillySpivy

Thanks but it goes to debug at Set wSheet line

Change "Sheet2" in that line of code to the name of your sheet you are calling the code from.

Ah that works great you are a super genius thanks!

Glad it works!