تحديد نطاق طباعة تلقائي بشرط وجود بيانات في الخلايا

[danyal9933]

في الملف المرفق طريقة لعمل ترقيم تلقائي بشرط وجود بيانات في الخلية 
وهو شيء بسيط أمام معادلات الخبراء في الموقع 

كما أود طلب مساعدة في تحديد نطاق للطباعة يرتبط بالترقيم التلقائي بواسطة معادلة وليس كود 

اي تحديد نطاق طباعة تلقائي بشرط وجود بيانات في الخلايا 

مرفق الترقيم التلقائي 
 

ألترقيم التلقائي.rar

[ياسر خليل أبو البراء]

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

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

[danyal9933]

شكرا لتجاوبك اخي 

المطلوب رأيته مرة بمعادلة من صنع الأخ جمال عبد السميع لكني لم أستطع الوصول إليها 

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

[danyal9933]

المثال يوضح المطلوب من تحديد نطاق الطباعة بالمعادلات 

 

مثال.rar

[danyal9933]

يا إخوان هل الموضوع صعب لهالدرجة ؟؟؟!!! 

 

[نــــ حلمي ــوّار]

تفضل كود من عمل استاذنا الفاضل دغيدي

قم بعمل زر واستخدم الكود وسيقوم بعمل المطلوب

Sub sama2012()
  Application.ScreenUpdating = False
  With ActiveSheet
  With .UsedRange
  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
 

[danyal9933]

تفضل كود من عمل استاذنا الفاضل دغيدي

قم بعمل زر واستخدم الكود وسيقوم بعمل المطلوب

Sub sama2012()

  Application.ScreenUpdating = False

  With ActiveSheet

  With .UsedRange

  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

 

 

أشكر ردك واهتمامك صديقي 

لكن قبل مدة رأيت شيء قريب باستخدام معادلة 

أتوقع أنها من صنع الأخ جمال عبد السميع أو الأخ ابو عبد الله 

ولم أستطع التوصل إليها 

هي معادلة باستخدام Offset 

[danyal9933]

أخواني هذه هي المشاركة التي بها المعادلة وهي من صنع الأخ الخالدي 

 

http://www.officena.net/ib/index.php?showtopic=32361&hl=%20%D9%86%D8%A7%D8%AD%D9%8A%D8%A9%20%20%D8%A7%D9%84%D8%B7%D8%A8%D8%A7%D8%B9%D8%A9&page=2

 

يا ريت حد يقدر يساعدني فيها  على مشروعي

[danyal9933]

أخواني ...
هل من حل ؟؟!!!

[الخالدي]

السلام عليكم

اعمل نطاق طباعة خاص بالورقة (ورقة1) ثم ادخل المعادلة التالية

=OFFSET=OFFSET(!$A$3:$I$3;0;;MAX((!$A3:$A$1000<>"")*ROW(!$A3:$A$1000));)

نطاق الطباعة (Print_Area) في ملفك غير صحيح لأنه معرف على مستوى الملف وليس على مستوى الورقة حيث يجب ان يكون لكل ورقة نطاق طباعة خاص بها ومعرف على مستواها

ولإثراء الموضوع

في الملف المرفق استخدمت معادلة واحدة لتحديد نطاق الطباعة في اي ورقة حسب اخر صف في العمود A

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

=OFFSET(!$A$3:$I$3;0;;MAX((!$A3:$A$1000<>"")*ROW(!$A3:$A$1000));)

تم اعطاء اسم للمعادلة(طباعة) بحيث يتم الاشارة اليه في نطاقات طباعة الاوراق

ارجو ان يكون المطلوب

‫تحديد نطاق طباعة تلقائي.rar

[danyal9933]

شكرا لتواصلك أخي الخالدي 
جاري التجربة على الملف 
 

[danyal9933]

ناجحة في المرة الأولى 
ولكن بعد أن يتغير اختيار الـ LIst  ويكبر مدى البيانات لا يكبر مدى الطباعة 
:(

افيدوني إن لم تصلح بالمعادلات كيف يمكن الحصول على كود تلقائي ولا يراه المستخدم حتى !!!؟؟!!! 
 

[danyal9933]

للرفع