[طلب مساعدة]كود طباعة وفقا لشرط

[عاشق الاكسيل]

جارى تعديل العمل .....

تم تعديل مارس 20, 2015 بواسطه الباحث العربى

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

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

Print Salary.rar

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

إليك هذا التعديل ليتم التعامل مع الشرطين ..

قم باختيار الشرطين ثم انقر زر الأمر

Sub PrintSpecfic()
    Dim strCriteria1 As String, strCriteria2 As String
    
    strCriteria1 = Sheet1.Range("AH1").Value
    strCriteria2 = Sheet1.Range("AI1").Value
    On Error Resume Next
    With Sheet1
        .AutoFilterMode = False
        .Range("A2:AI2").AutoFilter Field:=34, Criteria1:=strCriteria1
        .Range("A2:AI2").AutoFilter Field:=35, Criteria1:=strCriteria2
        Columns("AH:AI").Hidden = True
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
        Columns("AH:AI").Hidden = False
    End With
End Sub

Print Salary.rar

[عاشق الاكسيل]

استاذى الجليل ياسر خليل

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

 

هل من الممكل عمل زر لطباعة الكل دفعة واحدة ولكن كل ادارة على حدة وفقا لنفس الشرطين

وهل من الممكن تحقيق الطلب الاخير

التعديل اذا كان فى امكانية لتنفيذه ان يكون اقصى عدد للموظفين فى ورقة طباعة هو 25 موظف ويكون اخر صف به اجمالى المستحق لهم (ورقة طباعة)

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

صراحة هذه النقطة أعتقد أنها صعبة إلى حد كبير ..

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

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

لو أمكن ممكن ترفق ملف يكون فيه بيانات بعدد كبير لعمل اختبار عليه ..

هحاول أوصل لأي فكرة وربنا ييسر الأمور ..

بس عايز بيانات كتير وحدد لي عمود الإجمالي (هل تريد الإجمالي لكل 25 موظف ؟؟ أم أنك تريد الإجمالي في نهاية النتائج مرة واحدة للجميع ..)

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

صراحة الموضوع معقد ..

[عاشق الاكسيل]

استاذ ياسر خليل

كما عودتنى فلناخد الموضوع جزء جزء

هل من الممكن عمل زر طباعة الكل وعند الضغط عليها يقوم بطباعة كافة البيانات ولكن كل ادارة على حدة مثل الحال فى Print All Schools

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

أخي الحبيب ..قمت ببعض من المطلوب ..

في آخر صف تمت إضافة صف للإجمالي ..لكن كل 25 موظف أعتقد صعبة شوية

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

Print Salary.rar

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

فيما يخص المشاركة رقم 9 ..

أنت غير مجهز الشيت بشكل مناسب لهذا الطلب ..

أقترح عليك عمل أرقام للإدارات كما في الملف الذي أشرت إليه ..

نقطة أخرى ..الفلترة هنا ستكون على شرط الإدارة فقط ؟؟!!!!!!!!

حاول تعدل من الملف بحيث يناسب طلبك ..

[عاشق الاكسيل]

استاذى ياسر خليل تم ارفام الملف بعد ارفاق عدد 300 موظف (تجريبى)

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

ومن ثم التحقق من الامور الاخرى

Print Salary1.rar

[عاشق الاكسيل]

اى تعديلات من الممكن ان تفيدنى اقترحها على سوق اقوم بتنفيذها ليسهل المطلوب

وشكرا على مساعدتك اخى الكريم

[عاشق الاكسيل]

استاذى واخى ياسر خليل

بمشيئة الله سوف اقوم باعادة تصميم العمل من البداية الى النهاية مع مراعاة كافة الجوانب

بحيث يسهل تطبيق المتطلبات

سوف اقوم بتجميع كل مساعداتك فى هذا الملف وتصميمه بحيث يخدم المطلوب

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

 

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

ومن ثم التحقق من الامور الاخرى

 

المشكلة في الملف ولم أنتبه إليها

عموما دي حلها بسيط ادخل التبويب Page Layout  ثم Print Area واختار Clear Print Area