Prepending text to a cell entry
 

How can I prepend the contstant string "S" to each numeric value entered into
the cells in a column? For example, if a user enters "12345" into a cell, I
want the cell value to be "S12345".

using event code

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1:A100")) Is Nothing Then
With Target
.Value = "S" & .Value
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Kendosan1" wrote in message
...
How can I prepend the contstant string "S" to each numeric value entered
into
the cells in a column? For example, if a user enters "12345" into a cell,
I
want the cell value to be "S12345".

Custom Format as "S"0.00

Leave off the .00 if you just want whole numbers.

The cell value will still be 12345 but display as S12345

Gord Dibben Excel MVP

On Mon, 27 Dec 2004 10:25:09 -0800, Kendosan1
wrote:

How can I prepend the contstant string "S" to each numeric value entered into
the cells in a column? For example, if a user enters "12345" into a cell, I
want the cell value to be "S12345".