VBA-Adding Text After Number Entry

[bamaisgreat]

I have few cells B12, B18 AND B30 That i would like to enter in a number such as 50 into B12 and then it show 50-Extras Added.

Is this something that could be done?

 

[jproffer]

Something like this in the worksheet code module seems to work:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B12, B18, B30")) Is Nothing Then
    Application.EnableEvents = False
    Target.Value = Target.Value & "-Extras Added"
    Application.EnableEvents = True
End If
End Sub

 

[igold]

Hi,

Could you perhaps re-phrase exactly what you like to accomplish, I can't figure out what your requirements are.

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter a value in B12, B18 or B30 and exit the cell.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B12,B18,B30")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target = Target & "-Extras Added"
    Application.EnableEvents = True
End Sub

 

[Joe4]

Right-click on the sheet tab name at the bottom of the screen, select "View Code", and paste this VBA code in the resulting VB Editor window:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim isect As Range
    Dim cell As Range
    
    Set isect = Intersect(Target, Range("B12:B12, B18:B18, B30:B30"))
    
    If Not isect Is Nothing Then
        Application.EnableEvents = False
        For Each cell In isect
            If cell <> "" Then cell = cell & "-Extras Added"
        Next cell
        Application.EnableEvents = True
    End If
    
End Sub

This should automatically do what you want.

 

[bamaisgreat]

Perfect Worked Great