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.
.
|