[حل شده] جستجو در اکسل

[mohsenrasti]

با عرض سلام خدمت اساتید محترم :
ممنون میشم در رابطه با جستجو کمک کنید
میخوام با زدن کیلد جستجو در ستون d مورد جستجو در سلول a2 بصورت اتوماتیک بیاد روی گزینه مورد نظر مثلا tr که نوشته شده بازدن کلید جستجو بیاد اولین مورد که سطر 128 با tr شروع میشود و همینطور با زدن کلید دوباره جستجو مورد بعدی رو نمایش بده کلا هر چیزی داخل سلول a2 نوشته شده بود سرچ کنه و بیاد روی همون سطر قرار بگیره اگر امکانش باشه که نام کیت وباتن جستجو ثابت باشه یعنی اگر سطر 128 مورد جستجو بود وقتی اومد روی سطر دیگه لازم نباشه با اسکرول موس به بالای صفحه بریم .
قبلا از همکاری شما سروران کمال تشکرو قدردانی را دارم .
فایل رو پیوست کردم ممنون
این کد رو نوشتم برای رویداد کلیک باتن

With Sheet1.Range("D1:D165")

Set c = .Find(Range("A2"), LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

[میثم مقدم نیا]

با عرض سلام خدمت اساتید محترم :
ممنون میشم در رابطه با جستجو کمک کنید
میخوام با زدن کیلد جستجو در ستون d مورد جستجو در سلول a2 بصورت اتوماتیک بیاد روی گزینه مورد نظر مثلا tr که نوشته شده بازدن کلید جستجو بیاد اولین مورد که سطر 128 با tr شروع میشود و همینطور با زدن کلید دوباره جستجو مورد بعدی رو نمایش بده کلا هر چیزی داخل سلول a2 نوشته شده بود سرچ کنه و بیاد روی همون سطر قرار بگیره اگر امکانش باشه که نام کیت وباتن جستجو ثابت باشه یعنی اگر سطر 128 مورد جستجو بود وقتی اومد روی سطر دیگه لازم نباشه با اسکرول موس به بالای صفحه بریم .
قبلا از همکاری شما سروران کمال تشکرو قدردانی را دارم .
فایل رو پیوست کردم ممنون
این کد رو نوشتم برای رویداد کلیک باتن

With Sheet1.Range("D1:D165")

Set c = .Find(Range("A2"), LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

سلام
دوست عزیز فایل پیوست را ببیند به کارتون میاد