Append text to new entries in a specific column.

gvinodnair

New Member
Joined
Jan 30, 2012
Messages
3
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

Well-known Member
Joined
Jun 30, 2008
Messages
6,649
Try this Worksheet_Change macro:

Code:
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

Well-known Member
Joined
Apr 27, 2011
Messages
919
another option

Code:
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

New Member
Joined
Jan 30, 2012
Messages
3
Try this Worksheet_Change macro:

Code:
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

New Member
Joined
Jan 30, 2012
Messages
3
Try this Worksheet_Change macro:

Code:
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

Well-known Member
Joined
Apr 27, 2011
Messages
919
You are welcome, but the thanks should go to MrKowz as you are using his code.
 

MrKowz

Well-known Member
Joined
Jun 30, 2008
Messages
6,649
:biggrin: Not a problem. Thank you for the feedback, and I'm glad we were able to find a solution for your needs.

Cheers!
 

Forum statistics

Threads
1,082,250
Messages
5,364,020
Members
400,774
Latest member
Goldi paul

Some videos you may like

This Week's Hot Topics

  • populate from drop list with multiple tables
    Hi All, i have a drop list that displays data, what i want is when i select one of those from the list to populate text from different tables on...
  • Find list of words from sheet2 in sheet1 before a comma and extract text vba
    Hi Friends, Trying to find the solution on my task. But did not find suitable one to the need. Here is my query and sample file with details...
  • Dynamic Formula entry - VBA code sought
    Hello, really hope one of you experts can help with this - i've spent hours on this and getting no-where. .I have a set of data (more rows than...
  • Listbox Header
    Have a named range called "AccidentsHeader" Within my code I have: [CODE]Private Sub CommandButton1_Click() ListBox1.RowSource =...
  • Complex Heat Map using conditional formatting
    Good day excel world. I have a concern. Below link have a list of countries that carries each country unique data. [URL...
  • Conditional formatting
    Hi good morning, hope you can help me please, I have cells P4:P54 and if this cell is equal to 1 then i want row O to say "Fully Utilised" and to...
Top