برنامج يحتاج الى مساعدة بسيطة

[م.مهند القانوع]

الإخوة الكرام جميعا/تحية طيبة و بعد

الملف المرفق اسمه test به ورقتى عمل الأولى Data و بها بيانات و الثانية اسمها Report عند نسخ رقم الهوية الموجود في الخلية A5 الموجودة في ورقة العمل data و لصقه في الخليةG6 الموجودة في ورقة العمل Report يقوم البرنامج بإستدعاء جميع البيانات الخاصة برقم الهوية و سستلاحظون ان البيانات ستكون بحجم صفحة واحدة فقط اي التقرير سيكون صفحة واحدة و لكن عند نسخ رقم الهوية الموجود في الخلية A6 سيكون التقرير بحجم صفحتين اي عند الطباعة سيكون التقرير عبارة عن صفحتين و عند نسخ رقم الهوية الموجود في الخلية A7 سيكون التقرير بحجم ثلاث صفحات و المطلوب تعديل حدود الصفحة عند كل امر طباعة كيف يمكن حل هذه المشكلة بدون تعديل حدود الصفحات اي عند اعطاء امر الطباعة يقوم بالطباعة ايا كان عدد الصفحات بدون الرجوع الى تعديل حدود الطباعة

[أ / محمد صالح]

يا ريت مزيد من التوضيح للمطلوب

مع العلم أنك في مرفقك لم تصمم اي حد للصفحات بل الذي يظهر البيانات فقط

[عبدالله باقشير]

السلام عليكم

اجعل جميع الصفوف التي بها معادلات كنطاق للطباعة

ثم اعمل تصفية للعمود A للمعيار بدون فراغات

وقد اضفت العملية اعلاة بكود في حدث الورقة Report

اذا تم تغيير القيمة في الخلية G6

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("G6").Address Then

    Selection.AutoFilter Field:=1, Criteria1:="<>"

End If

End Sub

واضفت زر لاظهار الكل بالكود التالي

Sub KH_ALL()

    Selection.AutoFilter Field:=1

End Sub

تفضل المرفق

test.rar

[م.مهند القانوع]

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

[م.مهند القانوع]

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

عند جعل جميع الصفوف التي بها معادلات كنطاق للطباعة

ثم عمل تصفية للعمود A للمعيار بدون فراغات و ذلك قبل كل عملية طباعة فإن ذلك يؤدي المطلوب

و لكن هذا يتطلب ان تبقى ورقة العمل Report غير محمية الخلايا كي نستطيع عمل التصفية,

و لكن ايضا ورقة العمل Report جميع خلاياها بها معادلات و تتطلب حماية الخلايا ما عدا الخلية g6

فنحن بحاجة شديدة الى حماية خلايا ورقة العمل و بحاجة الى عمل تصفية للعمود A اين المخرج؟