Home |
Search |
Today's Posts |
#1
![]() |
|||
|
|||
![]()
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
![]() |
|||
|
|||
![]()
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
![]() |
|||
|
|||
![]()
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
![]() |
|||
|
|||
![]()
"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
![]() |
|||
|
|||
![]()
"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 |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Maintaining cell reference after sorting | Excel Discussion (Misc queries) | |||
inserting data from a row to a cell, when the row number is specified by a formula in a cell | New Users to Excel | |||
Addition to Turn cell red if today is greater or equal to date in cell | New Users to Excel | |||
GET.CELL | Excel Worksheet Functions | |||
VLookup resulting in a blank cell... | Excel Worksheet Functions |