Append text to new entries in a specific column.

[gvinodnair]

Hi,
I want to add the string "_manual" to any new data entries which I will be making in column number "D". Can anybody kindly advise macro for this?
Thanks in advance.
Vinod Nair.

 

[MrKowz]

Try this Worksheet_Change macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
    Application.EnableEvents = False
    If Right(Target, 7) <> "_manual" Then
        Target.Value = Target.Value & "_manual"
    End If
End If
Application.EnableEvents = True
End Sub

 

[vaskov17]

another option

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 4 And Len(Trim(Target.Value)) > 0 Then
        Target.Value = Target.Value & "_manual"
    End If
    Application.EnableEvents = True
End Sub

 

[gvinodnair]

Try this Worksheet_Change macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
    Application.EnableEvents = False
    If Right(Target, 7) <> "_manual" Then
        Target.Value = Target.Value & "_manual"
    End If
End If
Application.EnableEvents = True
End Sub

Excellent!! Thanks a lot dear vaskov17

 

[gvinodnair]

Try this Worksheet_Change macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
    Application.EnableEvents = False
    If Right(Target, 7) <> "_manual" Then
        Target.Value = Target.Value & "_manual"
    End If
End If
Application.EnableEvents = True
End Sub

Thanks a lot dear MrKowz. Appreciate your prompt support

 

[vaskov17]

You are welcome, but the thanks should go to MrKowz as you are using his code.

 

[MrKowz]

Not a problem. Thank you for the feedback, and I'm glad we were able to find a solution for your needs.

Cheers!