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

 السلام عليكم ورحمة الله وبركاته.. أقدّم لكم كل شكر وامتنان وعرفان لتكريمي كعضو مميَّزٍ بمنتدى كريم وصرحٍ عظيمٍ أحسست فيه على الدوام أني بين إخوتي وأحبابي حيث غمرتموني بفضلكم . شهادة أتشرَّف بها قلت في نفسي هل أستحقّ هذا التكريم كوني مبتدئ ...وهناك عمالقة يخوضون غمار البحث العلمي ويساعدون الناس بحل مشكلاتهم وتطوير بحوثهم ..إلا أنني أقول لكم يقيناً أن الله سبحانه يحب العبد ويحبب الناس به ..كل ما تعلمته كان بالنسبة لي إنجازاً كبيراً لأنني بصراحة لم أتتلمذ على يد معلمٍ لهذا المجال ولم أتلق دورة تأهيلية بل بفضل ربي أولاً ثم بجهودٍ شخصية كوني كنت من سكان باديةٍ أو منطقة نائية عن مراكز المدن .عملت ناظراً في مدرسة ردحاً من الزمن ثم بعد أن هُجرنا من بيوتنا وشُردنا في الآفاق وجدت حصيلة حبي لهذا المجال حيث هيأ الله تعالى لي المجال للعمل وإلا كيف يمكن لابن خمسين عاماً أن يقوم بإعالة أسرة كبيرة ٍ في بلد الاغتراب بعد عمرٍ قضاهُ في التعليم... أخص بشكري أخي وأستاذي وحبيبي في الله والذي أعتبره بمثابة ولدي الأكبر ياسر خليل أبو البراء على تشجيعه ورعايته ولا أنسى بقية الأخوة الذين كانوا حقاً نِعمَ الأخوة والأصدقاء.. وأقدّم التهاني الحارّة لكل الأخوة الذين حصلوا على ترقية مباركة عليكم جميعاً وإلى عمل أفضل ونتائج أرقى بإذن الله تعالى تقبلوا تحياتي...أخوكم أبو يوسف.

ها هي المشكلة التي وضعت يدي عليها ... الملف المرفق في المشاركة رقم 3 غير معبر عن الملف الأصلي .. يبدو أن الخلية التي تحتوي على التاريخ منسقة بشكل مختلف عموماً جرب الكود بهذا الشكل وإن شاء الله تنحل مشكلتك Sub CreateBackup() ThisWorkbook.SaveCopyAs Filename:="D:\" & Range("E5").Value & "_" & Replace(Format(Range("E3"), "yyyy/mm/dd"), "/", "_") & ".xlsm" End Sub

أخي الكريم المهاجر يرجى مراجعة رابط التوجيهات وتغيير اسم الظهور للغة العربية إليك الكود التالي يوضع في حدث المصنف بفرض أن لديك ورقة عمل باسم SaveInf والتي سيتم تسجيل المعلومات الخاصة بالحفظ داخلها .. التاريخ والوقت وورقة العمل النشطة التي تمت عملية الحفظ فيها واسم المستخدم الذي قام بعملية الحفظ وعدد مرات الحفظ .. أرجو أن يكون المطلوب Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) With ThisWorkbook.Sheets("SaveInf") If Application.CountA(.Range("A1:C1")) = 0 Then .Range("A1:C1").Value = Array("اسم المستخدم", "ورقة العمل أثناء الحفظ", "وقت عملية الحفظ") With .Range("A" & Rows.Count).End(xlUp)(2) .Resize(, 3).Value = Array(Application.UserName, ActiveSheet.Name, Now) With .Offset(1, 2) .FormulaR1C1 = "=COUNT(R2C:R[-1]C)&"" إجمالي مرات الحفظ""" End With End With End With End Sub لا تنسى أن تحدد أفضل إجابة كما لا تنسى أن تضغط "أعجبني هذا" إذا أعجبك المحتوى والكود تقبل تحياتي :fff: Save Process History YasserKhalil.rar

تفضل أخي الكريم ضع هذه المعادلة في الخلية I5 =IF(H5<G5,1,0)+H5-G5 ويمكنك سحبها إلى I17

