First, I connect the the MS NewsServers and don't get to see your
attachment--and most people like it that way.
The =vlookup() suggestion wouldn't replace T1 with your phrase. It would only
put your phrase in another cell.
You could have a macro that did update the cell as soon as you typed the
characters and hit enter, though.
I built another sheet (sheet2) and put 4 columns on it:
column A held the abbreviation
column B held the long phrase
column C held the Div (what gets copied to column A)
column D held the Ground (copied to column D)
Then in the worksheet that should have the typing in column B:
right click on the worksheet tab and select View Code
paste this in:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myLookupRng As Range
Dim res As Variant
On Error GoTo errHandler:
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("b:b")) Is Nothing Then Exit Sub
With Worksheets("Sheet2")
Set myLookupRng = .Range("a1", .Cells(.Rows.Count, "A").End(xlUp))
End With
res = Application.Match(Target.Value, myLookupRng, 0)
If IsError(res) Then
'do nothing--maybe just beep
Beep
Else
Application.EnableEvents = False
Target.Value = myLookupRng(res).Offset(0, 1).Value
Target.Offset(0, -1).Value = myLookupRng(res).Offset(0, 2).Value
Target.Offset(0, 2).Value = myLookupRng(res).Offset(0, 3).Value
End If
errHandler:
Application.EnableEvents = True
End Sub
Then back to excel to try it out.
===========================
But if you're willing to live with another helper column, you can do it all with
worksheet formulas.
Use the same kind of layout for sheet2
but insert a new column A on your input sheet.
Then in the new column C, you can use that vlookup formula to return the long
phrase:
=if(a1="","",if(iserror(vlookup(a1,sheet2!$a:$d,2,false)),"missing",
vlookup(a1,sheet2!$a:$d,2,false))
In the new column B, bring back the division:
=if(a1="","",if(iserror(vlookup(a1,sheet2!$a:$d,3,false)),"missing",
vlookup(a1,sheet2!$a:$d,3,false))
In new column E, bring back the ground:
=if(a1="","",if(iserror(vlookup(a1,sheet2!$a:$d,4,false)),"missing",
vlookup(a1,sheet2!$a:$d,4,false))
(Notice that the formulas are almost identical. Just the column brought back
changes (in two spots).