عادل حنفي

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

الرقم في الخلية B2 مقرب الي ستة ارقام عشرية اما الرقم في الخلية B3 هو بالفعل ستة ارقام عشرية فيصبحا الخليتان متساويتان بالشكل وليس بالمضمون

اخي وجيه مشكور علي كلماتك ومرورك تحياتي

اخي جرب المرفق 1.xlsm

اخي اولا تم ازالة بعض الاعمدة لتوحيد النظام داخل الملف فقط ارجو التجربة في النلف المرفق تحياتي Copy of2 الجدول افقي.xlsm

السلام عليكم الاخت الفاضلة هذا بالفعل ما اقصده المهم ان يكون اسماء المواد هو نقسه الموجود بالخلايا المدمجة

اخي من الاقضل رفع ملف لرؤية عمل الكود والعمل علي المطلوب

اخي shehab elgar7i اشكرك اخي دعوتك اجمل هدية وكل عام وانت بكل بخير تحياتي

اخي الان يمكنك البحث عن اللرقم الذي تريده من بداية الرقم الاول من علي اليسار او اول رقمان علي اليسار وهكذا حتي اول تمانية ارقام علي اليسار والكود هو Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("C3").Address Then If Target <> "" Then Range("C5:D1000").ClearContents s = Len(Range("C3")) If s > 0 Then x = 2 For i = 2 To 1000 If Sheets("Data").Cells(i, x) <> "" Then m = Sheets("Data").Cells(i, x).Address o = Left(Sheets("Data").Range(m), 1) oo = Left(Sheets("Data").Range(m), 2) ooo = Left(Sheets("Data").Range(m), 3) oooo = Left(Sheets("Data").Range(m), 4) ooooo = Left(Sheets("Data").Range(m), 5) oooooo = Left(Sheets("Data").Range(m), 6) ooooooo = Left(Sheets("Data").Range(m), 7) oooooooo = Left(Sheets("Data").Range(m), 8) If Range("C3").Text = o Or Range("C3").Text = oo Or Range("C3").Text = ooo Or Range("C3").Text = oooo Or Range("C3").Text = ooooo Or Range("C3").Text = oooooo Or Range("C3").Text = oooooo Or Range("C3").Text = ooooooo Or Range("C3").Text = oooooooo Then With Columns(4).Rows(2000).End(xlUp) .Offset(1, 0) = Sheets("Data").Cells(i, x) Cells(.Offset(1, 0).Row, 3) = Sheets("Data").Cells(i, x - 1) End With End If End If Next End If End If End If End Sub اما بخصوص المدي فيحدد عاموده ال X في سطر الذي هو x = 2 اما الذ يجدد الصف هذا السطر الخاص بالحلقة الدائرية For i = 2 To 1000 فيبدأ في البحث عن الرقم المطلوب في الصف 2 ثم 3 ونهاية بــ 1000 ارجو ان كون استطعت ايصال المعلومة تحياتي ارقام 2 (2).xlsm

مشكور مرورك اخي علي تحياتي

اخي جرب المرفق اكتب في الخلية C3 في شيت فلترة اول او ثاني رقم في الرقم الذي تريد البحث عنه ثم اضغط Inter ارجو ان يساعدك هذا تحياتي ارقام 2.xlsm

جرب المرفق ولاحظ ان نتيجة الاستيراد ستكون بين التاريخان المسجلان وقد قمت ببعض التعديلات غلي شيت بيان العملاء تحسبا لوجود عميل له دفعات مقدمة Copy of وارد شهري الجارحي1.xlsm

اخي جرفب المرفق غير فقط في الخلية B1 COPY-VBA.xlsm عذرا اخي وجيه فلقد كنت اعمل علي الملف ولمجرد رفعه شاهدت مشاركتك فارجو المعذرة

اخي كل ما عليك التغيير في الليست الذي في الخلية C4 التي بها اسم العميل في شيت كشف حساب مع العلم ان البيانات التي سيتم استيرادها قد تم تفعيل شرط التاريخ اي سيتم استيراد البيانات التي تقع بين التاريخين الموجودين في شيت كشف حساب جرب المرفق Copy of وارد شهري الجارحي.xlsm

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

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

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

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

اخي ضع في الخلية B2 بداية الارقام وفي الخليةة B3 ضع الرقم الذي ستنتهي عنده الارقام ثم اضغط علي زر توزيع ارجو ان يكون المطلوب مصفوفة.xlsm

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

كل عام وانتم بخير

ارقع ملقا لصفحة البيانات التي سيملأ بها الاخلاء

الان فهمت ماتريده تقريبا وقد تذكرت دالة كان عاملها القدير ابو تامر اسمها VLOOK2ALL ولكن يشترط نقل العامود الذي تضع فيه 1 للعد قبل عامود رقم الجلوس والدالة مرقفة في الملف في مديول جرب كده اعتقد انها ستحل المشكلة دليل التظريف.xlsm

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

اخي اخي Ali Mohamed Ali مشكور علي كلماتك ومرورك اخي اخي lookalone بارك الله فيك وكل عام وانتم بخير