اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

البحث والانتقال للزبون.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 وينتقل بشكل صحيح لكن لو تكرمت وجعلت البحث في الصف الثاني الى نهاية الصف حيث اني اريد ابحث عن بيانات الزبون وانا جعلت هذا العمود حتى اقوم بالارتباط التشعبي لكن الكود رائع فارجو تعديله حتى يعمل البحث بالصف وليس بالعمود واشكرك جزيل الشكروتقبل دعواتي لك بالموفقية والنجاح , والحقيقة قبل ان اقرا اجابتكم التي تكرمتم بها علينا انا جربت الكود الذي بعثه الاستاذ الفاضل رجب جاويش حفظه الله ورعاه في موضوع ( زر الانتقال الى كلمة محددة) ولكن صادفتني مشكلة تكرارالاسم في العمود والاسم في الصف حيث ينتقل اولا للعمود وانا اريده ان يذهب للبيانات وشكر متواصل للاساتذه الكبار في هذا الصرح الكبير

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information