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

السلام عليكم استاذ ريان انا فهمت ان البيانات التي عندك في الاصل مجمعة في مكان واحد و انت تحاول تقسيمها علي عدة ملفات للبطء الناتجع من تجمع بيانات كثيرة جدا في ملف واحد . فهل هذا صحيح . --و هل البيانات في الاساس ملف excel ام dbf . عامتا سارفع لك حل باستخدام Access و Excel مبدأيا فانا لا اعرف ان كان يتناسبك هذا ام لا . و ان كنت تريد الحل باستخدام البحث خلال ملفات متعددة بصيغة dbf فالافضل ارفاق بعض هذه الملفات لمحاولة العمل عليها . تحياتي

السلام عليكم اعتقد المشكلة عندك في تمكين الماكرو شاهد هذا http://www.youtube.com/watch?v=ky98K-iwlvE

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

السلام عليكم لم افهم هل معني كلامك ان الملف عمل معك بطريقة صحيحة ام لا .؟! عامتا هذا السطر aad = Range("bb2:bl" & UBound(WorksheetFunction.Transpose(MyAr)) + 1).Address تحول الي هذا aad = Range("bb2:bl" & ii + 1).Address تحياتي

السلام عليكم معذرة , فعندما تكون النتيجة صف واحد تنشيء هذه المشكلة . حسنا جرب هذا التعديل تحياتي ملف بحث بفورم ممتاز++SORT.rar

السلام عليكم حسنا بداية ارفق ملف اكسيل واحد فيه كل البيانات التي تريد معالجاتها (مجمعة فيها كل التواريخ كل السنين و الشهور ) وملاحظة :ان النتيجة ستكون عبارة عن شيتين و احد اكسيس كحافظة للبيانات و الاخر اكسيل لتستخرج منه تقريرك , اي انه لا يوجد ملفات dbf في الحل . تحياتي

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

السلام عليكم هو كود بالفعل اضغط alt+F11 لتفتح نافذة الفجوال ثم افتح module1 من يسار الشاشة ستجد هذا الكود Sub dahmour() i = 2 Do Until IsEmpty(Cells(i, 2)) x = 2 Do Until IsEmpty(Cells(x, 3)) If InStr(1, Cells(i, 2), Trim(Cells(x, 3))) > 1 Then Cells(i, 2) = Replace(Cells(i, 2), Trim(Cells(x, 3)), " & " & Trim(Cells(x, 3))) End If x = x + 1 Loop i = i + 1 Loop End Sub تحياتي و ارجو ان يفي بالغرض

السلام عليكم جرب هذا **ارجو ان تشاهد هذا خاص بقواعد المشاركة . http://www.officena.net/Tips/Questions.htm تحياتي test 1+.rar

السلام عليكم اول معادلة في الخلية S4 =IF(K3>S3;S3;K3) لو القيمة المتاحة 11 اكبر من الرقم الموضوع في الصف الثالث في هذه الحالة الرقم 6 الناتج يصبح الرقم 6 وان لم يتحقق الشرط الناتج يصبح القيمة المتاحة . بقية المعادلات مثلا الخلية Q4 =IF(SUM(R$4:$S4)+Q3<$K$3;Q3;$K$3-SUM(R$4:$S4)) لو مجموع الخلايا المستنتجة السابقة S4,R4 + قيمة الخلية في الصف الثالث Q3 اصغر من القيمة المتاحة 11 الناتج يصبح 2 وان لم يتحقق الشرط يصبح الناتج عبارة عن 11-10 القيمة المتاحة - مجموع الخلايا المستنتجة السابقة S4,R4 معذرة فانا لست جيد في الشروحات . اما بالنسبة اعتقد اسهل طريقة ان تضيف معادلات زيادة مثلا من S4 الي A4 بحيث تصبح الارقام دائما داخل مداك تحياتي

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

السلام عليكم استاذ أكرم جرب المرفق تحياتي ملف بحث بفورم ممتاز 2+.rar

السلام عليكم استاذ ابو جيداء جرب المرفق تحياتي ملف بحث بفورم ممتاز+SORT.rar

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

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

السلام عليكم حسنا , يوجد كما اعلم طريقتين اختر ما يناسبك اكثر . الاولي : ان تقوم باضافة اكواد تعمل بعد عمل الكود الاصلي و وضع القيم في المكان الاصلي , يقوم الكود بنقل القيم الي خلايا اخري كما تريد مثلا هذا لنقل الاسم من الخلية b5 الي a11 [a11] = [b5].value [b5].ClearContents .......................................... الثانية ان تعدل في جملة sql و في مكان نسخ نتيجة الاستعلام sSQL = "select [الاسم] from " & [c2] & w1 [a11].CopyFromRecordset rsData تحياتي

السلام عليكم اولا : مرحبا بك في المنتدي . جرب المرفق , باستخدام vlookup تحياتي +نموذج1.rar

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

حياك الله استاذ خالد و شكرا لمرورك الكريم تحياتي

هذا بالنسبة للملف الثاني تحياتي Service cost -arabic sheet phaseII++.rar

السلام عليكم جرب هذا abusarah73++.rar

السلام عليكم الفكرة كلها في الجزء الخاص عمود النتيجة لمعادلة الجمع INDIRECT("'New table'!c"&MATCH(C15;'New table'!1:1;0);FALSE) بداية هذا الجزء MATCH(C15;'New table'!1:1;0) يبحث عن قيمة الخلية c15 في الصف الاول , ثم ياتي بالنتيجة التي هي رقم العمود الذي فيه قيمة c15 . ثم هذا الجزء باستخدام indirect INDIRECT("'New table'!c"& وهي داله تحول النص الي مدى range . عند استخدام المعامل false في اخر الدالة ,الدالة تقرأ بطريقة R1C1 . بمعني ان اردت الاشارة الي العمود B:B نستخدم هذه الصيغة c2 مع المعامل false بمعني column nunmber 2 العمود الثاني . معذرة فانا لست جيد في الشروحات , لكن حاول معها اكثر من مرة و ستنجح معك باذن الله . تحياتي

السلام عليكم جرب هذا و اعلمني بالنتيجة . تحياتي abusarah73 book1+.rar

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

معذرة علي الخطأ جرب هذا Book1.rar