Help completing Current MACRO - Enable Auto Sort Of Table

[98aallen]

Hi,

Im looking to auto sort a column in sheet3, when data i, column J of sheet1 is changed, i currently have the bellow but it doesnt work?

any help is greatly appreciated

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target("sheet1").Range("J:J")) Is Nothing Then
Range("A3").Sort Key1:=Range("A4"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

 

[NARAYANK991]

Hi ,

This works with a range ; in case your data is in an Excel table , the code will need to be changed.

Private Sub Worksheet_Change(ByVal Target As Range)
            If Not Intersect(Target, Me.Range("J:J")) Is Nothing Then
               With ThisWorkbook.Worksheets("sheet3")
                    .Range("A3:A100").Sort Key1:=.Range("A4:A100"), _
                                      Order1:=xlAscending, Header:=xlYes, _
                                      OrderCustom:=1, MatchCase:=False, _
                                      Orientation:=xlTopToBottom
               End With
            End If
End Sub