الأخ الفاضل أبو إلياس إليك الكود بعد التصحيح .. من الأخطاء الظاهرة الخفية في الكود الذي قمت بكتابته كتابة رقم 1 بدلاً من حرف L في جملة xlup ويرجع ذلك إلى أنه عند كتابة حرف الـ L صغير بهذا الشكل l فإنه يشبه إلى حد كبير رقم 1 في محرر الأكواد .. وكذلك رقم 1 بدلاً من المتغير i يراعى عند كتابة الأكواد الدقة التااااااااامة ثم الدقة التامة .. التصحيح أصعب عندي من بناء الكود !! استغرق الأمر مني حوالي نصف ساعة لمعرفة الخطأ .. ظللت أنظر للكود ثم أنظر مرة أخرى ثم أنظر ولم ألاحظ أن حرف الـ L قد كتب بدلاً منه رقم 1 عموماً الحمد لله تم تدارك الخطأ .. ومعرفة مكمن المشكلة إليك الكود بعد التعديل Private Sub CommandButton1_Click() Dim MySH As Worksheet Dim I As Long, K As Long, R As Long, LR As Long Set MySH = Sheets("البيانات") K = 1 Columns("A:J").ClearContents For I = 3 To MySH.Cells(Rows.Count, 1).End(xlUp).Row LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 For R = 1 To 10 If Me.Controls("CheckBox" & R) Then Cells(LR, K) = MySH.Cells(I, Me.Controls("CheckBox" & R).Caption) K = K + 1 End If Next R K = 1 Next I Unload Me End Sub لا تنسى أن تحدد أفضل إجابة .. كما لا تنسى أن تضغط على كلمة "أعجبني هذا" تقبل تحياتي :fff: Transfer Specific Columns By CheckBoxes On UserForm.rar

اخواني الكرام: عندما قمت بالاعداد لشرح موضوع Select Case توصلت الى عمل دالة جديدة تقوم باستخراج اسم المحافظة وتاريخ الميلاد والنوع من الرقم القومي المصري قد لا تكون هذه الدالة جديدة عليكم فقد قام عدد من الاساتذة واذكر منهم الاستاذ خبور بعمل دوال احترافية بهذا الخصوص ولكني احببت ان اضعها هنا للاستفادة منها الدالة تحوي على بارو مترين هما 1. A_Rng ويمثل خلية الرقم القومي 2. T ويمثل الخيار الخاص بالعنصر المراد استخراجه =============================== وهنا المتغير T ينقسم الى التالي اي عندما T = 1 يتم استخراج اسم المحافظة T = 2 يتم استخراج تاريخ الميلاد T = 3 يتم استخراج النوع سوء ذكر او انثى ==== ويصبح الشكل النهائي للدالة =A_ID(A_Rng;T) ارجو منكم التجربة وابداء الراي اليكم المرفق 2003 دالة معرفة.rar

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

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

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

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

الجزء السادس

أخي الفاضل أبو زيد ... السلام عليكم إليك الكود التالي وإن شاء الله بإذن المولى يفي بالغرض تماماً .. Sub InsertPictureVBA() Dim pic As Picture, strPhotosFolder As String, strPhoto As String strPhotosFolder = ThisWorkbook.Path & "\صور\" Application.ScreenUpdating = False With Sheets("بطاقة الموظف السنوية") While .Pictures.Count .Pictures(1).Delete Wend strPhoto = strPhotosFolder & Trim(.Range("B2").Value) & ".*" strPhoto = Dir(strPhoto) If Len(strPhoto) Then strPhoto = strPhotosFolder & strPhoto .Pictures.Insert (strPhoto) Set pic = .Pictures(.Pictures.Count) With pic .ShapeRange.LockAspectRatio = msoFalse .Left = .Parent.Range("J1").Left .Top = .Parent.Range("J1").Top .Width = .Parent.Range("J1").Width .Height = .Parent.Range("J1").Height End With End If End With Application.ScreenUpdating = True End Sub كل ما عليك فعله هو تغيير مسار مجلد الصور من هذا السطر strPhotosFolder = ThisWorkbook.Path & "\صور\" ليصبح بهذا الشكل strPhotosFolder = "D:\صور\" كما تمت إضافة سطر في حدث الورقة المسماة "بطاقة الموظف السنوية" ليتم تنفيذ الكود بمجرد التغير في الخلية B2 ... قم بكتابة رقم الموظف لتظهر الصورة الخاصة به في الخلية J1 بنفس الأبعاد للخلية .. الملفات في مجلد الصور تكون بأرقام الموظفين .. كل موظف له صورة مسماة برقمه أو يمكنك التعديل في الكود بما يحلو لك ... ليناسب طلبك أياً كان تقبل الله منا ومنكم صالح الأعمال ولا تنسى أن تحدد أفضل إجابة كما لا تنسى أن تضغط أعجبني هذا إذا أعجبك بالطبع برنامج البطاقة الشهرية والسنوية.rar

أخي الحبيب أبو البراء بعد أن تم تنصيب الأداة تم المطلوب على أكمل وجه...جزاكم الله خيرا..والسلام عليكم.

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

مرفق فك____رة 11 وبة كامل الشرح VLOOKUP - 11.rar

حياك الله لو وضعت مرفق افضل للعمل عليه على العموم هذا احد الحلول بالمرفق 2003.rar

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

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

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

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

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

بارك الله فيك أخي الغالي خالد الرشيدي ومبارك الترقية المستحقة والتي تستحق أفضل منها الملف المرفق في الفكرة رقم 11 غير مكتمل .. يرجى إرفاق الملف كاملاً كوني أحب الاحتفاظ بالكنوز تقبل تحياتي

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

خالد الرشيدى تحياتى و بارك الله فيك

اخى خالد درس جميل وشيق تقبل تحياتى

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

فى البداية اشكر بشدة زملائى واساتذتى على المتابعة والتشجيع و الترقية فك____رة 11 نستكمل باقى الافكار وسيتم وضعها جميعاً فى الملف المجمع تباعاً ان شاء الله VLOOKUP - 11.rar

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

السلام عليكم الأخ الكريم اسلام رجب بالأطلاع على ملفك الشخصى اتضح لى كونك عضو بالمنتدى منذ فبراير 2014 و عدد مشاركاتك بالمنتدى لا يتعدى 20 مشاركة حتى لحظة كتابة السطور بالـتأكيد تعد مكسبا للمنتدى و إضافة مميزة بالتفاعل مع الاعضاء و مشاركتهم فى المواضيع و هو أمر جيد و حتى يكون تواجدك متسق مع المنتدى أذكرك بأمرين هامين فضلا لا أمرا أولا عليك الأطلاع على التوجيهات الخاصة بالأعضاء الجدد من هنا http://www.officena.net/ib/index.php?showtopic=60147 و ثانيا يرجى تغيير الاسم الى اللغة العربية كوضع متعارف عليه هنا ، و أرحب كثيرا بتواجدك هنا و لم أكن أعرف انك عضوا بالمنتدى من قبل.. دمت بخير و أعزك الله .

جزاك الله كل خير ان شاء الله

لآثراء الموضوع: https://www.youtube.com/playlist?list=PLz1DwRLIdmyBUYLd238pZt-h_KZhTrAHj https://www.youtube.com/playlist?list=PLz1DwRLIdmyBUYLd238pZt-h_KZhTrAHj

فيديو بسيط بخصوص البحث عن الصور من خلال اليوزرفورم الكود سهل وبسيط جدا

تفضل تم التعديل New_Db_Up4.rar

حياك الله طيب ارسل صوره ولا المرفق نشوف الرساله علشان اي احد يقدر يساعدك تحياتي

تفضل فتح ملفات وورد حسب اسم المستند افتح قاعدة البيانات وانقر نقرا مزدوجا على حقل اسم الملف يجب ان تكون المستندات بجانب قاعدة البيانات و يمكنك تغيير موقع المستندات فقط عدل على المسار داخل الكود test.rar

الاخوة الكرام إليكم الاصدار الاول من تجميعة شروحات الدالة https://www.mediafire.com/?hci84c7iu7ilz96 هذا الشكل يعنى ان الخلية بها المعادلة المشروحة

الشلام عليكم فيديو بسيط

السلام عليكم شوف المرفق تلاقي فيه كودين الاول لفتح الاوت لك والثاني لاغلاقه بس الاول تفتح لك بريد على الاوت لك وراح تلاقي ماكرو خاص بارسال الرسال شوفها ورتبها على نظامك حسب ماترغب اتمنى ان اكون افدتك تحياتي sa.rar

السلام عليكم ورحمة الله وبركاته: الأخوة الأفاضل أخي وحبيبي في الله ياسر خليل أبو البراء...عندما رأيت هذه المشاركة قلت في نفسي ما شاء الله بارك الله محبوك كثر بفضل الله ومنّته وكل ذلك لم يأت من فراغ...بل من الجهود المتضافرة والأعمال العظيمة التي قدمتها بسخاء إرضاء لله ورسوله وحباً في العلم ونشره على مدى واسع ..تذكرت أيضاً الحديث القدسي الذي يبين حقيقة وأسباب المحبة في الله (حديث قدسي) أَخْبَرَنَا عَلِيٌّ ، أَنَا عَبْدُ الصَّمَدِ ، أَنَا الْحَارِثُ ، ثَنَا أَخْبَرَنَا عَلِيٌّ ، أَنَا عَبْدُ الصَّمَدِ ، أَنَا الْحَارِثُ ، ثَنَا بْنُ عَاصِمٍ ، عَنْ سُهَيْلِ بْنِ أَبِي صَالِحٍ ، عَنْ أَبِيهِ ، عَنْ أَبِي هُرَيْرَةَ ، قَالَ : قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ : إِنَّ اللَّهَ إِذَا أَحَبَّ عَبْدًا دَعَا جِبْرِيلَ عَلَيْهِ السَّلامُ ، فَقَالَ : " إِنِّي أُحِبُّ فُلانًا فَأَحِبَّهُ " . فَيُحِبُّهُ جِبْرِيلُ ، ثُمَّ يُنَادِي فِي السَّمَاءِ : إِنَّ اللَّهَ يُحِبُّ فُلانًا فَأَحِبُّوهُ فَيُحِبُّهُ أَهْلُ السَّمَاءِ ، ثُمَّ يَضَعُ لَهُ الْقَبُولَ فِي الأَرْضِ فَيُحِبُّهُ أَهْلُ الأَرْضِ ، وَإِذَا أَبْغَضَ عَبْدًا دَعَا جِبْرِيلَ عَلَيْهِ السَّلامُ فَقَالَ : " إِنِّي أُبْغِضُ فُلانًا فَأَبْغِضْهُ " . فَيُبْغِضُهُ جِبْرِيلُ ، ثُمَّ يُنَادِي فِي السَّمَاءِ : إِنَّ اللَّهَ يُبْغِضُ فُلانًا فَأَبْغِضُوهُ فَيُبْغِضُهُ أَهْلُ السَّمَاءِ ، ثُمَّ تُوضَعُ لَهُ الْبَغْضَاءُ فِي الأَرْضِ فَيُبْغِضُهُ أَهْلُ الأَرْضِ . اللهم اجعلنا ممن تحبهم ويحبونك ...ولكن ذلك يحتاج منا أن نتبع نهج سيد الخلق وحبيب الحق محمد صلى الله عليه وسلم. لك جزيل شكري واحترامي ومحبتي ....السلام عليكم ورحمة الله وبركاته.

فكـــــــــــــرة 10 التطبيق بالمرفقات VLOOKUP _10.rar

اعتذر رفعت مرفق خاطئ البرنامج مرفق المراسلة.rar

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

بسم الله والصلاة والسلام على رسول الله وبعد : مباركة عليكم الترقية إلى مرتبة تستحقونها أستاذنا العزيز ياسر خليل أبو البراء راجياً لكم دوام التقدم والعطاء تهــــــــــــــــــــــــــــــــــــــــــانينا

استاذ : ياسر .... كنت ذا همة ، فوصلت للقمة اتمنى لك ما بعد القمة الف مبروك لك والف مبروك لنا

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

اخى الرائع المبدع المايسترو /عبدالله المجرب دائما لا تاتى الا بالاجمل والافضل بارك الله لنا فيك واطال عمرك وامتعنا بوجودك :signthankspin: :fff: :signthankspin:

جميلة جدا و مفيدة

المبدع دائما " أبوأحمد " جزاكم الله تعالى خيرا إبداع مابعده إبداع وفقكم الله تعالى تقبل وافر احترامى وتقديرى

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

تم تعديل بيانات المحافظات واستبدال المرفق في المشاركة الاولى