omar elhosseini

اخي نعم ال VBA لا يعرف المستحيل علشان تبقي اول مرة فب المنتدي

اخي شاهد المرفق تم حل 1 و 2 و 3 اما 4 اكتب لي العبارة التي ستظهر فية اولا الخلايا B11 D9 D5 B11 فارغة

اخي لقد قمت بتجربة الاكواد اولا الكود الثاني غير الكود الاول تماما الاول يرحل شيت data وهذا غبر طلب العضو الكود الثاني برحل شيت Feuil1 فلماذا المغالطة وتتأنيبي وانا سليم القول

اخي lionheart انا لا اقلل من شأنك ولكن اذا كان يؤدي المطلوب فلماذا قام العضو بالر علي استفسارتى وانك وان لم اجرب الكود واذا كان يؤدي المطلوب فأنا اسف مقدما وتقبل اعتذاري

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

تقصد ان الورقة Feuil1 بها البيانات التي سترحل الي الاوراق الثلاثة بعد مقارنتها بالورقة data والبيانات التي سترحل هي الييانات الفير موجودة في ورقة data اذا كان هذا صحيح فكيف اميز البيانات التي ستنقل ( عربى فرنسي مختلط) عن بعض في الورقة Feuil1

ARABE FRANCAIS MIXTE هذه الثلاث اقسام التي سيتم الترحيل اليها ماذا تكون كل من data Feuil1

هل الترحيل لجميع الطلاب ام للجدد فقط

اخي اولا اللغه العربية غير ظاهرة فى محرر الكواد امامك حلين 1 - تغير اسماء الشتات الي اللعة الانجليزية وتغير ايماءها فى الكود 2 - ضبط اعدادت محرر الاكواد كالاتي فى محرر الاكود اختار Tools ثم اختار Editor Format ثم غير الفونت الي Courier New (Arabic) in VB Editor: 1- click Tools 2- select Options... 3- click Editor Format 4- change font to Courier New (Arabic) 5- click OK اخي لست في حاجه لضغط الزر عشر مرات امكتب مائة صنف واضغط الزر مره واحده اذا لم يناسبك هذا ارجع الي النسخة السابقة له او التي فبلها كلهم جيد

شاهد المرفق اخي سها.xlsm

شاهد المرفق اخي الجنس.xlsm

اخي لم تعمل جدول الشرائح راجع الشرائح فى كود موديول 2 ( Module2 ) اولا : ستقوم بحذف الاعمدة المخفية لم يعد لها حاجه فالشرائح في شيت مستقل يمكنك اخفاءه ثانيا : كل ما عليك هو ادخال رقم كود الصنف والكمية واضغط الزر الاخضر سواء لصنف واحد ام عدة اصناف نحياتي برنامج محاسبه.xlsm

الكود يعمل علي اوفيس 2016

ActiveSheet.AutoFilter.Range ActiveSheet.Paste علي طريقة جحا

وضح طلبك من شيت ..... الي شيت .....

اخي لا يمكن ذلك ولكن يمكن التاحيل علية كلاتي 1 - اختار ديفلت الطابعة ( Micosoft print to PDf ) 2 - من الفورم اضغط زر الضباعه سيتم حفظ الفورم ك PDF ستتمكن ارساله الي الاميل او الوتس

شاهد المرفق اخي ( الترحيل ) الترحيل.xlsb

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

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

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

شاهد المرفق اخي برنامج محاسبه.xlsm

احب الطمع كثيرا شاهد المرفق اخي برنامج محاسبه.xlsm

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

اخى بدأ من A3 ضع المعادله التالية =IF(B2=B3;A2+1;1) شاهد المرفق الترقيم حسب التاريخ.xlsm

تحت امرك اخي شاهد المرفق برنامج محاسبه.xlsm