كود للطباعة بشرط الخلايا التى بها بيانات

[hamada_ce]

ألأخوة الأعزاء 

 

أريد عمل كود للطباعة بزر بشرط 

 

بحيث طباعة الخليا التى بها بيانات

 

مرفق ملف لتوضيح ذلك 

Bookeeeeeeeeee.rar

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

أخي الفاضل جرب المرفق التالي

Print Selection.rar

[hamada_ce]

شكرا أخى 

 

توضيح هذا الكود يعمل علي جميع الخلايا التى بها بينات في الشيت والخلايا التى بها معادلات وفارغة 

 

 

وأنا أريد الخلايا التى بين العمود B  والعمود K  التى بيها بيانات فقط 

تم تعديل نوفمبر 15, 2014 بواسطه hamada_ce

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

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

[hamada_ce]

تم إرفاق ملف أخر 

أتمنى يوضح طلبى 

 

BookAAAAAAAA.rar

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

أخي الفاضل حماده في المثال المرفق فيه 3 أعمدة بكل عمود بيان هل هذا ضمن النطاق أم أنها بيانات زائدة (K L M(

ثانيا في المشاركة رقم 3 قلت أن (الكود يعمل علي جميع الخلايا التى بها بينات في الشيت والخلايا التى بها معادلات وفارغة) وهناك معادلات في العمود A حتى الصف 69

وفي المرفق كتبت أن المطلوب من A2:J11

أعتقد أن هذا تناقض حيث أنني لم أفهم ديناميكة تحديد النطاق .. هل تريد العمل على كل الخلايا التي بها معادلات أم أنك تستند إلى العمود J  للحصول على آخر خليه بها بيانات ؟؟؟

[hamada_ce]

أخى الفاضل 

- بالفعل 3 أعمدة زائده ولا أريد طبعاتها 

- عند تجربة الكود الذى أرفقتة لوحظ أن الكود يعمل علي الخلايا التى بها معادلات ولا يوجد بها بيانات 

- أريد طباعة البيانات التى تنحصر من العمود a  إلي العمود j

-  فقط أريد الطباعة من a2 إلي j11  كما بالمثال 

- عند إضافة بيانات في الصف 12 يعمل الكود من a2 إلي j12 لطبعاتها وهكذا .

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

أخي الفاضل جرب

Sub PrintSelection()
    Dim LR As Long
    LR = Columns("A").Find("*", SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole).Row
    Range("A2:J" & LR).Select
    Selection.PrintOut Copies:=1, Collate:=True
End Sub

[hamada_ce]

مشكور وبارك الله فيك 

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

تمام يعني يا أخ حمادة ضبطت معاك الحمد لله ...!!

تقبل تحياتي وتقديري

[عصام مسعد]

 

أخي الفاضل جرب المرفق التالي

 

جميل بس ممكن كود يستبعد طباعه الخلايا التى به صفر 

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

ارفق مثالك أخي الفاضل عصام ووضح هل الخلايا التي بها أصفار تقع في آخر جدول أم انها في نطاق ؟ بملف مرفق يتضح الطلب أكثر

[عصام مسعد]

ارفق مثالك أخي الفاضل عصام ووضح هل الخلايا التي بها أصفار تقع في آخر جدول أم انها في نطاق ؟ بملف مرفق يتضح الطلب أكثر

 

 

 

لا ديه نفس الملف الذى حضرتك منزله وفى نفس نطاق الجدول وللتوضيح اكثر هرفق ملف . مع الشكر[

New Microsoft Excel Worksheet.rar

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

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

Sub PrintSelection()
    Dim LR As Long, I As Integer
    LR = Columns("B").Find("*", SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole).Row
    For I = 2 To 14
        If Cells(LR, I) = 0 Then Cells(LR, I).EntireColumn.Hidden = True
    Next I
    Range("B6:N" & LR).Select
    Selection.PrintOut Copies:=1, Collate:=True
    Cells.EntireColumn.Hidden = False
End Sub