Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
NDB
 
Posts: n/a
Default Cell value prefix

Hi,

I'm looking for a way to implement this ...

When a user selects cell A1 and enters a value (text), I would like the
displayed text to display a prefix also.

How can this be achieved?

eg. If user types in cell A1 the text value "Paul", when the enter key is
pressed, I would like the cell value displayed to be "England - Paul".
Likewise for example typing in "David" would give "England - David".

Cand this be done in using VBA or cell formatting?

TIA.

--
NDB.

(Remove [nospam] from e-mail address when corresponding by e-mail)



  #2   Report Post  
Tom Ogilvy
 
Posts: n/a
Default

For VBA (you posted this in programming)
? ActiveCell.NumberFormat
"England - "@

- Manually
From the Menu
Format, cells, Number format Tab, choose custom

"England - "@




--
Regards
Tom Ogilvy


"NDB" wrote in message
...
Hi,

I'm looking for a way to implement this ...

When a user selects cell A1 and enters a value (text), I would like the
displayed text to display a prefix also.

How can this be achieved?

eg. If user types in cell A1 the text value "Paul", when the enter key is
pressed, I would like the cell value displayed to be "England - Paul".
Likewise for example typing in "David" would give "England - David".

Cand this be done in using VBA or cell formatting?

TIA.

--
NDB.

(Remove [nospam] from e-mail address when corresponding by e-mail)





  #3   Report Post  
Bernie Deitrick
 
Posts: n/a
Default

NDB,

You could use the custom format of

;;;"England - "@

But that would only affect how the value is displayed. But you could use an
event to change the actual value - this example (below) will work on column
A. Copy the code, right click on the cell tab and select "View Code" then
paste in the window that appears:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Application.EnableEvents = False
If Left(Target.Value, 10) < "England - " Then
Target.Value = "England - " & Target.Value
End If
Application.EnableEvents = True
End If
End Sub

HTH,
Bernie
MS Excel MVP


"NDB" wrote in message
...
Hi,

I'm looking for a way to implement this ...

When a user selects cell A1 and enters a value (text), I would like the
displayed text to display a prefix also.

How can this be achieved?

eg. If user types in cell A1 the text value "Paul", when the enter key is
pressed, I would like the cell value displayed to be "England - Paul".
Likewise for example typing in "David" would give "England - David".

Cand this be done in using VBA or cell formatting?

TIA.

--
NDB.

(Remove [nospam] from e-mail address when corresponding by e-mail)





  #4   Report Post  
NDB
 
Posts: n/a
Default

"Tom Ogilvy" wrote in message
...
For VBA (you posted this in programming)
? ActiveCell.NumberFormat
"England - "@

- Manually
From the Menu
Format, cells, Number format Tab, choose custom

"England - "@




--
Regards
Tom Ogilvy


"NDB" wrote in message
...
Hi,

I'm looking for a way to implement this ...

When a user selects cell A1 and enters a value (text), I would like the
displayed text to display a prefix also.

How can this be achieved?

eg. If user types in cell A1 the text value "Paul", when the enter key

is
pressed, I would like the cell value displayed to be "England - Paul".
Likewise for example typing in "David" would give "England - David".

Cand this be done in using VBA or cell formatting?

TIA.

--
NDB.

(Remove [nospam] from e-mail address when corresponding by e-mail)






Excellent. Thanks Tom.


--
NDB.

(Remove [nospam] from e-mail address when corresponding by e-mail)


  #5   Report Post  
NDB
 
Posts: n/a
Default

"Bernie Deitrick" <deitbe @ consumer dot org wrote in message
...
NDB,

You could use the custom format of

;;;"England - "@

But that would only affect how the value is displayed. But you could use

an
event to change the actual value - this example (below) will work on

column
A. Copy the code, right click on the cell tab and select "View Code" then
paste in the window that appears:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Application.EnableEvents = False
If Left(Target.Value, 10) < "England - " Then
Target.Value = "England - " & Target.Value
End If
Application.EnableEvents = True
End If
End Sub

HTH,
Bernie
MS Excel MVP


"NDB" wrote in message
...
Hi,

I'm looking for a way to implement this ...

When a user selects cell A1 and enters a value (text), I would like the
displayed text to display a prefix also.

How can this be achieved?

eg. If user types in cell A1 the text value "Paul", when the enter key

is
pressed, I would like the cell value displayed to be "England - Paul".
Likewise for example typing in "David" would give "England - David".

Cand this be done in using VBA or cell formatting?

TIA.

--
NDB.

(Remove [nospam] from e-mail address when corresponding by e-mail)






And thanks to you too Bernie.


--
NDB.

(Remove [nospam] from e-mail address when corresponding by e-mail)


Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Maintaining cell reference after sorting GRITS Excel Discussion (Misc queries) 2 April 30th 23 07:42 PM
inserting data from a row to a cell, when the row number is specified by a formula in a cell [email protected] New Users to Excel 2 January 6th 05 07:18 AM
Addition to Turn cell red if today is greater or equal to date in cell Rich New Users to Excel 2 December 9th 04 02:06 AM
GET.CELL Biff Excel Worksheet Functions 2 November 24th 04 07:16 PM
VLookup resulting in a blank cell... KempensBoerke Excel Worksheet Functions 1 October 28th 04 09:57 PM


All times are GMT +1. The time now is 11:14 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"