(تمت الاجابة) زر بحث ومن ثم الانتقال التلقائي لبيانات الزبون

[أبو محمد عباس]

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

الاساتذة الكرام والاخوة الاعزاء حفظكم الله ورعاكم وجعل اعمالكم وردودكم في هذا الصرح الكبير جعلها جميعا صدقة جارية تنالون ثوابها في الدنيا والاخرة آمين

الملف المرفق فيه بيانات للزبائن ويصعب البحث فيه يدويا فارجو منكم تفضلا وتكرما منكم عمل زر بحث ومن ثم الانتقال التلقائي لبيانات الزبون الذي بحثنا عنه بدل الارتباط التشعبي

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

البحث والانتقال للزبون.rar

[عبدالله المجرب]

السلام عليكم

ضع هذا الكود في زر امر (مع مراعاة تطابق الاسماء)

Sub Abu_Ahmed()

Dim cl As Range

For Each cl In [B5:B200]

If cl = [B2] Then cl.Select: Exit Sub

Next

End Sub

[أبو محمد عباس]

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

بارك الله فيك استاذ ابو احمد جربت الكود ويعمل بشكل جيد مع العمودB5:B200 وينتقل بشكل صحيح لكن لو تكرمت وجعلت البحث في الصف الثاني الى نهاية الصف حيث اني اريد ابحث عن بيانات الزبون وانا جعلت هذا العمود حتى اقوم بالارتباط التشعبي لكن الكود رائع فارجو تعديله حتى يعمل البحث بالصف وليس بالعمود واشكرك جزيل الشكروتقبل دعواتي لك بالموفقية والنجاح , والحقيقة قبل ان اقرا اجابتكم التي تكرمتم بها علينا انا جربت الكود الذي بعثه الاستاذ الفاضل رجب جاويش حفظه الله ورعاه في موضوع ( زر الانتقال الى كلمة محددة) ولكن صادفتني مشكلة تكرارالاسم في العمود والاسم في الصف حيث ينتقل اولا للعمود وانا اريده ان يذهب للبيانات وشكر متواصل للاساتذه الكبار في هذا الصرح الكبير

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

[عبدالله المجرب]

حسب فهمي للمطلوب

هكذا سيصبح الكود

Sub Abu_Ahmed()

Dim cl As Range

For Each cl In [E2:Lu2]

If cl = [B2] Then cl.Select: Exit Sub

Next

End Sub

[أبو محمد عباس]

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

الاستاذ ابو احمد الله يبارك فيك ويبارك في رزقك ويبارك في عيالك كود رائع وانا عدلت فيه نهاية الصف ليتماشى مع نهاية بياناتي( E2:BQI2 ) ويعمل بشكل جيد حتى لو كانت الاسماء مكررة في العمود B ويعطيك الصحة والعافية نسال الله سبحانه وتعالى ان يديم هذا الصرح الكبير يديمه باساتذته الكبار واعضاءه جميعا ودمتم في رعاية الله