خالد الرشيدى

السلام عليكم اخى الكريم هناك امران ظهروا لى اثناء وضع الكود ..عليك توضيحهما .. الاول هناك التاريخ و تاريخة - اى منهما يمثل تاريخ اليوم بحيث نجعل ادخالة بشكل تلقائى الثانى من المفترض ان هناك جدول يحوى اسماء العملاء وارقامهم بحيث عند ادخال اسم العميل يكون من خلال كومبو يدعم التنبؤ وبعد ادخال الاسم يتم وضع الرقم تلقائى -- ان كان موجود فاين وان لم يكن فانت بحاجه الى ادراجة الى جانب توضيح كيف سيكون تنسيق ارقام الفاتورة بحيث يكون الادخال تلقائى ايضاً تقبل تحياتى

اخى الكريم استخدم المعادلة التالية علها المطلوب فكرة عمل الدالة البحث بشرط التاريخ يكون 1/1 بالنسبة للعميل الموجود بالخلية C4 بشيت كشف الحساب فى شيت واحد وارجاع القيمة من عمود المدين او الدائن ايهما لا يساوى صفر للمدين =VLOOKUP(DATE(YEAR(C3);1;1)&$C$4;IF({1,0};Sheet1!C5:C500&Sheet1!D5:D500;Sheet1!E5:E500);2;0) للدائن =VLOOKUP(DATE(YEAR(C3);1;1)&$C$4;IF({1,0};Sheet1!C5:C500&Sheet1!D5:D500;Sheet1!F5:F500);2;0) ملحوظة هامة جداً هذه معادلة صفيف بعد كتابتها يتم الضغط على CTRL+CHIFT+ENTER وليس انتر وحدها جرب المرفق وابدى ملاحظاتك كشف حساب مع الطباعة_2.rar وانصحك اخى الكريم ان يكون كشف الحساب من خلال كود وليس معادلات لكى يصبح الملف خفيف فقد لاحظت بطئ فى الملف بسسب المعادلات الكثيرة المستخدمة

جزاك الله خير أ/احمد زمان على صدركم الرحب وأخلاقكم الرائعة بارك الله فيكم ورفع قدركم

اخى ابو نبأ هناك نقطة اريد الاستفسار عنها قبل العمل على الملف ... انت تريد ان يكون الاستدعاء باسم العميل او رقم العميل ... وهذا ليس صحيحاً فى مثل هذا الملف .. لان الاسم او الرقم بالتاكيد سوف يتم تكرارهم ربما مئات المرات .. والبحث يكون بقيم فريدة وليكن رقم الفاتورة مثلاً لانه لا يتكرر .. ؟؟

السلام عليكم استاذى الكريم احمد ... جزاك الله خيراً اسمح لى ان اقدم هذا الاقتراح بخصوص تكرار الترحيل ... طالما ان كل العمليات التى فى الورقة 1 سيتم ترحيلها الى الورقة 2 وايضاً صف بداية ترحيل البيانات بالورقة 1 وصف بداية استقبال البيانات المرحلة بالورقة 2 هو نفسة الصف الثالث إذاً لماذا لا نجعل حلقة الترحيل من اخر صف بة بيانات بالوقة 2 الى اخر صف بة بيانات بالورقة 1 اى تعديل الحلقة من For ER1 = 3 To FS.UsedRange.Rows.Count الى For ER1 = ER2 To FS.UsedRange.Rows.Count خالص تحياتى

أخى أ.محمد عبد السلام اخى أ.طلعت محمد حسن جزاكم الله خيراً على هذا المرور الطيب وعباراتة الرائعة شكراً جزيلاً لكم

اخى الكريم بافتراض ان الرقم الذى تريد تطبيق الشروط علية فى الخلية A2 ...ضع هذه المعادلة فى خلية النتيجة وليكن B2 =($A$2>=1)*($A$2<=30)*60+($A$2>30)*($A$2<=60)*90+($A$2>60)*($A$2<=90)*100+($A$2>90)*($A$2<=120)*150+($A$2>120)*($A$2<=150)*170 تقبل تحياتى

أخى محمد عبد السلام جزاك الله خيراً على هذا المرور الطيب وعباراتة الرائعة شكراً جزيلاً لك

