ابو تميم

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

استاذنا القدير اخ ابو نصار فعلا كود رهيب جدا جزاك الله خيرا

تماما هذا هو المطلوب جزاك الله خيرا أخي عبد الله باقشير عملت المطلوب وزياده أنا كنت أريد فقط Me.Width = Application.Width ولكنك أكملت معروفك وفصلت أكثر جزاك الله كل الخير

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

والله عمل أكثر من رائع أخي ابو نصار جزاك الله خيرا

اللهم ارحمها واغفر لها وصبر ذويها اللهم ارحم جميع أموات المسلمين

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

شكرا أخي ابو احمد راجعت الرابط ولكنه لم يف بالغرض لأني أريد حفظ الملف على المسار المحدد بدون أن يطلبني تحديد مكان الحفظ بفورم وجدت طريقة أخرى على المنتدى على الرابط http://www.officena....=1 وقمت بتعديل الكود إلى التعديل التالي ليتناسب مع مطلبي ولا أعلم إن كان هذا الكود طويل أم لا ولكنه قام بالواجب وتم تنفيذ المطلوب بشكل ممتاز وإذا كان هناك تعديل على الكود أرجو إفادتي ولكم جزيل الشكر Sub copy1() Dim Extension$ Dim savePathName As String Extension = ThisWorkbook.Name savePathName = "c:\data\" On Error Resume Next Application.DisplayAlerts = False GetAttr (savePathName) Select Case Err.Number Case Is = 0 Application.DisplayAlerts = False ThisWorkbook.SaveCopyAs savePathName & Extension Application.DisplayAlerts = True Case Else MkDir savePathName ThisWorkbook.SaveCopyAs savePathName & Extension End Select On Error GoTo 0 Extension = ThisWorkbook.Name savePathName = "d:\data\" On Error Resume Next Application.DisplayAlerts = False GetAttr (savePathName) Select Case Err.Number Case Is = 0 Application.DisplayAlerts = False ThisWorkbook.SaveCopyAs savePathName & Extension Application.DisplayAlerts = True Case Else MkDir savePathName ThisWorkbook.SaveCopyAs savePathName & Extension End Select On Error GoTo 0 End Sub شكرا أخي ابو احمد على تعاونك شكرا للجميع

تحياتي لجميع المشرفين والعلماء والخبراء في هذا الصرح المتميز المطلوب من هذا الملف هو عند الضغط على زر (حفظ الملف ) يتم تفحص المسارات C:\data , D:\data , E:\data وتفقد المجلد data بالأخص على المسارات المذكورة فإذا لم تكن المجلدات ذات الاسم data موجودة على المسارات المحددة أو أحدها يتم إنشاؤه على المسار تلقائيا وحفظ ملف الاكسل عليها جميعا ولكم جزيل الشكر والتقدير إنشاء مجلد على مسار محدد وحفظ ملف الاكسل عليه.rar

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

السؤال لا يزال قيد الانتظار شكرا للجميع

تحية يمكن مراجعة الرابط التالي ( نفس الموضوع ) http://www.officena.net/ib/index.php?showtopic=24472&hl=%2B%D8%AA%D8%AD%D8%AF%D9%8A%D8%AF+%2B%D8%A7%D9%84%D8%AE%D9%84%D9%8A%D8%A9+%2B%D8%A7%D9%84%D9%86%D8%B4%D8%B7%D8%A9&fromsearch=1

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

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

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

لا يزال السؤال مفتوح شكرا للجميع

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

بالانتظار إن أحيانا الله تعالى لكم جزيل الشكر والتقدير على جهودكم المتميزة جزاكم الله خيرا

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

