Find cell with text, offset to the left one cell and write code

Hello every one,

Im sorry if there was similar problem and it was solved.

I have a document with some parts specification and it is needed to find exact text and in nearby cell write that text code.

For example:
There are rail bracket position in excel document with different dimensions 40mm, 50mm, 56mm, every different rail bracket dimension have its own code.
40mm - 227373040
50mm - 227373050
56mm - 227373056

I need that macro find "rail bracket 40mm" and in left cell from that cell where are rail bracket put a code "227373040"
and for all dimension would made same.

Number	Code	Name
1		Rail Bracket 40mm
2		Rail Bracket 50mm
3		Rail Bracket 56mm

Could anyone help me with that?
Thank in advance.

Post a small example file so we can see how your sheet is structured and where to get the proper codes for each element etc.

This is only small part.

40 - 227372040
50 - 227372050
56 - 227372056
63 - 227372063
75 - 227372075
90 - 227372090
110 - 227372110
125 - 227372125
160 - 227372160
200 - 227372200
250 - 227372250

Maybe:

Sub timas()
Dim i As Long
For i = Range("C" & Rows.Count).End(3).Row To 2 Step -1
    Select Case Right(Cells(i, "C"), 4)
        Case Is = "40mm"
                Cells(i, "B") = 227373040
        Case Is = "50mm"
                Cells(i, "B") = 227373050
        Case Is = "56mm"
                Cells(i, "B") = 227373056
    End Select
Next i
End Sub

And where are these dimensions and codes located in your file ?
Different sheet, Same sheet other location ??

they are located in other program.
so it is need just to write them in macro, not to take from same where

Something like this maybe

Sub timas()
Dim i As Long
For i = Range("B" & Rows.Count).End(3).Row To 2 Step -1
    If InStr(1, Cells(i, "B").Value, "Rail bracket", vbTextCompare) > 0 Then
        Select Case ExtractNumber(Cells(i, "B"))
            Case Is = "63"
                Cells(i, "A") = 227372063
            Case Is = "75"
                Cells(i, "A") = 227372075
            Case Is = "90"
                Cells(i, "A") = 227372090
        End Select
    End If
Next i
'40 - 227372040
'50 - 227372050
'56 - 227372056
'63 - 227372063
'75 - 227372075
'90 - 227372090
'110 - 227372110
'125 - 227372125
'160 - 227372160
'200 - 227372200
'250 - 227372250
End Sub

Function ExtractNumber(rC As Range) As String
    With CreateObject("VBSCRIPT.REGEXP")
        .Pattern = "[^0-9]"
        .Global = True
        .IgnoreCase = True
        ExtractNumber = .Replace(rC.Value, "")
    End With
End Function

Thanks its work
Maybe it would be possible to make inserted text to show in green colour?
if there are to much work, than dont bother, will leave with black

one more question.
how to do the same, only with exact words: "met" and "el"
if in some B coloum cell are text "met", so in A coloum in same row put code - 227368091
if in some B coloum cell are text "el", so in A coloum in same row put code - 227377004

when im trying to do this, code is added even if word is: element, or metal plate, not exact met and el

If you want exact match you cannot use Instr.
In that case you have to change the code to an If...ElseIf...End If loop.