نثغةثمسخبف

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

اخ محمد جزاك الله عني كل خير الكود رائع جدا وهو المطلوب ولكن اظن انه لايمكن تحقيق المراد بسبب وجود خلايا مدمجة بشيت طباعة الشراء سأوضح لك المجال 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 وشكرا لتفهمكم

ماهي المعادلة التي يمكن بها لخلية الاختيار من عدة خلايا بعبارة اخرى انه لدينا الخلية A12 ,وهي تساوي بالقيمة احدى من خليتين A4,A6 حيث يقوم بتجاهل وجود خطأ او قيمة صفرية او فارغة ويختار الخلية التي فيها قيمة موع جزيل الشكر

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

لاحظ اخي هناك ثلاثة اقلام فقط بصفحة الطلب بينما الترحيل تصبح اربعة اقلام نفس النتيجة مهما كان عدد الاقلام . فهناك حجز لسطر اخير

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

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

وجدت هذه المعادلة ولكنني هنا ارحل البيانات بشكل افقي Option Explicit Sub TransferUsingArray() Dim Arr With Sheets("1") Arr = Array(.Range("I1"), .Range("I2"), .Range("I3"), .Range("E25"), .Range("E26"), .Range("C9"), .Range("E9"), .Range("G9"), .Range("J9"), .Range("C11"), .Range("E11"), .Range("G11"), .Range("J11"), .Range("C13"), .Range("E13"), .Range("G13"), .Range("J13"), .Range("C15"), .Range("E15"), .Range("G15"), .Range("J15")) End With With Sheets("2") .Range("A" & .Cells(Rows.Count, "A").End(xlUp).Row + 1).Resize(1, UBound(Arr) + 1).Value = Arr End With MsgBox "Done...", 64 End Sub ولكنني اريد ترحيل الاعمدة التي تحتوي على الطلبات بشكل اعمدة

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

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

شكرااااا جزيلا . ابدااااااااااااااااااااع .

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