Making A Letter Equal A Word In Another Cell

So, here is my issue. I have this project for work where on one sheet information is put in by typing AF, CF, WF. I need to have Excel read the AF, CF, WF and make that read as the full word. Is there anyway to do that? I can get my boss to have people just put A, C, W. I know having people just type the full word would be easiest but I know they won't go for it.

You could set up a 2-column table somewhere with the initials in one column and the corresponding word in the other, and then you would be able to use the VLOOKUP function to convert the intiials into the word.

Hope that helps.

Pete

Could I set it up so that if the cell says X the it will do that?

I don't know what you mean. Post an example workbook (the FAQ describes how to), so it might better illustrate what you are trying to achieve.

Pete

Ok


This is the code that you need.

Right click on your sheet name at the bottom of excel. Select view code. Paste this and close rhe window

Wherever you type your codes on that sheet, the codes will be changed to the text Detailed below

The code is easy to modify so........................

Enjoy.

Public changeflag As Integer
Dim temp, temp2 As String


Private Sub Worksheet_Change(ByVal Target As Range)

If changeflag = 1 Then GoTo 10
changeflag = 1
codes = Array("af", "AF", "cf", "CF", "wf", "WF")

CODES2 = Array("African Food", "AFRICAN FOOD", "Chineese Food", "CHINEESE FOOD", "Western Food", "WESTERN FOOD")

If Target.Cells.Count > 1 Or InStr(Join(codes), temp) = 0 Or Len(Target.Cells.Value) > 2 Then GoTo 10

Range(Target.Cells.Address).FormulaR1C1 = CODES2((InStr(Join(codes), Target.Cells.Value) - 1) / 3)

10 changeflag = 0
End Sub

Hi Mehmetcik, I was very interested in your spreadsheet with the code and so I had a look at it, it works just fine and as you say it's easy to add additional words into the code, I have noticed tho if say you type "cf" and press enter you get exactly what the code says "chineese food" however if you happen to drag this cell to another location in the sheet, the cell you dragged it from always displays "african food" can this be stopped?

great bit of code tho, Thanks
Tony

So I need Visual Basic installed? All I have is the regular Office 2007 suite.

sorry it cant be done easily