نثغةثمسخبف

اخي محمد ربما خطأي هو بالخلية المدمجة . تم تعديل شيت الطباعة وجعلهم كلهم بصف واحد وتطبيق المعادلة والكود وقد تم الامر شكرا جزيلا وجعل تعبك معي ومع المشفى في صحيفة اعمالك

اخ محمد جزاك الله عني كل خير الكود رائع جدا وهو المطلوب ولكن اظن انه لايمكن تحقيق المراد بسبب وجود خلايا مدمجة بشيت طباعة الشراء سأوضح لك المجال B1:J10 هو ثابت يظهر بالطباعة دائما المجال من B21:J26 ايضا ثابت يظهر بالطباعة دائما نأتي الى المجال B11:J20 تأتي المعضلة المطلوب كل خلية ( مدمجة ) من العمود B تساوي الصفر يصبح المجال للسطرين مهمل بالطباعة مثال ليكن الخلية B19 تساوي الصفر يصبح المجال من B19:J20 لايظهر بالطباعة ايضا الخلية B15 تساوي 0 يصبح المجال B15:J16 مهمل بالطباعة ايضا الخلية B13 اكبر من 0 يصبح المجال B13:J14 يظهر بالطباعة اعتقد انني قد وفقت بالشرح والف شكر على تجاوبك معي

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

اخي محمد قمت بالسهر ليلة امبارحة افحص الكود الذي قمت بكتابته لايسعني الا ان اقول انه رائع وقمت بتعديله حسب خبرتي المتواضعة ونجحت بذلك تعديل Lr من a الى c ليكون بداية الترحيل الى اخر سطر بالعمود c وتعديل رقم العمود الذي وضعته رقما 13 الى i3 بقي تعديل بسيط هو انني لا اريد ان يصبح شيت الترحيل فعال وابقى بشيت العمل مع اعطاء رسالة انه تم الترحيل والطباعة ؟؟؟؟ مع جزيل الشكر

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

قمت باضافة بعض المعلومات لتصبح اسهل بالمطلوب اخوتي الاعزاء وشكرا جزيلا لكم ووضع عملكم في صحيفة اعمالكم مثال 3.xlsm

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

شكرا جزيلا . تم الامر بالفعل جعلها الله في ميزان حسناتكم

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

الكود هو Sub MyPrint() Application.ScreenUpdating = False With Sheets(" Print_Report") With .Range("B10:I20") For i = 1 To .Rows.Count If .Cells(i, 1).Value = "" Then .Cells(i, 1).EntireRow.Hidden = True End If Next i End With .PrintOut .Rows.Hidden = False End With Application.ScreenUpdating = True End Sub هنا في امر الطباعة افوم بالطباعة بحيث لايتم الطباعة لاسطر فارغة بالتقرير كيف يمكن وضع ما اشرتم اليه هنا من دون ان افقد هذه الخاصية

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

المشكلة بالاسم انه اخذ اسم الفيسبوك ولا اعرف كيف تعديل الاسم بالمنتدى

بعون الله وبرعاية اعضاء المنتدى وبخبراتكم العظيمة تم والحمد لله الانتهاء من مشروع ملف مستودع ولكن حسب اساسيات عملي اطرحه على الاعضاء للاستفادة او للتعديل ياريت لو ممكن تغيير اسم الظهور الى اسم عربى له معنى بدلاً من نثغةثمسخبف حتى نتشرف بسيادتكم نسخة_فارغة_-_مستودع.xlsm

شكرا جزيلا . عمل اقل مايقال عنه انه رائع

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