نثغةثمسخبف

اخي محمد

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

وتطبيق المعادلة والكود

وقد تم الامر

شكرا جزيلا وجعل تعبك معي ومع المشفى في صحيفة اعمالك

اخ محمد

جزاك الله عني كل خير

الكود رائع جدا وهو المطلوب

ولكن اظن انه لايمكن تحقيق المراد بسبب وجود خلايا مدمجة بشيت طباعة الشراء

سأوضح لك

المجال 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

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

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

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

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

اخي

لاحظ معي

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