How to set a condition on a formatting Macro

[Kym_beginner_in_VBA]

Hi
I've got a simple address table of 5 columns, which i have a macro running too auto sort it by name ascending. however to avoid it sorting before i fill in all the fields, i have to type the name in last.
is there a way to only make the auto sort happen if data is entered into collumn 'E' which is my postcode column?

here is the code that i found online which works great, but now i'd really like to enter all data fields before the table autosorts into a name order. so id like a condition for the E column (which just happens to be the postcode column) only as D does not always have a value abyway

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
     If ActiveSheet.Range("E2").Value = "" Then Exit Sub
        Range("A1").Sort Key1:=Range("A2"), _
          Order1:=xlAscending, Header:=xlYes, _
          OrderCustom:=1, MatchCase:=False, _
          Orientation:=xlTopToBottom
         
    End If
   
End Sub

 

[Peter_SSs]

Welcome to the MrExcel board!

When posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug. My signature block below has more details. I have added them for you this time.

Try replacing your code with this.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns("E")) Is Nothing Then
        Range("A1").Sort Key1:=Range("A2"), _
          Order1:=xlAscending, Header:=xlYes, _
          OrderCustom:=1, MatchCase:=False, _
          Orientation:=xlTopToBottom
    End If
End Sub

 

[Kym_beginner_in_VBA]

Welcome to the MrExcel board!

When posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug. My signature block below has more details. I have added them for you this time.

Try replacing your code with this.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns("E")) Is Nothing Then
        Range("A1").Sort Key1:=Range("A2"), _
          Order1:=xlAscending, Header:=xlYes, _
          OrderCustom:=1, MatchCase:=False, _
          Orientation:=xlTopToBottom
    End If
End Sub

Awesome! i'm still learning this stuff. and its a headache sometimes to do the simplest of things. That worked a treat.

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.