View Single Post
  #6   Report Post  
BOB KHAN
 
Posts: n/a
Default

Hello Gordon,

I am trying to add LDM- To column which has exsisting data

CELE-315 SHOULD BECOME LDM-CELE-320BX
CELE-315BX SHOULD BECOME LDM-CELE-315BX

PLEASE ADVISE,

BOB

"Gord Dibben" wrote:

And to give you more options like a choice of text and left or right addition

Sub Add_Text()
Dim Cell As Range
Dim moretext As String
Dim thisrng As Range
On Error GoTo endit
whichside = InputBox("Left = 1 or Right =2")
Set thisrng = Range(ActiveCell.Address & "," & Selection.Address) _
.SpecialCells(xlCellTypeConstants, xlTextValues)
moretext = InputBox("Enter your Text")
If whichside = 1 Then
For Each Cell In thisrng
Cell.Value = moretext & Cell.Value
Next
Else
For Each Cell In thisrng
Cell.Value = Cell.Value & moretext
Next
End If
Exit Sub
endit:
MsgBox "only formulas in range"
End Sub


Gord Dibben Excel MVP

On Thu, 16 Dec 2004 11:59:27 -0800, "Jason Morin"
wrote:

Select the range and run:

Sub AddSuffix()
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In Selection
With cell
If Not .HasFormula Then
.Value = .Value & "scc"
End If
End With
Next
Application.ScreenUpdating = True
End Sub

---
HTH
Jason
Atlanta, GA

-----Original Message-----
I want to add the suffix "scc" into the contiguous cells

of several columns
on an existing Excel spreadsheet. There is existing

data (alpha/numeric) in
each of the cells already, so the scc suffix would be

added to the right of
the existing entries. I'm trying to avoid having to

enter each suffix into
each cell individually. I have Excel 2002 and Windows

XP Professional.
Thank you.
.