ibn_egypt

أخى الفاضل أبو صلاح اسف لم انتبه لتلك النقطة ولم انظر الى الكود المكتوب انا تخيلت انك تريد اخفاء الصفوف الفارغة وفقط، عامة مرفق الملف لربما به طلبك تحياتي اخفاء الصفوف بدل الاعمدة.rar

أخى الفاضل ارفق الملف أفضل لمعرفة أين الخلل بالكود، من الواضح ان سطر الكود الخاص بإعدادات الطباعة به خطأ تحياتي

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

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

اخى الفاضل السلام عليكم ورحمة الله وبركاته فيه حل أسهل، انت ادخل كل بياناتك وبعد الإنتهاء اضغط زر ترحيل الشيكات، مرفق الملف تحياتي فورم ادخال شيكات.rar

اخى الفاضل السلام عليكم ورحمة الله وبركاته جرب الملف المرفق، أعتقد أنه أكثر إحترافية ويلبي طلبك، علما انه ملف اصدار 2010 تحياتي PDF PrintFORM.rar

اخى الفاضل أ.عادل لا شكر على واجب أخى الكريم، لا تنسانا فقط من دعوة بظهر الغيب واسف على التأخير في الرد، مرفق ملف لتنفيذ طلبك دون الحاجة إلي المعادلات تحياتي جلب بيانات من عمود بشروط.rar

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

أخى الفاضل لا شكر على واجب أرجو ان يكون عملك الآن على ما يرام لاتنسانا من دعواتك بظهر الغيب تحياتي

أخى الفاضل السلام عليكم ورحمة الله وبركاته من غير معادلات ولا حاجة خالص، فيه دالة رائعة صممها العلامة القدير أ.عبد الله باقشير تقوم باستخراج تاريخ الميلاد والنوع والمحافظة من الرقم القومي ... ستجدها هنا على هذا الرابط تستطيع مراجعة الموضوع (مميز ) دالة استخراج تاريخ الميلاد او النوع او المحافظة من الرقم القومي عامة تم ارفاق هذه الدالة بالملف الخاص بك وزيادة ثلاث اعمدة لاستخراج السن في 01-10 بالسنة والشهر واليوم مرفق ملف 2003-2007 وآخر 2010 باسورد فك حماية الورقة 123 تحياتي كشف حساب د.rar

أخى الفاضل السلام عليكم ورحمة الله وبركاته ايه الاختبارات دي، الواحد كان كل اما يعدي اختبار وينجح والاقي الوجه اخضر ومبتسم يحس انه عبر خط بارليف تفضل المرفق، مع خالص تمنياتي بالتوفيق والنجاح تحياتي Solve Test.rar

أخى الفاضل واجهتنى هذه المشكلة من قبل، ولم اجد لها الا حل وحيد، الا وهو استخدام اداه مساعدة اسمها PDF24 Creator تستطيع تحميلها من هنا http://en.pdf24.org/pdf-creator-download.html بعد تثبت هذه الأداة ستجد انها تقوم بإضافة طابعة افتراضية باسم PDF24 PDF في الجهاز لديك ... تمام كل ما هنالك حين تريد طباعة الفورم انك تجعل هذه الطابعة هي الافتراضية وتضيف زر على الفورم تضع به الكود التالى Me.PrintForm ستجد عند الضغط عليه فتحت الاداة اختر Save As PDF سيتم حفظ الفورم ك PDF هذا ما توصلت له ... انتظر آراء الخبراء أيضا لربما يوجد حل آخر تحياتي

أخى الفاضل فعلا انت عندك حق انا اللى اخطأت، كنت لسه قايم من النوم معلش جرب المرفق تحياتي office.rar

أخى الفاضل السلام عليكم ورحمة الله وبركاته تفضل الملف المرفق، تم التعديل في الكود ليناسب طلبك فلن يتم مسح اى بيانات من الورقة المضافة يدويا بشرط ان يكون اسمها ليس بنفس اسم اى رقم من الأكواد المكتوبة في Sheet1 تحياتي office.rar

اخى الفاضل السلام عليكم ورحمة الله وبركاته اسف الحل السابق لم اكن قد استوعبت ما تريد فتخيلت انك تريد جمع الأعداد وفقط بعد البحث عن العميل ولم أنتبه انك تريد الجمع على اساس كل صنف على حدة مرفق ملف آخر به ما تريد وهو جمع الأعداد كل صنف على حدة بعد البحث عن العميل تركت الملف السابق لربما كود auto sum به يفيد احد الأخوة الأعضاء تحياتي View Totals In Printing2.rar

