تنقل في صفحة من خلال قائمة منسدلة

[الســـــــاهر]

السلام عليكم

الاخوة الافاضل اريد كود بحث من خلال قائمة منسدلة (اي نوع من القوائم) في نفس الصفحة بحيث يتم تحديد الاختيار في العامود A

مرفق ملف يوضح المطلوب

وشكرا لكم مقدما

تنقل في صفحة من خلال قائمة منسدلة.rar

[ابراهيم الحداد]

السلام عليكم ورحمة الله

استخدم الكود التالى

Sub SelRange()
i = 2
Do While 1000
x = Cells(i, 1)
If x = Range("A1") Then
Cells(i, 1).Select
Exit Do
End If
i = i + 1
Loop
End Sub

 

[عبدالفتاح في بي اكسيل]

بعد  ادن استاد  ابراهيم  يتم  وضع  الكود  في حدث change لورقة  العمل   حتى  يعمل  مباشرة  من غير تشغيل  الماكرو  في كل  مرة يتم فيها  اختيار  اسم 

Private Sub Worksheet_Change(ByVal Target As Range)
i = 2
Do While 1000
x = Cells(i, 1)
If x = Range("A1") Then
Cells(i, 1).Select
Exit Do
End If
i = i + 1
Loop
End Sub

     

[ابراهيم الحداد]

السلام عليكم ورحمة الله

الف شكر اخى الكريم عبد الفتاح على هذه الاضافة

و يمكن ايضا و ضع هذا الكود فى حدث الورقة مع استخدام الكود الاول

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Call SelRange
End If
End Sub

 

[الســـــــاهر]

ماشاء الله تبارك الرحمن

الاستاذ ابراهيم الحداد  اشكرك جزيل الشكر على هذا الكود الاكثر من رائع

الاستاذ عبدالفتاح إضافة جميلة اشكرك

جزاكم الله خير