VBA code to run and call macro if any new text is added to a column

[willow1985]

I am looking for a code that will run if any new text is added to a column.
Basically In column D:D there will be a drop down list of employee names that as soon as a name is selected I will be having excel e-mail that particular employee information.
I just need help with what will trigger that macro.

I only know the code if there is specific text involved but in this case employee names change all the time...

Thank you

Carla

 

[Trebor76]

Hi Carla,

Try this event macro on the tab you want the email code to run after a change in Col. D:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 4 Then
        With Application
            .ScreenUpdating = False
            .EnableEvents = False
            'Hi Carla - your email macro will go here
            .EnableEvents = True
            .ScreenUpdating = True
        End With
    End If

End Sub

Regards,

Robert

 

[willow1985]

Is there a code that could call an already created Macro instead as soon as any new data is entered in column D?

Like:

If Target.Column = 4 Then Call Notify

Notify is the name of the Macro

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("D:D")) Is Nothing Then Call Notify
End Sub

 

[willow1985]

This works but it runs any time any cell is changed in column D. Is there a way to make it ignore if you delete anything in column D/if you make the cell blank?
Say I select an employee name, the macro will run however if I delete that name I do not want it to run...

 

[Fluff]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("D:D")) Is Nothing Then
        If Target <> "" Then Call Notify
    End If
End Sub

 

[willow1985]

As always Fluff, you are amazing!

Works perfect and love the simplicity of it. Thank you again!

 

[Fluff]

Glad we could help & thanks for the feedback

 

[willow1985]

Hi Carla,

Try this event macro on the tab you want the email code to run after a change in Col. D:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 4 Then
        With Application
            .ScreenUpdating = False
            .EnableEvents = False
            'Hi Carla - your email macro will go here
            .EnableEvents = True
            .ScreenUpdating = True
        End With
    End If

End Sub

Regards,

Robert

Thank you for your code as well Trebor76. I already had the macro and was looking for something slightly different but again Thank you for responding to my question, I appreciate it