رشراش

حاولت بطرق كثيرة. . . لكني اعترف بفشلي الذريع ان اجاري الاساتذة . .

سابقى لحوح الى ان يحل موضوعي. . .

f

في الحقيقة استاذي اصبحت محرج ... فاصبر عليا: انما اضفت الكمبو 3 و4 فقط للمحاولة بطريقة اخرى لتجاوز المشكل الموصوف في الفديو السابق ليس الا، قلت اذا حلت بهذه الطريقة نضيف الاكواد من كمبو 1 و2 وتنتهي المشكلة، وثق اني بحثت ولو استطعت الاستفادة من ملفات اخرى لاخبرتك... فمثلا ربما تستخرج من هذا الملف المرفق طريقة مثلى فهو من البداية اعطى اسم النطاق في كود ولم اعرف كيف استفيد منه.... Private Const MyTopColmnRng As String = اسم الصفحة$B$3:$L$3" فورم بحث_Kh_1.rar

استاذي حاولت بطريقة أخرى لعلي اجد مخرجا للمشكل الذي يعترضني في كمبو1 وكمبو2 لكن احتاج المساعدة.. قمت بتسمية النطاق A2 الى J2عناوين ووضعت هذا الاسم في RowSource في خصائص كمبو 3 ..... سميت النطاق A3 الى A15 اسماء ووضعت هذا الاسم في RowSource في خصائص كمبو 4 ============================ المشكل أن الكمبو 3 لا يعرض كل النطاق والمطلوب عرض كل العناوين الكمبو 4 يعرض حتى الخلايا الفارغة وهذا غير لائق كمبوبوكس بطريقتين3.rar

استاذي اعذرني على الحاحي....... اليك الفديو الموالي يوضح المقصود بالاشكال الذي لم اتجاوزه Video_2017-06-21_كمبوبوكس بطريقتين Salim 1.rar

أعتقد أستاذي لم تبقى الا خطوة واحدة وهي حل المشكل التالي: حينما احاول الاختيار من الكمبوبوكس (1أو2) لا يمكن ذلك إلا بالاستمرار باضغط على زر الماوس وهذه خطوة غير عملية الحل انه لما نفتح الكمبوبوكس ونضغط عل المحدد مباشرة يكون في الكمبوبوكس . . . . والباقي قد تم حله. واتمنى ان تصبر عليا ونل اجران أجر الصبر واجر مساعدتي، ويضاعف الله لك الاجر ويزيدك علما..... وفقك الله Video_2017-06-20_كمبوبوكس بطريقتين Salim 1.rar

استاذي الكريم وفقك الله وجعلك حليما معي، استاذي اليك هذا التسجيل يشرح ما يحدث مع الملف 1- لا يمكنني اختيار عنوان من الكمبوبوكس من خلال النقر على الفأرة بعد عرض العناوين، واستطيع فقط فعل ذلك من خلال أسهم لوحة المفاتيح،ثم أنه بعد الاختيار لا يتم نسخها الى الخلية إلا بعد النقر بالفارة على الكمبوبوكس 1، مع انه في الحل كانت تتغير الخلية مباشرة مع الكتابة في الكمبوبوكس1 إذن ستقول ما المطلوب، ساقول من فظلك استاذي شاهد المقطع المرفق. رعاك الله ووفقك Videoكمبوبوكس بطريقتين Salim_2017-06-20.rar

أستاذي الكريم سليم حاصبيا أشكرك جزيلا واعذرني إذ لابد ان اكون لحوحا لاني اتوسم فيك الصبر عليا أستاذي جربت وطبقت ما قلت لي انما لم اصل الى النتيجة المرجوة، الملف مرفق بعد ان نسخت فيه الاكواد..... أنار الله دربك وكل من مر من هنا وكل اساتذتنا الكرام. كمبوبوكس بطريقتين2.rar كمبوبوكس بطريقتين2.rar

سأنفذه إن شاء الله. . . شكرا وجازاك الله خيرا وزادك علما خالص التحيات وفقك الله

استاذي مازلت في الانتظار. . وقد شرحت المطلوب اذ الكمبوبوكس ياخذ قيّمَهُ من الخلايا منa2 الى J2_ من صفحة 1 فاختار من الكمبو ومن ثم ينسخ الى ص2 (وهذا تم حله)

الاستاذ بن علية اخصك بتحية ومن خلالك احيي كل اساتذتنا في اوفيسنا واتمنى على الله قبول صيامكم وقيامكم ورمضان مبارك وعيد سعيد . . جازاكم الله خيرا انتم واهلكم وبنيكم. . . .شكرا الف الف الف شكر.

استاذي. . الادراج من الكمبو الى الخلية قد حللتها لي مشكورا . . . بقي جلب القيم الى الكمبو ان الكمبوبوكس الاول والثاني يأخذاني قيمهما من الصفحة 1 من الخلايا المذكورة من A2 الى J2. . او يمكن اخذ العناوين من رؤوس الاعمدة من الصفحة 1 .'.حتى اختار القيم ومن ثم يتم ترحيلها (تم حلها).'

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

لكن كيف اربط الكمبوبوكس بالخلايا من A2 الى J2 من الصفحة 1 مع تجاوز اذا كانت هناك خلية فارغة وجازاك الله خيرا ، ورمضان مبارك صيام مقبول ان شاء الله

المطلوب: ولكم فائق الشكر أن أختار العناوين من كمبوبوكس ويتم نسخ ما اختاره مباشرة في خلية وأما الثانية فيمكن النسخ الا بعد الضغط على زر انسخ الملف مرفق .... كمبوبوكس بطريقتين.rar

وكانك .... او كان الموضوع جاء في الوقت المناسب أو اني جئت في الموعد منذ مدة وانا هناك في الاكسل ... حيث أساتذة عباقرة لا يُعلى عليهم وفقهم الله، غير اني كنت احيانا اتساءل لماذا لا الج عالم الاكسس فهو من بين ارقى واعرق قواعد البيانات، الحق كنت خائف.... ومررت عدة مرات من هنا واليوم اقبلوني طالب في منتداكم هذا وساتابع الدروس من هنا ..... مسبقا اني اقدر مجهوداتكم. وها اني كلي اذان صاغية ومحدق البصر في كل حرف تكتبوه اساتذتنا .... اقبلوني في سفينة الاكسس.

فكرة رائعة وكود بسيط تومض بمشروع شخصي .... لكن الى اجل، فأوفيسنا يمتلك من العباقرة ما نعجز عن الثناء عليهم اوفيسنا انت رائع وعمودك الفقري منتدانا.. واسيادك اساتذتنا يا اوفيسنا تحية لكل اساتذتنا ولك اخي عبدالباري البنا

أستاذي بن علية حاجي بدءا قد وفّيت وانه المطلوب، ثُمّ إنه لمن المحرج أن لا اجد ما يعبر عن شكري وامتناني، غير اني آمل من الله أن يكرمك ويجزيك خيرا بقدر ما هو أهلً له من كرم وسخاء، شكرا استاذي كما لا يفوتني ابدا أن ادعو لكل أساتذتنا في اوفيسنا من الاستاذ ياسر ابو البراء الى خبور الى الاستاذ جاويش اليهم جميعا فردا فردا.... فإننا نقدر مجهوداتهم ولا نخفي جميلهم جميعا. شكرا

أستاذي الكود الذي أريده الآن يُرحل المعلومة من T1 الى الخلية مثلا C2 في كل الصفحات المفهرسة -1- إن أمكن كود ترحيل منفصل -2- كود ترحيل مدمج مع كود الطباعة. وفقك الله وجازاك عني خيرا ترحيل من خلية الى صفحات مفهرسة + طباعتها.rar

شكرا أستاذي ومن هنا لا يفوتني أبدا ان أحيي كل اساتذتنا واعضاء منتدى الاكسيل واوفيسنا عموما.

أستاذي أستاذي شكرا جزيل الشكر وكنتُ استحيتُ ان اطلب "ان لا تكون المعادلة تلك في الصفحة"، وكأنك قرات ما فكرت فيه وما تمنيته، فالهمك الله تحقيق ذلك "انك رائع" أما ما فهمته الان انه يمكنني اذا غيرت معادلاتي في عمود آخر أغير هنا If IsError(Application.Match(Cells(J, "P"), Arr, 0)) Then GoTo 1 Sh = Worksheets(Cells(J, "P").Value).Index ------------------------- وإذا اردت تغيير المدى (بداية الى نهاية العمود) أغير هنا J = 7 To 25 رعاك الله أستاذي وجازاك عني بما هو اهلٌ له من كرم.

أستاذي بن علية حاجي ما فهمته انه عليا ان لا احذف أو اغير في النطاق Q7:Q25 وفي الخلية W1 تقبل فائق الشكر وصادق الدعاء، فما قدمته لي يفي بالغرض إنما لن انهي الموضوع بالقول تم، حيث إني على ثقة ان عباقرتنا في الاكواد سيدلون بدلوهم مما يفيد غيري وينفع آخرين أستاذي سبق وساعدتني منذ سنوات والى اليوم ما قدمته جاري اجره اليك ان شاء الله، وانه في ميزان حسناتك أكيد ومن هنا ايضا أثني على كل اساتذتنا دون استثناء ساضل ممتنا للجميع. محبا لكم بصادق العواطف .

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

ربما لم يمر على موضوعي من يساعدني فيه وساظل مرتقبا الحل شكرا لمن مر وينتظر معي تفرغ وتكرم احد اساتذتنا الكرام. وفقهم الله.