السادة عباقرة الأكواد الكرام تحياتي الحارة لكم في الورقة main يتم سحب البيانات التالية من الورقة ذات الرقم المساوي لرقم الترتيب المحدد كما يلي الترتيب رقم (1) يتم سحب بيانات كل من ( عدد الاعطال ، الاعطال العالقة ، وقت التبليغ ، ايام التأخير ) وذلك يتم سحبها من الورقة التي تحمل نفس الترتيب وهي هنا الورقة رقم 1 وكلما تغيرت في الورقة الاصلية 1 تتغير هنا وكما هو واضح في المثال يتم سحب البيانات من خلال ارتباط تشعبي بين الورقة المقصودة والخلية الخاصة بالمطلوب المطلوب الاول ( في الورقة main ).. هل يمكن استبدال الارتباط التشعبي بكود يقوم بجلب البيانات من الخلايا المحددة هنا حسب رقم الورقة وهو هنا ( رقم الورقة = رقم الترتيب ) المطلوب الثاني ..( في الورقة رقم (1)) ... في هذه الصفحة يتم سحب البيانات من الورقة main كما يلي ترتيب الجهاز يتم تحديده بناء على اسم الورقة وبشكل تلقائي نوع الجهاز والرقم التسلسلي واسم الشركة وترميز الجهاز واسم المستخدم ومكان عمله واسم الموقع ( المؤسسة العامة ) يتم سحبه من الورقة mainlk من خلال المعادلة Vlookup كما هو موضح في المثال هنا في هذه الصفحة المطلوب هو استبدال معادلة vlookup بكود يعمل نفس العمل ويجلب البيانات المحدده هنا من الورقة main المعرفة بنطاق محدد device ولكم جزيل الشكر والاحترام والتقدير على جهودكم المتميزة استبدال المعادلة Vlookup والارتباط التشعبي بكود يعمل نفس العمل.rar

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

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

أخي العزيز ابو احمد جزاك الله كل الخير والله أني أحببت برمجة الاكسل والاكواد بسببك وتعلمت منك الكثير ولك الفضل كله بعد الله تعالى جزاك الله كل الخير تم تعديل الكود وهو يعمل بشكل جيد ولكن لدي مشكلة لاحظتها بعد تعديل الكود وهي انه تم تخصيص زر انتقال من الصفحة الحالية إلى صفحة أخرى بالاعتماد على قيمة الخلية المحددة C3 ولكن هنا وبعد تعديل الكود عندما أحدد الصف المطلوب تظهر القيمة المطلوبة داخل الخلية C3 ولكن عند الضغط على زر الانتقال فإنه هنا يعتبر ذلك بأنه خارج النطاق ويقوم بتفريغ الخلية C3 وهنا يتعارض عمل زر الانتقال مع قيمة الخلية بما أنها هنا أصبحت ( " " ) هل يمكننا التعديل على الكود بحيث أنه يقوم بتفريغ الخلية C3 فقط في حال الضغط وتحديد خلية أخرى خارج النطاق ؟؟؟ لك كل الشكر والتقدير على جهودك

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

أخي الكريم محمد يحياوي شكرا جزيلا لك من بعد إذنك تم تعديل الكود لإغلاق اليوزر فورم بمجرد الضغط خارجه و وضعه في ThisWorkbook بدلا من وضعه في كل ورقة لأن ملف العمل عندي يحتوي على 540 ورقة وليس من المنطق أن أقوم بوضع الكود في كل ورقة من بعد إذنك أستاذي الكريم محمد يحياوي الكود بعد التعديل في ThisWorkbook Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) UserForm1.Hide End Sub[/xml] [/b][/font][/size][/color] [color=#0000CD][size=5][font=arial,helvetica,sans-serif][b]ولكن أخي العزيز محمد يحياوي مشكلتي في الملف أن الفورم عند إزالة ظهور زر X أصبح هنا يظهر لدينا منطقة بيضاء في الفورم أسفل الأزرار هل هناك حل لإزالة هذه المنطقة البيضاء وظهور الفورم على حدود الأزرار فقط [/b][/font][/size][/color] [color=#0000CD][size=5][font=arial,helvetica,sans-serif][b]علما أن هذه المنطقة البيضاء تظهر تارة وتختفي تارة أخرى ... ؟؟؟؟!!!!![/b][/font][/size][/color] [color=#0000CD][size=5][font=arial,helvetica,sans-serif][b]ولك جزيل الشكر والاحترام[/b][/font][/size][/color]