السلام عليكم بعد اذن استاذى أبـــو البراء اخى الكريم الخطأ ليس بالكود وانما فى اشارة حضرتك الى الصفحات .. استخدم الاسم البرمجى لتحديد الصفحة ليصبح الكود Sub Test() ورقة2.Range("G2") = Application.Match(ورقة2.Range("A1"), ورقة1.Range("A1:A" & ورقة1.Cells(Rows.Count, "A").End(xlUp).Row), 0) End Sub تفقد الرابط التالى ليصبح الامر اكثر وضوحاً https://www.youtube.com/watch?v=4rz56EHfm3w

أخى ع_حسام تفضل المرفق علة المطلوب khaled2.rar

استاذى طلعت محمد حسن لا حرمنا الله من اضافاتك الرائعة ... جزاك الله خير اًاخى الحبيب اليك المرفق اخى عبد الواحد بعد اجراء التعديل المطلوب اضافة صنف للفاتورة_2.zip

اخى الكريم الشرح سأقوم بوضعة فى اقرب فرصه -ان شاء الله -اما عن التعديل المطلوب Sub Button2_Click() Dim lr As Long, cl As Range, n As Integer lr = ورقة2.Cells(Rows.Count, "B").End(xlUp).Row For Each cl In ورقة2.Range("B2:B" & lr) For n = 1 To ورقة1.Cells(Rows.Count, "B").End(xlUp).Row If cl.Value = ورقة1.Cells(n, 2) Then With cl.Offset(0, 2) .FormulaR1C1 = "=VLOOKUP(RC[-2],ورقة1!R2C2:R1762C5,2,0)" .Value = .Value End With With cl.Offset(0, 4) .FormulaR1C1 = "=VLOOKUP(RC[-4],ورقة1!R2C2:R1762C5,4,0)" .Value = .Value End With End If Next Next End Sub

اخى الكريم وبعد اذن اساتذتى جزاهم الله خيراً اليك المطلوب ضع صفحة البداية بالخلية F2 وصفحة النهاية ب H2 (يمكن تغيير تلك الخلايا طبعاً ) ولاحظ النتائج لجمع الكمية =SUMPRODUCT(SUM(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!A2"))) لجمع المبيعات =SUMPRODUCT(SUM(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!B2"))) sum el rashedy_2.zip تقبلوا خالص تحياتى

اخى الكريم استخدم المعادلة التالية لاحتساب اجمالى الكمية =SUMPRODUCT(SUM(INDIRECT("'"&$F$2:$H$2&"'!A2"))) ولاجمالى المبيعات =SUMPRODUCT(SUM(INDIRECT("'"&$F$2:$H$2&"'!B2"))) sum el rashedy.zip

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

اخى الكريم اليك الملف بعد التعديل ا2015_07_21_2_3.zip

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

أخى واستاذى محمد حسن وعليكم السلام ورحمة الله وبركاتة لكم يسعدنى دائماً مرور حضرتك بعباراتة الطيبة ... جزاك الله خيراً شكراً جزيلاً لك

السلام عليكم استاذى احمد زمان جزاك الله خيراً اسمح لى بالمشاركة اثراءً للموضوع اخى الكريم بدون عمود مساعد ضع هذه المعادلة فى الخلية I6 ثم قم بالسحب الافقى كما تريد ملحوظه هامة جداً هذه معادلة صفيف بعد كتابتها يتم الضغط على CTRL+SHIFT+ENTER =IFERROR(SMALL(IF($A$6:$A$100=$H$6;ROW($A$6:$A$100));COLUMN(A1));"") تحديد موقع الصفة.rar

اليك المرفق وبة ... البحث باسم الصنف او كود الصنف واذا كان اسم الصنف به ارقام ايضاً التعديل يشمل كافة الاعمدة دون استثناء .. اتمنى ان يكون المطلوب تماما هذه المرة واخيراً وجب التاكيد على ان فكرة الاكواد المستخدمة هى - لمعلمنا عبد الله باقشير - جزاه الله خيراً ا2015_07_21_2.zip

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

أخى ع_حسام جزاك الله خيراً على هذا المرور الطيب وعباراتة الرائعة شكراً جزيلاً لك

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

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

أخي الحبيب عبد العزيز البسكرى اسعدني مرورك العطر بالموضوع ومشكور على كلماتك الرقيقة تقبل خالص تحياتي