احمد 505

وعليكم السلام ورحمة الله وبركاته الاستاذ بن علية شكراً جزيلاً لتجاوبك السريع ارجوا ان تمنحني فرصه للتطبيق وسوف ارد عليك بالنتيجة أشكرك

وعليكم السلام ورحمة الله وبركاته الاستاذ بن علية الملف هو ما اريد بالضبط بارك الله فيك ونفعك بعلمك ولكن اريد إضافة بسيطه جداً وهي غلطتي من الاول . لم اضيف الرقم الوضيف الان اريد ان اضيف الرقم الوضيفي رجاءً حيث اكتب الرقم الوضيفي في الورقة VLOOKUP وتظهر معلومات الورقة أساسي كاملة امام أي رقم اكتبه اشكرك _vlokup __ - 1.rar

السلام عليكم ورحمة الله وبركاته احبابي مشرفين واعضاء منتداي المفضل اسعد الله اوقاتكم بكل خير انا استخدم قاعدة بيانات كبيرة جداً وعندما اريد ان استخرج معلومة من هذه القاعدة افتح ورقة جديدة واستخدم طريقة = يعني صورة من معلومات القاعدة الاساسية وبذلك تتكرر المعلومات عندي في كل صفحة وانا لا اريد التكرار المطلوب اريد ان استخدم معادلة VLOOKUP في كل ورقة جديدة افتحها بحيث استخدم VLOOKUP مباشرة مع قاعدة البيانات الأساسية في المرفق 1- الورقه اساسي هى قاعدة البيانات 2- الورقة صورة هي الطريقة التي استخدمها عن طريق = 3- الورقة VLOOKUP صممت فيها الخانات فاضية بحيث اريد ان استخدم فيها VLOOKUP مع الورقة أساسي ارجوا ان اكون اوضحت ما اريد اشكركم vlokup.rar

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

اخي ياسر السلام عليكم ورحمة الله الكود شغال وممتاز بارك الله فيك ولكن اصبحت الورقة ما تحتفض بالتنسيقات ( حجم الخط + الحدود + الالوان + تنسيق التواريخ بتطلع رقم مثل 49587 + الدرجة مش بتطلع نسبه 80% مثلا بتطلع 8000) اعدلها واعمل حفظ واسكر البرنامج وافتحه احصل الدنيا محيوسة مش عارف والله يمكن ما عرفت اركب الكود الله اعلم انا افتح الورقة كلك يمين على ALL INFO تتطلع قائمة اختار عرض تعليمات البرمجه تفتح لي صفحة اعمل لصق واعمل حفظ هل الطريقة صحيحة افدني يالحبيب جزاك الله خير والله اني من الساعة 10 صباحا وانا شغال على الكود والتنسيقات والا فائدة اشكرك يالحبيب

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

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

صحيح اخي ياسر بيمسح فقط نفس الدرجة الى في اول خانه من ورقة ELS ولكن الدرجات السابقة الي في 2 + 3 + 4 + 5 بتبقى لا بد تمسح يدوياً على كل حال هذي مش مشكلة انا قلت هذي كماليات فقط وكنت بسأل اذا فيه طريقه تمسح تلقائياً او لا

بيض الله وجهك اخي الكريم تمت العملية بنجاح تم تطبيق الكود على قاعدة بياناتي بس باقي عندي أشياء كمالية وليست ضرورية ولكن حبيت اسئلك ممكن اجد عندك لها حل 1- اذا مسحت معلومات الدرجة وتاريخها في الورقة ALL INFO هل من طريقة تمسح من الورقة ELS 2- هل من طريقة تحفظ لي التسلسل في الورقة ELS مع الورقة ALL INFO مثلا في الصفحة ELS لو عملت عملية ترتيب او فرز حسب الدرجة او التاريخ او حسب الاسم هل من طريقة انه يحتفض الكود بكامل المعلومات طبعا عن طريق استخدام التصفية ممتاز بس عن طريق الفرز لا ادري اشكرك

استاذ ياسر ممكن تشرحلي الرقم 86 ايش يعمل وهل له علاقة بالصفحة ALL INFO او بالصفحة ELS اشكرك

استاذ ياسر لو سمحت ايش تقصد بالرقم 86 انا طلبت الورقة ALL INFO تبدء من الصف 92 واعتقد انك اشرت اليه بالرقم 91 وطلبت في الورقة ELS تبدء من الصف 6 والا اعلم ايش فايدة الرقم 86 لان الكود ما اشتغل معاية اشكرك

