الســـــــاهر قام بنشر أبريل 18, 2020 مشاركة قام بنشر أبريل 18, 2020 السلام عليكم الاخوة الافاضل اريد كود بحث من خلال قائمة منسدلة (اي نوع من القوائم) في نفس الصفحة بحيث يتم تحديد الاختيار في العامود A مرفق ملف يوضح المطلوب وشكرا لكم مقدما تنقل في صفحة من خلال قائمة منسدلة.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر أبريل 18, 2020 أفضل إجابة مشاركة قام بنشر أبريل 18, 2020 السلام عليكم ورحمة الله استخدم الكود التالى 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 1 1 رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر أبريل 18, 2020 مشاركة قام بنشر أبريل 18, 2020 بعد ادن استاد ابراهيم يتم وضع الكود في حدث 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 1 1 رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أبريل 18, 2020 مشاركة قام بنشر أبريل 18, 2020 السلام عليكم ورحمة الله الف شكر اخى الكريم عبد الفتاح على هذه الاضافة و يمكن ايضا و ضع هذا الكود فى حدث الورقة مع استخدام الكود الاول Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Call SelRange End If End Sub 1 1 رابط هذا التعليق شارك More sharing options...
الســـــــاهر قام بنشر أبريل 18, 2020 الكاتب مشاركة قام بنشر أبريل 18, 2020 ماشاء الله تبارك الرحمن الاستاذ ابراهيم الحداد اشكرك جزيل الشكر على هذا الكود الاكثر من رائع الاستاذ عبدالفتاح إضافة جميلة اشكرك جزاكم الله خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان