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

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

السلام عليكم، عند كتابه مشاركه ورغبت في اضافه مرفق الى مشاركتك يجب عليك عمل الاتي: اولا : لابد من ضغط الملف(اكسس، اكسل ، وورد....) في ملف من نوع RAR او Zip. ثانيا: في حاله كون حجم الملف المضغوط اكبر من المساحه المتاحه للرفع ،ارفع ملفك على احد مراكز التحميل المجانيه المتوفره على الانترنت.

السلام عليكم استخدم الكود التالي Sub kh_MinClear() Dim R As Integer, M As Integer For R = 2 To 200 If WorksheetFunction.Sum(Cells(R, "A").Resize(1, 6)) Then M = WorksheetFunction.Min(Cells(R, "A").Resize(1, 6)) M = WorksheetFunction.Match(M, Cells(R, "A").Resize(1, 6), 0) Cells(R, M).ClearContents End If Next End Sub

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

السلام عليكم ورحمة الله أخي الكريم، تم تعديل بعض المعادلات في الملف (في الخلايا الملونة بالأخضر) ولست أدري إن كان هذا المطلوب لأني لم أتابع الموضوع جيدا ووجدت هذا الرد الذي فيه مطلوب لتصحيح خطأ بعض المعادلات... أخوك بن علية مفردات المرتب--++.rar

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

السلام عليكم و رحمة الله وبركاته طبعا لست في عبقرية اخي ابو حنين في الأكواد لكن هذا حل لعمل القائمة باستخدام التحقق من صحة وقائمة على قدر الخلايا المكتوبة DATA.rar

السلام عليكم جرب هذا مفردات المرتب-+-.rar

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

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

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

السلام عليكم شاهد المرفق عبدالله المجرب.rar

السلام عليكم ورحمة الله وبركاته لإثراء الموضوع وبعد اذن اخي الاستاذ حمادة عمر جرب الكود التالي للذهاب الي اخر خلية في الورقة المسمى Daily Sub FindFirstCellNextRow() Application.Goto Sheets("" & "Daily").Cells(Sheets("" & "Daily").Cells.SpecialCells(11).Row, 1) End Sub او الكود التالي لاختيار ورقة ثم الذهاب الي اخر خلية فيها Sub FindFirstCellNextRow() Application.CommandBars("Workbook Tabs").ShowPopup Cells(Cells.SpecialCells(11).Row, 1).Activate End Sub في أمان الله

تفضل على إخوتك بمشاركة ما حصلت عليه ... فضلاً وليس أمراً .........

اريد فتح 2 بريد الكترونى على الاوت لوك و لكن لا و كذلك اريد ربط الموقع بالاوت لوك فماذا افعل

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

بسم الله الرحمن الرحيم ادرج اليكم ملف اكسل عن الإصدار الرابع من اعداد xlfdic و هو بالتأكيد مفيد جدا و إن شاء الله تستفيدوا منه و اردت اضافته و لما به من شرح جميل لعدد كبير من الدوال التي نحتاجها ملحوظه:- قد يكون ادرج في الموقع منذ زمن الإصدار الاول و لكن رأيت اعداد الموضوع لإستفاده الجميع او للتذكير به XLFDIC04.zip

السلام عليكم هدية : عمل تقرير معتمد على استعلام crosstab query ثم ضبط الحقول لتتناسب مع عرض الصفحة شاهدوا المرفق CrosstabQry.zip