استاذ ياسر بارك الله فيك ونفعك بعلمك معليش أنا غلبتك معاية ولكن حاولت أكثر من مرة اطبق الكود على قاعدة البيانات ويطلعلي خط اصفر وخط بني على المعادلة ورسالة خطأ فعرفت انني مخطئ في شيئ انا لا اعرف ماهو واتوقع عشان اختلاف أسماء الورق ما عرفت اغيره في الكود لان عندي حوالي 14 ورقة في نفس القاعدة وبأسماء مختلة ارجوا من حظرتك تطبق لي الكود على الورقتين التاليتين الورقة الاولى التي ادخل فيها فقط الدرجة والتاريخ أسمها ALL INFO عمود الدرجة AK وعمود التاريخ AL واذا كان ضروري الصف فيكون 92 والورقة الثانية التي تحتفظ بالخمس النتائج أسمها ELS وتكون من العمود H الى العمود Q و الصف يكون 6 اشكرك يالحبيب أشكرك _Move Data To Another Sheet Using Worksheet_Change - نسخة.rar

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

لازلت انتظر لإحساسي انه يوجد من يعمل لإيجاد حل لسؤالي اشكر الجميع

السلام عليكم ورحمة الله وبركاته إخواني الاعزاء لقد حصلت على كود رائع وممتاز يفي بمطلبي بفضل الله ثم بمساعدة الاخ والاستاذ ياسر خليل واريد عليه بعض التعديل البسيط الكود يعمل كالتالي في ورقة واحدة فقط اكتب الدرجة وتاريخها في العمودين الاولين وعند كتابة درجه جديده وتاريخها يتم ازاحة الدرجه السابقة وتاريخها الى العمودين التي تليها وهكذا حتى ارصد 5 درجات وتاريخها المطلوب هو اريد ان اعمل على ورقتين الورقة الاولى فقط ادخل الدرجة الاولى وتاريخها في كل مرة وعند تحديث الدرجه والتاريخ تلقائياً ترحل السابقة الى الورقة الثانية ( الورقة الثانية اريد فيها 4 درجات مرحله بالاضافة الى الدرجة الحالية الت موجوده في الورقة الاولى يعني الورقة الثانية يكون فيها عدد 5 درجات وتاريخها اتمنى تكون وضحت الصورة اشكركم جميعا _Move Data Using Worksheet_Change - نسخة.rar

اشكرك اخي ياسر واشكرك على روحك الطيبة

اخواني الاعزاء المشرفين فضلا لا امرا ارجوا اغلاق هذا السؤال حيث تمت اجابته من قبل الاخ والاستاذ ( ياسر خليل ) اشكرك استاذ ياسر وعذرا على التكرار

اخواني الاعزاء المشرفين فضلا لا امرا ارجوا اغلاق هذ السؤال فقد تمت اجابته من قبل الاخ والاستاذ ( ياسر خليل ) اشكرك اخ ياسر وعذرا على التكرار

اخواني الاعزاء المشرفين فضلا لا امرا ارجوا اغلاق هذا السؤال فقد تمت الاجابة عنه من قبل الاخ والاستاذ ( ياسر خليل ) شكرا جزيلا اخ ياسر وعذرا على التكرار

اخواني الاعزاء المشرفين فضلا لا امرا ارجوا اغلاق هذا السؤال فقد تمت اجابته من قبل الاخ والاستاذ ( ياسر خليل ) شكرا لك اخ ياسر وعذرا على التكرار

اخواني الاعزاء المشرفين فضلاً لا امراً ارجوا اغلاق هذا السؤال فقد تم اجابته من قبل الاخ والاستاذ ( ياسر خليل ) شكراً جزيلاً لك اخ ياسر وعذراً على التكرار

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

اشكرك استاذي / ياسر خليل بيض الله وجهك ونفعك بعلمك وزادك علما هذا المطلوب تماماً بارك الله فيك اكرر شكري

اخي ياسر اشكرك من كل قلبي فعلاً هذا هو المطلوب بارك الله فيك ونفعك بعلمك ونفع بك بقي عندي استفسار بسيط ممكن تشرحلي هذا Private Sub Worksheet_Change (ByVal Target As Range) ما هو المقصود بالرقم 1 هنا ( وهل يجب علي تعديله ام لا ) If Target.Cells.Countlarge >1 Then Exit Sub ماهو المقصود بالرقم 2 هنا انا غيرته الى الرقم 37 ليكون AK هو العمود المطلوب If Target.Row > 2 Than وكذلك هنا غيرت الرقم الى 37 ليكون هو العمود المطلوب ( هل فهمي وتعديلاتي صحيحة ) If Target.Column = 2 Then طبعاً الكود طبقته على صفحتي واشتغل ولكن حبيت استفسر منك عن التي كنت شاك فيها لك مني كل الشكر اخي الكريم

أخي / ياسر خليل اشكرك على تجاوبك ومن ناحية التجربة بالعكس انا لو ما جربت كان خسرت اقلها لو اشكرك على ردك ومحاولتك فما بالك لو اقلك إن الملف هوه بالضبط ما ابحث عنه بنسبة 90% مع بعض التعديلات البسيطة التي لا استغني عن لمساتك السحرية لتعديلها ولك مني جزيل الشكر 1Move Data.rar