احمد عبد الناصر

السلام عليكم جرب المرفق تحاتي wanted+.rar

السلام عليكم استخدم هذه المعادلة في الخلية L3701 بافتراض ان ما تريد جمعه هو العمود L عمود Balance . (SUMIFS(L8:L3697,D8:D3697,F3701,G8:G3697,G3701= تحاتي

السلام عليكم تحياتي للجميع , وخاصة الاستاذ عبدالله باقشير و الاستاذ ابو ياسر . فهذا الكود الرائع للتصدير الي اكسيس هو بداية لكثير من الحلول . فكنت اصدر الي اكسيس باستخدام commandbuilder في visual 2010 . و لكن عامل الوقت كان المشكله . بينما هذا الكود : -سريع جدا يأخد ثواني قليلة جدا . -يعمل معي لحوالي 65000 صف (بالامكان زيادتها بتكرار الكود تباعا). و هذا المرفق هو تطبيق لفكرة الاستاذ عبدالله باقشير . -ملف الاكسيل 2010 . -ملف الاكسيس 2010 . -يجب ان يكون الملفين في نفس المجلد (ممكن تغير مكان اي من الملفين و لكن يجب التعديل في الكود اولا). -يجب في ملف الاكسيل ان يكود هناك رأس للبيانات يتمثل في اسماء حقول (عواميد) جدول الاكسيس المراد التصدير اليه . اعلم ان مشاركتي ليست اضافة للموضوع و لكن اردت ان اشارك و لو بالقليل في مثل هذا الموضوع . و اكرر شكري لاستاذ عبدالله باقشير و الاستاذ ابو ياسر . تحياتي export to access.rar

السلام عليكم جرب الملف المرفق . اضغط ctrl+q للبحث ثم اكتب الكلمة المراد البحث عنها ثم enter . تحياتي find +.rar

السلام عليكم جرب كتابة الوقت بهذه الصيغة 12:30:15 . تحياتي

السلام عليكم جرب المرفق تحياتي eee+.rar

السلام عليكم اتفق مع استاذ طارق ان أسرع طريقة باستخدام الجداول المحورية . هذا حل باستخدام المعادلات ايا كان ترتيب العمود A , لاثراء الموضوع . تحياتي max and min date +.rar

السلام عليكم اخي ابو سما 1- بالنسبة للسؤال الاول فلا يمكن علي حد علمي استخدام شخسين لنفس ملف الاكسيل في نفس الوقت (الا بطريقة تؤدي الي تعطيل مزايا كثيرة في الاكسل) ويمكن عمل ذلك فقط بربط ملف الاكسل بملف اكسيس و ذلك امر يطول شرحه و اعتقد ان استاذ عبد الله باقشير له اسهامات في هذا الموضوع من الممكن الاستفاده منها . 2- اما السؤال الثاني فافضل طريقة ان تقوم بوضع باسورد علي ملف الاكسيل نفسه بالطريبقة التقليدية و ليس الاكواد . تحياتي

اخي الكريم ارجو ان توضح الاتي في حالة وجود بيانات في a و b ما القيمة المفروض وضعها في العمود الرابع اى العمود D في حالة وجود بيانات في bو c ما القيمة المفروض وضعها في العمود الرابع اى العمود D في حالة وجود بيانات في a وc ما القيمة المفروض وضعها في العمود الرابع اى العمود D تحياتي

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

السلام عليكم جرب هذا Private Sub CommandButton1_Click() If TextBox1.Value = sheet1.[a1] And TextBox2.Value = sheet1.[b1] Then Unload Me Exit Sub End If TextBox1.Value = "" TextBox2.Value = "" TextBox1.SetFocus End Sub تحياتي

جرب المرفق تحياتي Book1+++.rar

اسف عطل غير مقصود lsta = Cells(Rows.Count, 1).End(xlUp).Row ياخذ قيمة اخر خلية في العمود a lstb = Cells(Rows.Count, 2).End(xlUp).Row ياخذ قيمة اخر خلية في العمود b If lsta > lstb Then lst = lsta Else lst = lstb يرجح بين القيمتين و يأخذ الاكبر For x = 4 To lst بداية الحلقة من الصف الرايع الي اخر خلية (سواء في العمود الاول او الثاني ايهما اكبر) تحياتي

<p><span style="color: rgb(40, 40, 40); font-family: tahoma, arial, verdana, sans-serif; line-height: 22px; text-align: right;">lsta = Cells(Rows.Count, 1).End(xlUp).Row يحسب السطر الاخير للعمود الاول</span><br style="color: rgb(40, 40, 40); font-family: tahoma, arial, verdana, sans-serif; line-height: 22px; text-align: right;" /> <span style="color: rgb(40, 40, 40); font-family: tahoma, arial, verdana, sans-serif; line-height: 22px; text-align: right;">lstb = Cells(Rows.Count, 2).End(xlUp).Row </span><span style="color: rgb(40, 40, 40); font-family: tahoma,

إبراهيم ابوليله حياك الله ملاحظتك في محلها التعديل في المرفق تحياتي استخراج+++.rar

السلام عليكم goodlife ان كان المرفق به بيانات و مثال للمعادلة التي تريد تطبيقها علي الشيتان لكان افضل و لكن عامتا هذه امثلة بسيطة لعلها تفيد =SUM(Sheet2!A:A)+SUM(Sheet3!A:A) في حالة جمع عادي من شيتان =IFERROR(VLOOKUP(A1,Sheet2!A:B,2,FALSE),VLOOKUP(A1,Sheet3!A:B,2,FALSE)) وهذه في حالة استخدم معادلة بحث و هكذا سوف تضطر الي تكرار كا معدلاتك تحياتي

الاخ إبراهيم ابوليله شرحك صحيح If Not IsEmpty(Cells(x, 1)) Then If Not IsEmpty(Cells(x, 2)) Then Cells(x, 3) = 3 يتحقق في حالة ثبوت الحالة الاولي و الثانية Else: Cells(x, 3) = 1 يتحقق في حالة ثبوت الحالة الاولي و عدم ثبوت الحالة الثانية End If Else If Not IsEmpty(Cells(x, 2)) Then Cells(x, 3) = 2 Else Cells(x, 3).ClearContents في حالة عدم ثبوت الحالة الاولي (اي ان الخلية في العمود a فارغة) يتحقق من ما اذا كان هناك بيانات في العمود b ان كان فيضع 2 في العمود c و و ان لم يكن فيمسح القيمة في العمود c (لانه لايوجد بيانات في العمود الاول ولا الثاني) End If تحياتي

السلام عليكم الاستاذ ريان أحمد تحياتي لك فكل مواضيعك فيها قدر كبير من التحدي الاستاذ YasserKhalil اسجل لك اعجابي بعملك و هذا حل اخر لاثراء الموضوع تحياتي +حي.rar

السلام عليكم جرب دالة small تحياتي

الاخ إبراهيم ابوليله هذا حل باستخدام زر + تعديل في خطأ كان في الكود السابق تحياتي استخراج++.rar

السلام عليكم جرب المرفق تحياتي استخراج+.rar

السلام عليكم جرب هذا الكود اتمنا ان يكون ما قصدت Book1+.rar

هذا حل اخر باستخدام المعادلات تحياتي Book1+.rar

السلام عليكم بن علية حاجي دعني اسجل لك اعجابي الشديد للمعادلات التي اضفتها حقا عمل محترفين . هذا كود اتمني ان يفي بالغرض تحياتي ترتيب متعدد+.rar

اخي ali_altaaiy هذا تعديل في المعادلة بحيث اذا كان هناك سعرين في جدول الاسعار مطابقين لنفس الشروط يظهر جملة ان هناك سعرين و هذا لتجنب الاخطاء الوارده عند ادخال الاسعار الجديدة للفترات الجديدة في جدول الاسعار تحياتي search++.rar