کلید جستجو در اکسل

[habib-]

با عرض سلام خدمت اعضای گرامی
کد و فرمول استفاده شده در کلید جستجوی که در شیت main فایل لینک زیر استفاده شده است را میخوام بدونم.لطفا راهنمایی فرمایید.با تشکر

http://s6.picofile.com/d/22408d91-dba8-4eac-abfd-3e0704e5bff2/1254_1_1.zip

[Amin_D]

Sub Macro1()

Sheets("exit").Range("a:a").ClearContents

If Cells(4, 4).Value <> "" Then

x = 1
For i = 5 To Sheets("exit").Cells(4, 2)
If Sheets("exit").Cells(i, 3) = Cells(4, 2) Then
Sheets("exit").Cells(i, 1) = x
x = x + 1
End If
Next i

Else: M = MsgBox("ÔãÇÑå ÑÓäáí æÇÑÏ ÔÏå ãÚÊÈÑ äãí ÈÇÔÏ", vbInformation, ": : : ÊæÌå : : :")
End If

End Sub