نجوم المشاركات

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

تفضلوا إخواني هذا الجزء وأبدوا رأيكم.... Formulas Library.rar

اخى عبدالله بلنوار الكود التالى موجود بحدث الملف Private Sub Workbook_Open() Dim i As Integer On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Visible = xlSheetVeryHidden Next End Sub عند الدخول يقوم باخفاء الصفحات من 2 الى اخر صفحه تقبل تحياتى

اخي العزيز تفضل الملف بعد اجراء بعض التعديلات رسالة الترحيب بها اسم المستخدم اسم المستخدم يتم اختياره من Combo Box تعديل بسيط في الكود لسهوله تعديل اسم المستخدم وكلمة السر بدلا من كتابة اسم المستخدم وكلمة السر داخل الكود كتبنا اسم الخلية المكتوب بها اسم المستخدم وكلمة السر تقبل تحياتي PWD.rar

بارك الله فيك . عندما تجتمع كل هذه الجواهر فى منتدى واحد فهذا يعنى اننا على الطريق الصحيح

أستاذي الفاضل / حسام بارك الله فيك على هذا الشرح الرائع زادك الله علما ونورا وجعله فى ميزان حسناتك تحياتي

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أيها الأحبة منذ أن بدأت في تعلم الأكسس حيث كانت بداياتي في هذا المنتدى المبارك وكنت أتمنى طريقة شرح معينة حيث إن المبتدئ منا لا يحتاج للشيء النظري البحث إنما يحتاج لإنارة الطريق حتى يصل إلى المطلوب من خلال أمثلة مبسطة وذلك بحكم أن ليس كل مشارك في المنتدى متخصص في البرمجة ونحوها .. وكنت منذ أن بدأت أجمع الأمثلة ثم أقوم بفكها والنظر في الاكواد ونحوها وكان يشكل علي كثيرا معرفة اسم النموذج في الكود والسجل ونحوها وتمييزها عن بقية الكود فالكود أحيانا يكون به كلمات إنجليزية هي أساس في الكود فلا تتغير إنما الذي يتغير كلمات معينة كاسم النموذج أو السجل أو الاستعلام ونحوها ... وكم عانيت في ذلك وخاصة إذا كان المثال معقدا. ومن هذا أحببت أن نبدأ جميعًا في مشروع أظنه نافعا بإذن الله تعالى وما كان لي أن أطرحه دون إذن أساتذتي الفضلاء الذي لهم سبق فضل علي بعد فضل الله بارك الله في علمهم وعملهم ... وتكمن الفكرة في هذا الموضوع أن يتم تخصيص هذا الموضوع بموضع معين مثلا طرائق البحث في نموذج أكسس فكل منا يجتهد في طرح ما يعرفه من طرائق البحث في نماذج أكسس بشرط أن تشرح بشرح وافي بالمثال بحيث تكون مرجعا لمن أراد البحث في هذا الموضوع (طرق البحث في الأكسس) وعلى ذلك أستأذنكم في طرح مثال أُسرُّ من خلال برأيكم وملحوظاتكم حيث إني لم أقف في شبكة الإنترنت على من تولى مثل ذلك وأتمنى أن يكون لهذا المنتدى قصب السبق ... عنوان الموضوع طرائق البحث في الأكسس : الطريقة الأولى : البحث في النموذج بكتابة جز من الكلمة نفرض أن لدينا جدولا اسمه Book يهتم بأسماء الكتب ونرغب أن نبحث عن كتاب معين بمجرد كتابة جزء من اسمه فنعمل الآتي: 1)نصمم جدولا باسم Book بداخله أسماء كتب تحت سجل nameBook 2) نصمم نموذجا مبني على جدول Book بنماذج مستمرة وليكن اسم النموذج FormBook. 3) ندرج في أعلى النموذج (رأس النموذج ) مربع نص ونسميه فرضا Text1 وبالطبع التسمية من خلال الضغط على مربع التسمية بالزر الأيمن ثم خصائص ثم غير ذلك ثم في خانة الاسم نكتب الاسم المطلوب. 4) نقوم بعمل استعلام مبني على جدول Book وليكن اسمه Qry في الاستعلام نجد سجل NameBook نكتب في الحقل الفارغ الذي بجواره الكود التالي : nz([book].[namebook];"**") حيث إن Book اسم الجدول و NameBook اسم السجل الذي بداخل الجدول. 5) في الاستعلام في المعايير تحت حقل الذي تم عمله في الفقرة رقم (4) نضع الكود التالي Like "*" & [forms]![formbook]![text1] & "*" حيث FormBook هو اسم النموذج و Text1 اسم مربع النص الذي تم إدراجه في رأس النموذج. 6) نذهب إلى النموذج ونضع المؤشر على مربع النص text1 ثم الزر الأيمن ثم خصائص ثم حدث ثم بعد التحديث نضع الأمر التالي Me.Requery 7) نذهب إلى خصائص النموذج من خلال الضغط على أي مكان فارغ في النموذج ثم الزر الأيمن ثم خصائص ثم نختار بيانات ثم مصدر السجل ثم نختار منه اسم الاستعلام Qry بعد ذلك يكون النموذج جاهزا للبحث فيه عن أي كتاب ويمكن تكرار ذلك لأكثر من مربع نص بنفس الخطوات السابقة وبالمثال يتضح المقال. ((هذا نموذج إن كان مناسبا نستمر عليه ليكون مرجعا ثم ننتقل إلى موضوع آخر (ولا ولا ولا أستغني عن الرأي والمشووورة وهذا جهد المقل) ...) والله الموفق طرائق البحث.rar

بسم الله الرحمن الرحيم الاخوة الزملاء فى هذا الصرح العظيم اقدم لكم الدرس الثانى من علمنى كيف اصطاد شرح مبسط عن كيفية عمل كود ترحيل من خلايا متفرقه بورقه عمل الى ورقة عمل اخرى بناء على طلب الاخ الكريم / بيف الدين حسام يريد معرفه كيفية عمل كود ترحيل من سند قبض الى شيت الخزينة كما هو موضح بالصور المطلوب ترحيل الخلايا المظلله باللون الاصفر بورقه عمل (توريد) الى ورقة عمل حركة الخزينة اولا : الضغط على ALT+F11 لفتح محرر الاكواد ثم من قائمة insert نختار مودويل جديد سيظهر لنا شاشة بيضه هنبداء بسم الله كتابة الكود Sub ترحيل() End Sub السطر الاول هو الاعلان عن بداية الكود sub يلية اسم الكود وهو ترحيل يلية () يعنى فتح قوس ثم غلقه فبمجرد كتابة السطر الاول سوف يتم ظهور السطر الثانى وهو End sub أنا عايز كل واحد يكتب الكود بنفسة مش ينسخ / من فضلك عايزك تكتب ثانيا : كتابة هذا السطر Sub ترحيل() Application.ScreenUpdating = False End Sub هذا السطر يعنى تثبيت الشاشه عند الترحيل ( يعنى عدم اهتزاز الشاشه اثناء تطبيق الكود ) ثالثا : ايه المطلوب هو ترحيل الخلايا المظلله باللون الاصفر بورقه عمل توريد الى ورقة عمل حركة الخزينة اذن الشيت اللى هتروح له البيانات هو شيت حركة الخزينة وهو اسمه حسب الملف المرفق وكما هو موضح بالصورة Sheet4 وليس حركة الخزينة ملحوظه/عند استخدم اسم شيت باى كود يفضل كتابة اسم الشيت الثابت كما هو بمحرر الاكواد لانه احتمال تغيير اسم الشيت من (حركة الخزينة) الى (قاعدة البيانات )مثلا فى هذه الحاله لا يعمل الكود نرجع للكود بتاعنا ونضيف الاتى Sub ترحيل() Application.ScreenUpdating = False With Sheet4 End With End Sub ما تم اضافته هو With Sheet4 كلمة With معناها الحرفى ( مع) أى مع الشيت Sheet4 لماذا استخدمنا Sheet4 وليس ( حركة الخزينة) لان لو كتبنا (حركة الخزينة With) وجيت حضرتك وغيرت اسم الشيت من حركة خزينة الى قاعدة البيانات مثلا لا يتغير اسم الشيت فى محرر الاكواد فهو هيظل ثابت باسم Sheet4 وفى هذه الحاله لا يعمل الكود لانه هيبجث عن شيت حركة الخزينة هيكون غير موجود لكن لو استخدمت With Sheet4 مهما تغير اسم الشيت هيشتغل الكود طيب اى شئ بفتحه فى الاكسيل لازم اقفله انا دلوقتى فتحت With Sheet4 اذن لا بد من قفل With بـــ End With رابعا : اضافه السطر التالى Sub ترحيل() Application.ScreenUpdating = False With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row End With End Sub الجديد هو هذا السطر Lr = .Cells(.Rows.Count, "D").End(xlUp).Row عملنا متغير اسمه LR ويمكنك تغيير الى ما تريد من الاحرف حسب مزاجك حضرتك طيب وعرفناه انه عبارة عن اخر خليه بها بيانات فى عمود D من شيت حركة الخزينة وهى هنا كما هو بالصورة عليه الخلية D4 مكتوب فيها " رصيد افتتاحى" واحد هيقولى مش فاهم هوضح له اكتر مثلا عايز اقول ان " الاستاذ الكبير العلامه ياسر خليل العبقرى" = r فبدل كل شوية ما اكتب الجمله دى " الاستاذ الكبير العلامه ياسر خليل العبقرى " وتاخد منى وقت استعيض عنها بى r فقط / على طول الكود هيفهم معناها خامسا : اضافه السطر التالى Sub ترحيل() Application.ScreenUpdating = False With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [D8] End With End Sub ما هو الجديد الجديد هذا السطر [Cells(Lr + 1, "A") = [D8. ماذا يعنى الجزء الاول و هو.("Cells(Lr + 1, "A. (العمود, الصف)Cells. الصف هو Lr+1 يعنى Lr هى اخر صف فى العمود D من شيت حركة الخزينة فيه بيانات ( طيب انا عايز بقى السطر اللى بعده يبقى اقول Lr+1 طيب والعمود هو A وتم كتابته بين علمتى تنصيص "A" ( شيفت + حرف الطاء بالكيبور) طيب عمود A ده عايزين يروح له التاريخ اللى بسند القبض / والتاريخ اللى بسند القبض موجود بالخلية D8 صح اذن اقول [Cells(Lr + 1, "A") = [D8. وهكذا كما هو موضح بالكود يتم ترحيل كامل بيانات السند ثم نغلق With ب End With Sub ترحيل() Application.ScreenUpdating = False With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [D8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [D10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub اضغط على زر الترحيل ستجد البيانات تم ترحيلها ارجوا من الله ان اكون وفقت فى هذا الشرح ويستفيد منه الجميع ان احسنت فمن الله وما توفيقى الا بالله وان اخطأت فمن نفسى والشيطان وارجوا من الاساتذه الافاضل مراجعه الشرح وتصحيح ما به من أخطأ ولى رجاء من ادارة المنتدى جعل التعديل على الشرح متاح لى حتى يتثنى لى اضافه بعض الاشياء الاخرى تخص نفس الموضوع انا استكفيت بهذا القدر حتى يكون سهل على الاعضاء اللى عايز يطبق وان شاء الله سوف نكمل ما بدأناه تقبلوا منى وافر الاحترام والتقدير خزينة.zip

السلام عليكم اقدم لكم في هذا الموضوع قناة على اليوتيوب خاصة بالاكسيل تحتوى القناة على اكثر من 160000 (مائة وستون الف) درس فيديو مدعمة بملفات للشرح حتى لحظة كتابة الموضوع وبعض الدروس اكثر من ساعة للدرس انا استفدت من هذه القناة كثيرا جدا ارجو ان تستفيدوا منها https://www.youtube.com/user/ExcelIsFun/videos

السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذا الموضوع قد قتل بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكن هو طلب لأحد الاعضاء ( الاخ الكريم / alredha ) ولكني اردت ان اجعله موضوع بعنوان واضح ليستفيد من الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة افتتاحية باسم مستخدم ورقم سري ولايظهر الاكسيل الا بعد اعطاء الشاشة البيانات الصحيحة وطبعاً والاكيد كله من علمكم اساتذتي الكرام وفي الدرس القادم سنتعرف علي طريقة عمل اكواد الشاشة لتعمل معنا علي اي برنامج لدينا او اي برنامج سنقوم بتصميمه فيما بعد جزاكم الله خيرا اساتذتنا طريقة عمل الشاشة الافتتاحية شرح علي الورد1.rar شرح عمل شاشة افتتاحية فيديو1.rar طريقة عمل الشاشة الافتتاحية اكسيل1.rar

الاخوة الزملاء فى هذا الصرح العظيم اقدم لكم شرح مبسط عن msgbox فى لغة البرمجه VBA فى البداية كلنا نتفق ان اى عمل فى الاكواد يتطلب فى اغلب الاحيان وجود رساله تحذيرية للمستخدم او رساله معلوماتية او رسالة فى صيغه سؤال الرساله عبارة عن 3 أجزاء وهى كالتالى "title عنوان الرساله",BUTTONS الازرار,"text نص الرساله " msgbox نلاحظ ان ما بين كل جزء يوجد هذه العلامه ( , ) وتكتب من خلال الضغط على shift+حرف و بالعربى اولا نقوم بشرح الجزء الاول من الرساله وهو "نص الرساله " نقوم بفتح محرر الاكواد من خلال ALT+F11 ُم ادارج مودويل جديد للعمل علية اول نوع من الرسائل هى النوع العادى مثال 1 لو حبينا نعمل رساله ونكتب فيها ( كلنا بنحب أوفيسنا ) اول شئ نعمل ادراج مودويل جديد ونكتب فيه الكود التالى Sub hossam() MsgBox "كلنا بنحب أوفيسنا" End Sub نلاحظ فى الكود ان فى ثلاثة اسطر السطر الاول وهو اسم الكود وهو هنا اسمه Hossam ويمكن تغيير الى اى اسم تحبه انت الثانى وهو الكود الذى يتم تنفيذه وفى المثال السابق هو تنفيذ رساله كلنا بنحب اوفيسنا (كيف يتم كتابة الرساله) msgbox ثم "الرساله" نلاحظ ان الرساله بين علامتين تنصيص اى الضغط على shift+حرف ط بالعربى من لوحه المفاتيح لو رجعنا الى قمنا باغلاق محرر الاكواد ورجعنا الى ورقة العمل 1 من زر Developer بشريط القوائم الضغط على اول زر فوق ناحية اليسار ثم رسم الزر على ورقة العمل ستظهر لك قائمة بها كل الاكواد التى قمت بعملها اختار منها كما هو بالمثال hossam لو قمنا بالضغط على هذا الزر ستظهر لنا الرساله التالية مثال 2 عمل رساله من شقين شق ثابت وهو الرساله وشق متغير مثلا "عدد الطلبه فى الفصل الاول" & ( الرقم بالخلية A1 ) يكون الكود كالتالى Sub hossam() MsgBox "عدد الطلبه فى الفصل الاول " & Range("A1").Value End Sub وهنا نلاحظ ان بعد الانتهاء من الرساله وضعنا علامه & ثم Range("A1").Value اى الرقم اللى موجود بالخلية A1 وهو كما هو بالصورة 15 عند الرجوع الى ورقة العمل والضغط على الزر ستظهر لنا الرساله كما هو مبين بالصورة مثال 3 نريد عمل رساله فى سطرين يكون الكود كالتالى Sub hossam() MsgBox "عدد الطلبة فى الفصل الاول " & Range("A1").Value & vbNewLine & "عدد الطلبة فى الفصل الثانى" & Range("A2").Value End Sub نلاحظ هنا هذا هوالجزء الاول من الرسالة Range("A1").Value & "عدد الطلبة فى الفصل الاول " MsgBox نفس الكود السابق ثم علامة & vbNewLine & أى عمل سطر جديد ثم السطر الثانى من الرساله Range("A2").Value & "عدد الطلبة فى الفصل الثانى" MsgBox وعند الرجوع الى ورقة العمل والضغط على زر الكود ستظهر الرساله التالية كما موضح بالصورة الحمد لله انتهينا من الجزء الاول وهو نص الرساله وعرفنا انى ممكن يكون نص ثابت كما هو بالمثال الاول وممكن يكون جزء ثابت وجزء متغير كما هو بالمثال 2 وممكن يكون جزء ثابت ومتغير اكثر من مره على سطرين كما بالمثال 3 ثانيا: نقوم بشرح الجزء الثانى من الرساله وهو BUTTONS الازرار BUTTONS الازرار,"text نص الرساله " msgbox قبل ان نبداء بشرح هذا الجزء ننظر الى الصورة التالية شكل الزر رقمه الاسم فى اول مثال من الشرح وهو عمل رساله ثابته "كلنا بنحب أوفيسنا" فاذا اردنا عمل رساله "هل تحب أوفيسنا " هنا صيغة سؤال اى يوجد له اجابة اما نعم او لا اذن لابد من وجود ازرار فلو حبينا نعمل كود يكون كالتالى Sub hossam() MsgBox "هل تحب أوفيسنا ؟", vbYesNo End Sub وعند الرجوع الى ورقة العمل والضغط على زر الكود ستظهر الصورة التالية كما موضح بالصورة كما يمكن ايضا كتابة الكود بتلك الطريقه وهى استبدال vbYesNo بالرقم 4 كما هو موضح بالجدول اعلاه ويكون الكود كالتالى Sub hossam() msgbox "هل تحب منتدى اوفيسنا؟",4 End Sub

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

ماشاء الله عليك ياباشمهندس انت مبدع فى اكوادك جزاكم الله خير

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

ضع باسورد وذلك بالدخول لمحرر الأكواد ثم Right-Click على اسم المشروع واختيار VBAProject Properties كما في الصورة ثم من تبويب Protection ضع علامة صح بجوارLock Project for viewing ثم اكتب الباسورد التى تريدها .. واضغط موافق كما في الصورة تحياتي اخى العزيز ابن مصر اشكرك من صميم قلبى على اهتمامك المتواصل، و اعتذر لك اذا كنت ضيعت لك وقتك. بجد مش عارف اشكرك ازاى مع خالص تحياتى

ضع باسورد وذلك بالدخول لمحرر الأكواد ثم Right-Click على اسم المشروع واختيار VBAProject Properties كما في الصورة ثم من تبويب Protection ضع علامة صح بجوارLock Project for viewing ثم اكتب الباسورد التى تريدها .. واضغط موافق كما في الصورة تحياتي

اخى الفاضل جرب الكود التالى .. كان من الممكن استخدام الدالة IF ولكن لإمكانية ان تكون هناك أكثر من قيمة غير 0 او 1 تم استخدام Select Case Private Sub UserForm_Initialize() Select Case Sheet1.Range("A1").Value Case 0 Me.TextBox1.BackColor = &HFFC0C0 Case 1 Me.TextBox1.BackColor = &H8080FF End Select End Sub تحياتي

اخى الفاضل حلك بقي منع النسخ واللصق تماما والشيتات تبقي للإدخال وفقط، مرفق الملف تحياتي Crew Change.rar

عذرا اخي حسين جهازي لا يفتح الا صيغة mdb

كلا المرفقين الذين تفضل بهما ابو آلاء يشتملان على مطلوبك المرفق الاول يبين طريقة جمع 1-كل صفحة على حدة 2- ما سبق 3- المجموع الكلي

السلام عليكم أخي الكريم بالنسبة لكود التنقل بين الصفحات الكود التالي يعمل جيدا Private Sub UserForm_Initialize() Dim i As Integer On Error Resume Next With ListBox1 For i = 1 To Sheets.Count .AddItem Sheets(i).Name Next i End With Me.ListBox2.List = Sheets("bb").Range("Q7").Resize(10, 1).Value End Sub Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Me.ListBox1.Value = "" Then: Exit Sub Sheets(ListBox1.Value).Select End Sub Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Me.ListBox2.Value = "" Then: Exit Sub Sheets(ListBox2.Value).Select End Sub

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

أخي الفاضل طارق جرب المرفق ‫طارق زكريا - نسخة.rar

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

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

اخى العزيز الجموعى بارك الله فيك وجزاك الله خير الجزاء عمل رائع.. ومتقن... ومفيد تقبل تحياتى وتقديرى

اخى الكريم اللى مش عارفه اسمه اولا ارجو من حضرتك تغيير الاسم للعربيه طبقا لقواعد المنتدى ثانيا شكر خاص لحضرتك لحرصك على التعلم والاصرار علية بخصوص اين الخطا بالكود الكود بتاع حضرتك كما هو بالمرفق عاليه Sub Tarheel() Dim LR As Integer Application.ScreenUpdating = False With sheet2 LR = .Cells(.Row.Count, "D").End(xlUp).Row .Cells(LR + 1, "D") = [E6] .Cells(LR + 1, "E") = [H6] .Cells(LR + 1, "F") = [K6] .Cells(LR + 1, "G") = [E10] .Cells(LR + 1, "H") = [H10] .Cells(LR + 1, "i") = [K10] [E6] = "" [H6] = "" [K6] = "" [E10] = "" [H10] = "" [K10] = "" End With End Sub الخطاء هنا اولا : هو هذا السطر LR = .Cells(.Row.Count, "D").End(xlUp).Row يتم تعديله الى LR = .Cells(.Rows.Count, "D").End(xlUp).Row الفرق هو Rows بدلا من RoW ثانيا : هذا السطر With sheet2 وتعديله هو With ورقة2 لو رجعت للشرح وشوف الصورة دى هتجد اننا استخدمنا sheet4 وهى خارج القوس لماذا لان الاوفيس عندك عربى والاصل لأسماء الشيتات بمحرر الاكواد العربية ملكش دعوه بالاسم اللى داخل القوس استخدم دائما وابدا الاسم خارج القوس لو جربت تعدل اسم sheet2 بالمرفق وادخل محرر الاكود ستجد برضوا اسمه ورقة2 ثالثا: هذا السطر Dim LR As Integer وجوده او عدم وجوده لا يؤثر فى شئ رابعا : اعجاب اعجبت جدا انك فكرت تبدع وتطور فى الكود واضافه مسح الخلايا بعد الترحيل برافو عليك انت فنان (اتبعت اعرف معلومه واستنتج الاخرى ) [E6] = "" [H6] = "" [K6] = "" [E10] = "" [H10] = "" [K10] = "" تقبل تحياتى وشكرا لحضرتك مره اخرى

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

اخى الحبيب مختار . جزاكم الله خيرا على هذا الاقتراح الاكثر من رائع وان شاء الله ساعمل به . وارجو منك ان لا تحرمنا من هذه الاقتراحات تقبل منى تحياتى

اخى الكريم RR يمكن الاستغناء عنها وحذفها ولا يوثر على عمل الكود ستظهر الرساله عادى تقبل تحياتى

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

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

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

رائع يا استاذ احمد حلول متنوعه واكثر من رائعه تقبل تحياتى

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

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

اتفضل ياسيدي Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo 1 If Target.Validation.Type > 0 Then Application.CutCopyMode = False End If 1 End Sub اتمنى يكون هو ده المطلوب ... عند العضو 3 طرق الى الآن .. تحياتي Sheet1.rar

جميل

اخى الفاضل بعد إذن أخى الكريم أ.حسام، جرب الملف المرفق لربما به طلبك تحياتي ValidationList.rar

( على حد علمى ان من عيوب القائمة المنسدله انها تسمح باللصق ) فى احد الخيارين امامى شوف ايه المناسب لك وانا تحت امرك الاول متابعه الرابط التالى http://www.officena.net/ib/index.php?showtopic=58026&page=2 المشاركة رقم 23 هل يناسبك هذا الحل ام انك تريد النسخ بالملف الثانى عمل فورم بحث بالاكواد والاستغناء عن القائمة المنسدله تقبل تحياتى

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

ماشاء الله برنامج اكثر من رائع مشكور على المجهود العظيم برجاء المساعدة في عمل برنامج خاص بشؤون الموظفين

جزاكم الله الجنة ... بوركت الجهد عمل اكثر من رائع

شكرا لك وفى انتظار النسخه التاليه

برنامج رائع سلمت يمناك عليه وجزاك الله كل خيرا وجعله في ميزان حسناتك

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

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

السلام عليكم أخي العزيز أولا اهلا ومرحبا بك بين إخوانك ثانيا وكما قال أخونا الفاضل / ابومحمد ، الأفضل أن ترسل ملفا ثالثا يمكنك البحث بالمنتدي ، إن لم يكن لديك فكرة مبدئية عما تريد تحديدا وكبداية يمكنك مراجعة الروابط التالية ، فقد تجد بها ماتريد جاهزا أو تأخذ منها ملفا وتبدأ من عنده بعدما تضع عليه طلباتك 1. برنامج محاسبة شركات المقاولات (برنامج جاهز) http://www.officena.net/ib/index.php?showtopic=17493&hl=%D9%85%D8%AD%D8%A7%D8%B3%D8%A8%D8%A9 2. ميزانية لمحاسبة شركات المقاولات (برنامج جاهز) http://www.officena.net/ib/index.php?showtopic=17445&hl=%D9%85%D9%82%D8%A7%D9%88%D9%84%D8%A7%D8%AA#entry81894 3. برنامج خبور المحاسبي (برنامج جاهز) http://www.officena.net/ib/index.php?showtopic=17944&page=2&hl=%D9%85%D8%AD%D8%A7%D8%B3%D8%A8%D8%A9#entry86481 4. برنامج مقاولات http://www.officena.net/ib/index.php?showtopic=30620&hl=%D9%85%D9%82%D8%A7%D9%88%D9%84%D8%A7%D8%AA 5. برنامج محاسبة بالاكسيل مجرب http://www.officena.net/ib/index.php?showtopic=30859&hl=%D9%85%D8%AD%D8%A7%D8%B3%D8%A8%D8%A9 6. نظام محاسبة ومخزون مطاعم وفنادق http://www.officena.net/ib/index.php?showtopic=32220&st=0 7. برنامج الحسابات مع مراكز التكلفة http://www.officena.net/ib/index.php?showtopic=32105

سلام عليكم المطلوب : 1. عند فتح نموذج (المشتريات) ينتقل إلى اخر سجل تم اضافته. 2. بعد تسجيل البيانات لا يتم الاضافة الا بعد الضغط على زر (حفظ). 3. لا يتم التعديل الا بعد الضغط على زر (تعديل).

السلام عليكم: الأخ/ psd 1 يمكنك ذلك من خلال تسجيل ماكرو ، أو اتبع الخطوات التالية 1-انسخ الماكرو الموجود فى نهاية المشاركة 2-افتح وورد ومن قائمة أدوات اختر : ماكرو > محرر Visual Basic 3-من قائمة Insert اختر Module ثم الصق فى الموديل ما سبق نسخه 4-اغلق صفحة Visual Basic وارجع لصفحة وورد 5-من قائمة عرض اختر أشرطة أدوات > تخصيص ، ومن التبويب الأوامر وتحت قائمة فئات اختر وحدات ماكرو لتظهر فى القائمة المقابلة أمر خط_الرقعة واضغط علية بالماوس مع السحب إلى شريط القوائم وليكن داخل قائمة إدراج 6-يمكنك تعديل الاسم والخواص بالضغط بالزر الأيمن على الأمر الجديد وذلك قبل غلق مربع حوار تخصيص Sub خط_الرقعة() ' خط_الرقعة ماكرو ' Selection.InlineShapes.AddOLEObject ClassType:="Decotype", FileName:="", _ LinkToFile:=False, DisplayAsIcon:=False End Sub