عادل حنفي

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

الرقم في الخلية 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

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