أخى الفاضل السلام عليكم ورحمة الله وبركاته تفضل الملف المرفق لربما به طلبك، تم التعديل في كود الطباعة واضافة كود آخر للجمع التلقائي تحياتي View Totals In Printing.rar

أخى الفاضل السلام عليكم ورحمة الله وبركاته الكود سليم مليووووووووووووووووون في الميه ولا توجد به أى أخطاء طب هو بيعمل صفحة فاضية ليه بعد كل عملية ترحيل هات ودنك ... روح للخلية B904 في Sheet1 انت مش كاتب فيها اى كود "" فاضية "" فالكود بيعملك صفحة فاضية يعني الراجل عداه العيب انت اللى غلطان مش هو اكتب الكود الخاص بها .. ولن يتم انشاء اى صفحات فارغة تحياتي

أخى الفاصل أ.عبد الباري "من لا يشكر الناس لا يشكر الله " بجد من القلب الف مليون شكر على هذا العمل الرائع، مبذول فيه جهد كبير، جعله الله في ميزان حسناتك وزادك الله علما وفضلا تحياتى

اخى الفاضل Collate هي عملية ترتيب الصفحات يعني لو هتطبع عشر نسخ مثلا ل 5 صفحات او اكثر .. تطلع الأوراق مرتبة كل نسخة وراء بعضها لو عملتها False هيطبع الورقة الأولى 10 مرات ثم الثانية 10 مرات وهكذا IgnorePrintAreas هي عملية تجاهل تحديد ناحية الطباعة وانا عملتها False علشان لوحددت مدي معين للطباعة وليكن من A1 الى B5 ودخلت على تخطيط الصفحة Page Layout واخترت ناحية الطباعة Print Area ثم تعيين ناحية الطباعة Set Print Area لطباعة هذا المدي فقط فيقوم الماكرو بطباعة هذا المدي بينما اذا غيرتها الى TRUE سيتم تجاهل التحديد وطباعة الصفحة كاملة ارجو ان اكون وفقت في توصيل المعلومة لك تحياتي

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

أخي الفاضل أ.عادل جرب أن تضع هذه المعادلة ان شاء الله تزبط معاك، وبرضه لا تنسي CTRL+SHIFT+ENTER =IF(ISERROR(INDEX($W$4:$W$60,MATCH(1,IF(C78>=$R$4:$R$60,IF(C78<=$S$4:$S$60,IF(G78="عادل",IF(E78="شراء",1)))),0))),"",INDEX($W$4:$W$60,MATCH(1,IF(C78>=$R$4:$R$60,IF(C78<=$S$4:$S$60,IF(G78="عادل",IF(E78="شراء",1)))),0))) تحياتي جلب بيانات من عمود بشروط.rar

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

اخى الفاضل ضع الكود التالى في اى موديول وقم باستدعائه >>> طبعا تقدر تغير اسم الشيت من Sheet1 الى اي شيت تريده Application.DisplayAlerts = False Sheets("Sheet1").Delete Application.DisplayAlerts = True مرفق ملف للتوضيح تحياتي DeleteSheet.rar

بعد اذن اخى الفاضل واستاذي الكريم جمال عبد السميع ضع هذه المعادلة في الخلية M4 مع ملاحظة انها معادلة صفيف لابد من ضغط CTRL+SHIFT+ENTER {=IFERROR(INDEX($W$4:$W$60,MATCH(1,IF(C4>=$R$4:$R$60,IF(C4<=$S$4:$S$60,IF(G4="عادل",IF(E4="شراء",1)))),0)),"")} ومرفق الملف للتوضيح تحياتي جلب بيانات من عمود بشروط.rar

سبحان الله ما تشيل الرسالة من الكود يا طيب، عامة مرفق الملف ... ولو عاوز مفيش رسائل تفيد الحذف ابقي احذف السطر ده من الكود MsgBox "!تم حذف الورقة بنجاح", vbInformation, "تم الحذف" شرف لى استاذي الفاضل، جزاك الله كل خير على كلماتك الرقيقة وهى وسام على صدري تحياتي DeleteSheet.rar