أبو عبدالإله

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

بارك الله فيك أستاذنا القدير ياسر فعلا نحتاج لمثل هذه المواضيع الإثرائية والتي توسع من معرفتنا بهذا البرنامج العملاق سلمت أناملك الذهبية . تحيتي وودي

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

السلام عليكم ورحمة الله وبركاته حقيقة لا أعلم ما أقول فقد أثقلت عليكم ولكن عذري هو جهلي في بعض الأمور حاولت أن أعدل على الماكرو لكني لم أوفق ، فلم يكن أمامي إلا أنتم لمساعدتي لقد أبدع الأستاذ القدير ياسر في المساعدة بيض الله وجهه ولكن لظروف التغيير في بعض عملي فما أرديه هو : جلب بيانات العمود b ووضعها في العمود b في المصنف الرئيسي . ( موجود سابقا ولا يحتاج تعديل ) جلب بيانات العمود (( D )) ووضعها في العمود C في المصنف الرئيسي ( وهنا التغيير لأن الموجود في الملف يجلب بيانات العمود c ويضعها العمود C ونظرا لما طرأ على عملي من بعض التغيير فأنا أريد جلب بيانات العمود D وليس C ووضها في نفس العمود في الملف الرئيسي C ولعل الصورة تتضح أكثر من خلال الملف المرفق بيانات الطلاب.rar

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

أسأل الله العلي العظيم في هذه الساعة المباركة في اليوم المبارك أن يوسع في رزقك ويمد في عمرك ويحقق لك كل آمانيك شكرا لك أيها الشهم النبيل هذا ما كنت أريده بالضبط حقيقة لن أنسَ مساعدتكم لي في عملي ما حييت وسيكون لكم دائما من الدعاء نصيب حبي وتقديري

جرب هذا لعله يفي بالغرض الملف.rar

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

هذه الأكواد فيها تحديد لرقم شيت معين هل يمكن أن يتم تغيير التحديد إلى الصفحة الحالية بمعنى الاستغناء عن اسم الشيت ويكون بدلا منه ( الصفحة الحالية ) الأول : Sub CommandButton3_Click() ThisWorkbook.Sheets(Array("1")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Temp.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub الثاني Sub CommandButton2_Click() Dim ws As Worksheet Dim lr As Long Set ws = ThisWorkbook.Sheets("1") lr = ws.Cells(Rows.Count, "AZ").End(xlUp).Row ws.Range("AZ" & lr).Offset(-1, 0).EntireRow.Delete End Sub الثالث Sub CommandButton1_Click() Dim ws As Worksheet Dim lr As Long Set ws = ThisWorkbook.Sheets("1") lr = ws.Cells(Rows.Count, "AZ").End(xlUp).Row ws.Range("AZ" & lr).EntireRow.Insert End Sub ولكم أرق وأجمل تحية أحبتي

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

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

أتمنى تعديل هذه الأكواد ليكون التحديد للصفحة الحالية بدلا من تحديد رقم الشيت : Sub CommandButton3_Click() ThisWorkbook.Sheets(Array("1")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Temp.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub Sub CommandButton1_Click() Dim ws As Worksheet Dim lr As Long Set ws = ThisWorkbook.Sheets("1") lr = ws.Cells(Rows.Count, "AZ").End(xlUp).Row ws.Range("AZ" & lr).EntireRow.Insert End Sub Sub CommandButton2_Click() Dim ws As Worksheet Dim lr As Long Set ws = ThisWorkbook.Sheets("1") lr = ws.Cells(Rows.Count, "AZ").End(xlUp).Row ws.Range("AZ" & lr).Offset(-1, 0).EntireRow.Delete End Sub

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

أشكر لك أخي الحبيب سرعة تجاوبك سأقوم بتطبيق اقتراحك وفقك الله ورعاك

جربته الآن الزر لدي يحمل رقم CommandButton21 وعندما غيرت رقمه لم يعد يعمل . المشكلة هي أن رقم هذا الزر CommandButton21 في جهازي الأساسي لكن عندما أفتحه في جهاز آخر يصبح نفس الزر برقم CommandButton2 لا أعلم لماذا يتغير ؟!

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

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

علما بأن إصدار الأوفيس في الجهاز الذي قمت بالعمل عليه هو ( 64 بت ) أما إصدار الجهاز الذي توجد فيه المشكلة هو ( 32 بت ) لا أعلم إن كان له علاقة نوع الإصدار في هذه المشكلة

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

لاحظت أيضا أن جميع الأكواد لا تعمل في المصنف عند فنحه على جهاز آخر

السلام عليكم ورحمة الله وبركاته بداية أتقدم بالشكر الجزيل لهذا المنتدى الأكثر من رائع بأعضائه وأشكر كل من قدم لي يد المعونة والمساعدة في إنجاز عملي وأخص بالذكر الأخوين الكريمين الأستاذين ياسر وابن مصر فلولاهما لما أنهيت عملي . بعد أن استكملت عملي وحفظته دون حدوث أي مشاكل في جهازي ( نسخة الاكسيل 2010 ) ولكن عندما قمت بفتح هذا العمل في جهاز آخر وفيه نفس نسخة الاكسيل 2010 واجهتني مشكلة وهي أن أزرار الأوامر لا تعمل نهائيا وهي أزرار CommandButton اضغط عليها ولكن لا تنفذ الأمر جربت وحاولت في الأمان لكن لم ينفع نهائيا كذلك مشكلة أخرى ولكنها مع نسخة 2007 بالإضافة إلى المشكلة السابقة وهي أن القائمة المنسدلة لا تعمل في نسخة 2007 أتمنى من لديه الحل مساعدتنا وله كل الشكر والتقدير

سلمت يداك عمل متقن وإبداع لا حدود له يعجز اللسان عن الشكر رزقك الله أخي الكريم من حيث لا تحتسبت ونسأله سبحانه أن يوفقك وييسر أمورك كلها

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

سؤال للاستفادة فقط فما قمتما به أكثر من راائع : إن أردت أن اضع الملفات في مجلد فرعي من المجلد الرئيسي الذي يوجد به الملف الرئيسي مثلا اسم الفرعي ( البيانات ) بمعني أن الملف الرئيسي سيكون لوحده والمفات الأخرى ستكون في مجلد منفصل آخر ( لأني أخشى أنها تكثر وبالتالي يصعب البحث عن الملف الرئيسي ) ولكن هذا المجلد في نفس المجلد الرئيسي لأني أرغب أن يكون الملف الرئيسي لوحده فقط في المجلد الأساسي وباقي الملفات تكون مجمعة في مجلد منفصل في نفس المجلد الرئيسي فكيف سيكون المسار الذي سيكتب في الكود ؟ مرفق الملف للتوضيح بيانات الطلاب.rar

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