Put in "PIN" change to Initial


New Member
May 2, 2018
Ok, so I know how to do this using a back page sheet


But what I ultimately need and can't figure out is how to do this in the same cell. Rather than typing the "PIN" in Sheet2 B1 to input the initial in Sheet 1 M2, I need to be able to type the "PIN" into Sheet 1 M2 and have it change to the initial when I hit enter and leave the cell.

Any ideas?


Well-known Member
Feb 6, 2012
You could use a worksheet change event. By placing this code in the Sheet Module.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$2" Then
    If Target.Value = "1234" Then
    Target.Value = "GM"
    ElseIf Target.Value = "2345" Then
    Target.Value = "AP"
    End If
End If
End Sub
Last edited:

Forum statistics

Latest member

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...