مطلوب عمل زر اخفاء الخانات الفارغة وطباعة البقية - عنوان معدل

[islam omar 45]

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

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

الأخ الكريم إسلام

أهلا بك ومرحبا في المنتدى بين إخوانك

يرجى إرفاق ملف للعمل عليه ولتسهيل الوصول لحل سريع وصحيح إن شاء الله ...

حاول أن توفر الوقت والجهد على إخوانك الذين يريدون تقديم المساعدة ..حيث أن تصميم الملف قد يستغرق بعض الوقت هذا من ناحية ، وقد لا يطابق الملف المصمم ما يدور بخلدك ..فرجاءً إرفاق ملف .. ومش معقولة هتتعامل مع الموبايل حتى لو فيه حد قدم مساعدة!!

[islam omar 45]

الأخ الكريم إسلام

أهلا بك ومرحبا في المنتدى بين إخوانك

يرجى إرفاق ملف للعمل عليه ولتسهيل الوصول لحل سريع وصحيح إن شاء الله ...

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

تمام يا استاذنا فهمت المقصود

عرض سعر.rar

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

جرب الملف التالي

عرض السعر.rar

[islam omar 45]

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

وشكرا على اهتمامك

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

جرب الكود بهذا الشكل

Sub HideRows()
    Dim Cell As Range
    Application.ScreenUpdating = False
        For Each Cell In Range("D14:D33")
            If Cell.Value = "" Then Cell.EntireRow.Hidden = True
        Next
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
        Cells.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

تم إضافة سطر للطباعة ثم سطر لإظهار الصفوف المخفية

[islam omar 45]

شكرا شكرا شكرا

بجد تعبت حضرتك معايا

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

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

أخي الفاضل إسلام

ممكن تفتح الباب (بس متنساش تقفله وراك عشان الجو برد)

http://www.officena.net/ib/index.php?showtopic=56941

[islam omar 45]

hhhhhhhhhhhh

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