احمد بدره

بعد إذن الأستاذ / وجيه جرب هذا لعله يكون المطلوب وهو عبارة إنشاء قائمة منسدلة تعتمد على قائمة منسدلة أخرى النطاقات.xlsx

بارك الله فيك أستاذ سليم

عليكم السلام ورحمة الله وبركاته مرحبًا بك في المنتدى وكل عام أنت بخير أولاً يجب يجب أن تكون وحدات الماكرو ممكنة ويكون معلم أمام الثقة في مشروع VBA وذلك من قائمة ملف - خيارات ثم موافق انظر الصورة ثانيًا انظر إليك الصورة الثانية

وعليك السلام ورحمة الله وبركاته تم عمل المطلوب وبالنسبة للطباعة بنوع pdf يكفي أمر واحد وتم عمل كود للحفظ على سطح المكتب تفضل الملف 2202.xlsm

ألف مبروك وأتمنى من الله مزيدًا من التقدم

ألف مبروك للأستاذ الفاضل / علي وأدعوا الله أن يعينه على مسئولية هذا المنصب

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

وعليك السلام ورحمة الله وبركاته وبعودة الأيام ممكن إخفاء CommandButton قبل الطباعة ثم رجوعه بعد الطباعة فيمكنك طباعة الفورم بدون الأزار كمثال لو لديك زر أمر 1 يكون هكذا ويمكنك تكملة باقي الأزار بنفس الفكرة CommandButton1.Visible = False UserForm2.PrintForm CommandButton1.Visible = True

تسلم الأنامل أستاذ وجيه ولكن بعد إذن حضرتك لاحظت أن رقم 2 قام بالدخول ولم يقم بالخروج لذلك رأيت أنه من الأفضل عمل بعض التعديلات حتى تأتي بالنتيجة المرجوة بإضافة عمود مساعد ممكن تجربه هذا أستاذ سليم الاخرس رمضان كريم وكل عام أنتم بخير بصامة.xlsx

عليك السلام ورحمة الله وبركاته تم التعديل وكل عام أنتم بخير المبيعات.rar

بارك الله فيك أستاذنا الفاضل الأستاذ وجيه وكل عام أنت والعالم الإسلامي بخير

عليك السلام ورحمة الله وبركاته وكل عام أنتم والأمة الإسلامية جميعًا بخير تم التعديل على الكود ليسمح لك بالنزول والصعود من الأسهم المبيعات.rar

يتم عمل ذلك أولاً بالنسبة لإخفاء الأعمدة قم بالوقوف على العمود الساس ( التالي لآخر عمود تريد إظهاره ) فيتم تظليله بعدها اضغط على مفتاح Ctrl+ Shift + السهم الأيسر ( موجود بين الأرقم والحروف 4 أسهم ) في آن واحد فيتم تحديد ( تظليل ) باقى الأعمدة إلى النهاية بعد ذلك اضغط كليك يمين بالماوس تظهر قائمة اختر منها إخفاء ثانيًا بالنسبة لإخفاء الصفوف قم بالوقوف على الصف التاسع( الصف الذي يلي آخر صف تريد إظهاره ) فيتم تظليله بعدها اضغط على مفتاح Ctrl+ Shift + السهم الأسفل( موجود بين الأرقم والحروف 4 أسهم ) في آن واحد فيتم تحديد ( تظليل ) باقى الصفوف إلى النهاية بعد ذلك اضغط كليك يمن بالماوس تظهر قائمة اختر منها إخفاء

عليك السلام ورحمة الله وبركاته ممكن تجرب المعادلة الآتية =B2*SUM(C2:J2)

أشكرك أستاذنا الفاضل أستاذ وجيه شرف الدين على ذوق حضرتك

أحسنت بارك الله فيك أستاذنا الفاضل أرى أن يتم تغيير السطر If Not Intersect(Target, Range("A7:E200")) Is Nothing _ ليكون If Not Intersect(Target, Range("c7:c200")) Is Nothing _ حتى يتم عمل الكود بعد إدخال العدد حيث أن عمود الكود وعمود العدد هما اللذان يتم الكتابة فيهم والرأي الأخير لحضرتك فأنت معلمي

عمل رائع أستاذنا الفاضل حفظك الله

جرب الذهاب إلى لوحة التحكم واختار إضافة وإزالة برنامج وحدد برنامج الأوفيس واختر تتغيير وبعد اختر إصلاح أو استعادة

أعمال رائعة وربنا يجعلها في ميزان حسناتك

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

اذا كان جملة المتغيرات بين الرقمين 33600و28000 تكون خانة الخاضع تساوى مبلغ وخانة الغير خاضع تساوى مبلغ . السؤال كيف يتم احتساب هذا المبلغ أقصد من ( الخانة ) ونسبتها أو طريقتها

بعد إذن أستاذنا الأفاضل ممكن تجرب هذا الكود لعله يكون المطلوب OK_fatoura2.zip

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

عليك السلام ورحمة الله وبركاته الأفضل أن تقوم بتسجيل ماكرو ثم اضغط Ctl+P أو ملف طباعة يظهر مربع حوار الطباعة اختر الطابعة التي تريد الطباعة منها يدويًا حتى ولو كانت الافتراضية ثم اضغط موافق بعد ذلك قم بإيقاف تسجيل الماكرو بذلك يتم عمل كود لطباعة من طابعة معينة ويمكنك بستجيل ماكرو آخر وبنفس الخطوات السابقة لاختيار طابعة أخر أي أنه كل طابعة تريد استخدامها يكون لها ماكرو

عمل رائع أستاذنا الفاضل وربنا يجعله في ميزان حساناتك وكل عام أنتم بخير