أبو حنــــين

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

جزاكم الله خيرا أخي محي الدين

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

السلام عليكم لم استطع تحميل الملف ، و لا ادري ما السبب ============================= تم حل المشكلة و كانت في بطئ الانترنات جرب المرفق اخي ابو عبد الرحمان و اخبرني بالنتائج أبو حنين 2.rar

اسعد الله صباحك اخي ابو عبد الرحمان جرب المرفق التالي ترحيل البيانات وفلترتها من عدة شيتات إلى شيت أخر+ABOHANIN.rar

السلام عليكم غير هذا السطر If Me.TextBox3.Value < Me.TextBox2.Value Then بهذا السطر If Val(Me.TextBox3.Value) < Val(Me.TextBox2.Value) Then و هذا السطر If Profil.Offset(, 1) < Me.TextBox2.Value Then بهذا السطر If Val(Profil.Offset(, 1)) < Val(Me.TextBox2.Value) Then

العفو أخي محمد و جزاكم الله خيرا

الحمد لله

الكود اخي ابو عبد الرحمان يزيل المسافات

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

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

السلام عليكم اخي عبد الرحمان جرب المرفق و اخبرني بالنتائج ترحيل البيانات وفلترتها من عدة شيتات إلى شيت أخر+ابو حنين.rar

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

يتم التغيير في هذه الجزئية هذا السطر يغير ActiveCell.Offset(1, 0) = Me.TextBox1 و يصبح هكذا ActiveCell.Offset(2, 3) = Me.TextBox1

السلام عليكم جرب المرفق تعديل فورم 2 لجلب رقم الهاتف مع اسم العمل.rar

عد الى المحرر و من القائمة Tools ------> References ستجد في الاسطر الأولى كلمة Messing انزع علامة الصح منها ثم موافق كلمة Messing لا ادري هل تكتب هكذا او لا

السلامم عليكم حسب الصورة المرفقة فيبدو ان اسماء اوراق العمل لم يتعرف عليها البرنامج فهي عبارة عن علامات استفهام

السلام عليكم بعد اذا أخي ياسر العربي تم تعديل الملف ترحيل البيانات وفلترتها من عدة شيتات إلى شيت أخر+222.rar

السلام عليكم أخي أبو عبد الرحمان جرب المرفق التالي ترحيل البيانات وفلترتها من عدة شيتات إلى شيت أخر.xlsb.rar

مرحبا جرب المرفق factureexemple 2.rar

احسن و اسهل طريقة هي بالتنسيق الشرطي

قم بتغيير Sheets ("Data") بالكلمة ActiveSheet

جرب المرفق New Microsoft Excel Worksheet (6).rar

مرحبا جرب المرفق تعديل على كود 2فورم.rar

السلام عليكم الأخ باديس وضعت طريقتين جربهما و استعمل الافضل الطريقة 1 في Feuil1 و الطريقة 2 في Feuil3 factureexemple 1.rar