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

[habib-]

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

http://s6.picofile.com/d/22408d91-db...2/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