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

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

تسلم ايديك أخى سيف الدين

السلام عليكم ورحمة الله وبركاته اليك معادلة للترقيم التلقائى يعنى لو مسحت سطر يحتفظ بالترقيم التسلسلى يارب تنول اعجابكم ترقيم تلقائى.rar

أخى الفاضل تم تعديل كود اخى الحبيب ياسر ليناسب طلبك Sub CountCells() Dim Cel As Range, x Dim Total As Integer Application.ScreenUpdating = False For Each Cel In ActiveSheet.Range("d7:J7") x = GetCellColorForReals(Cel) If x <> 16777215 Then Total = Total + Cel.Value End If Next Cel Range("L7") = Total Application.ScreenUpdating = False End Sub Function GetCellColorForReals(R As Range) As Long GetCellColorForReals = R.DisplayFormat.Interior.Color End Function

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

تفضل حل آخر لعله يفي بالغرض Book166.rar

..... شاهدوا المرفق أخوكم عماد الحسامي

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

أخى الفاضل استعمل هذه المعادلة =OFFSET(st!$A$2;;;COUNTA(st!$A:$A);1)

السلام عليكم سيتم الحذف مع الإحتفاظ بالمسلسل حذف صف.rar

جرب الملف المرفق جمع اللون الاحمر.rar

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

If Nz(DLookup("id", "[tbl]", "[c]&[f]&[k]&[d]='" & c & f & k & d & "'"), 0) <> id Then Cancel = MsgBox("مكرر")

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

السلام عليكم الحمد لله الذى بنعمته تتم الصالحات شرح الفكرة تفصيلاً علها تمثل إضافه لاحد الاخوة التطبيق بالمرفق El RashedY_ VlookUp.rar

تفضل أخى Valeur Min.rar

جزاك الله خيرا

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

جزاكما الله كل خير اخواني محي الدين ابو البشر وخالد الرشيدي حفظكما الله وبارك فيكما

السلام عليكم ورحمة الله اخى الحبيب وضع "" هذا نتيجة لوجود دالة IF بحيث ان لم يجد فى النطاق الذى نبحث فيه عن اصغر قيمة يعطينى فراغ

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

تفضل أخى Valeur Min.rar

السلام عليكم تم ترقية المنتدى لاحدث نسخة متاحة يرجي التجربة اذا ما زالت المشكلة قائمة ام لا

أخى الفاضل عندك البديل وهو دالة SUMIFS لها أكثر من شرط

قم بتنسيق الخلايا على هذا الشكل # ??????/??????

وعليكم السلام ورحمة الله تفضل أخي الكريم، الملف وقد تمت إزالة حماية كل أوراقه... بن علية feuille-de-consommation-2013.rar

هذا رابط لموضوع يناقش مشكلتك

أستاذ جعفر .. والله بجد مش عارف من فرحتي أقولك إيه .. انا تقريبا أول مرة في حياتي أكتب كود .. والفضل في ذلك يرجع لله ثم لكم أخي الكريم .. بهذا الكود تغلبت على مشكلة الجوازات اللي تبدأ ب 0 و 00 و 000 و 0000 اصفر وفي نفس الوقت لغيت المسافات من الآخر آخد كام من عشرة يا أستاذ جعفر :) ولو عندك أي فكرة تانية ياريت تقولهالي حتى لو شايف انها ملهاش قيمة .. منها بإذن الله هستنتج حل لمشاكل تانية ممكن تواجهني شكرا مرة تانية يا أستاذي .. :)

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

الإخوة الكرام إستخدمت هذا الكود لمنع حفظ الملف أو حفظه باسم فهل هذا جيد أم أنه هناك طريقة أفضل جزاكم الله خيراً Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'This macro disables the "Save As" Feature in Excel 'This means that a user will not be able to save this 'workbook(file) under a different name or in a different location ' 'This MUST be placed in "ThisWorkbook" and NOT in a Module. ' Application.CommandBars("Standard").FindControl(ID:=3).Enabled = False If SaveAsUI = True Then Cancel = True End Sub

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

السلام عليكم دمجت كودين من اكواد المنتدي اتمنى ان يكون طلبك تحياتي درجات القرار.rar

جرب هذا الملف hide_j_rows.rar

فى ميزان حسناتك جزاكم الله خيرا

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

جرب هذا الملف يجب تكملة العلامات لتنفيذ الباقي توزيع درجات قرارsalim.rar

تم التعديل حسب الطلب choose_number 1.rar

دا مثال بسيط بدأته لك القى نظرة عليه واي تعديلات انا موجود والاخوة الخبراء طبعا كلمة المرور للمستخدم ياسر : 123 Yasser.rar

اخي الحبيب عبد العزيز ممكن إضافة بسيطة لكي لا يتوقف الماوس Private Sub CommandButton1_Click() If TextBox4 = "" Or TextBox4 = Val(TextBox2) * Val(TextBox3) Then TextBox4 = Val(TextBox2) + Val(TextBox3) Else TextBox4 = Val(TextBox2) * Val(TextBox3) End If End Sub يعني افضل اعمل كليك مرة يجمع ومرة يضرب ..

السلام عليكم و رحمة الله و بركاته جرّب أخي الغالي أكرم جلال هذا المرفق ربما يكون ما طلبته .. خالص احتراماتي مهمتين 2.rar

فك____رة 12 الاخوة الكرام فكرة اليوم كنت قد وضعتها فى وقت سابق على المنتدى ولكنى سأضعها ايضاً فى هذا الموضوع لكى يكون مجمع لكافة حالات الدالة قدر الامكان 12.rar ......................................... هذا الكود بسيط فقط ل -المعرفة المبدئية - بقى الان الملف المجمع لكافة الحالات وبة ستجدون باقى الافكار ان شاء الله

الاستاذ ابا خليل انبه فقط ان طريقة حساب عد السجلات مقارنة بقيم السجل الحالي لا تخرجك من فخ السجل الحالي وخاصة عند الحدث قبل التحديث وهو ما اسميته في اكثر من مكان "فخ السجل الحالي" . وقد وجدت اغلب الاخوان وفي اكثر من مكان يقعون في هذا الفخ ! وهنا وفي هذا الرابط شرح اكثر ومع مثال http://www.officena.net/ib/index.php?showtopic=61342&hl= تحياتي

Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("[field1]", "table1", "[field1]='" & Me!txt1 & "' AND [field2]='" & Me!txt2 & "'AND [field3]='" & Me!txt3 & "'") > 0 Then MsgBox "duplicated fields", vbExclamation Me.Undo Cancel = True End If End Sub

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

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

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

السلام عليكم حل بالإستعانه بدالة VLOOKAnyCol للاستاذ القدير ابو تامر حفظه الله تفضل المرفقات منظومة المخازن_ALI.rar

اخي الفاضل جرب المرفق نموذج 1.rar

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

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