اريد طباعة كل كود بمفرده بعد اختيار الاشهر

[صلاح الصغير]

السلام عليكم و رحمة الله و بركاته

اريد طباعة كل كود بمفرده فى ورقة مستقلة بعد اختيار الاشهر المراد طباعتها

مع اعتبار انه يوجد اعمدة غير مرغوب فى طباعتها

طباعة كل كود فى ورقة مستقلة.rar

[علي الشيخ]

السلام عليكم 

في الملف المرفق أنا استخدمت الـ Pivot Table بعيدا عن الأكواد التي شخصياً أتجنبها كلما كان أمكن 

لو انت تستخدم أوفيس 2013 أو 2016 هيظهرلك الـ Slicer التي تساعدك على الفلترة بشكل سهل وأنيق

لو إصدار أقدم مش هتظهر عندك ولكن هيظل الـ Pivot Table يعمل ويتحدث تلقائيا في كل مرة يتم فيها فتح الملف من جديد أو يتم تحديثه يدويا بالضغط على Refresh All

الجدول موجود في Sheet1

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

لكل كود موظف بإجمالياته من الاستقاطاعات والاستحقاقات مع إجمالي كلُ على حدى

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

اتفضل ألقي نظره عسى يكون المطلوب أو ع الأقل فكره مبدئية يمكنك التطوير فيها بما يتماشى مع متطلباتك

 

 

طباعة كل كود فى ورقة مستقلة.rar

[صلاح الصغير]

ا / على

اشكرك على مجهودك و لكن البيفوت غير دقيق حيث انه عند اختيار شهر 6 و 7 و 8 لا يظهر الا 6 و 7 فقط

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

لاحظ ورقة 1

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

و شكرا لك مرة اخرى

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

طباعة كل كود فى ورقة مستقلة 2.rar

تم تعديل يوليو 4, 2016 بواسطه صلاح الصغير

[صلاح الصغير]

عذرا 

تعديل بسيط الملف الاصلى به اعمدة كثيرة

فالكود الواحد سوف يطبع على صفحتين

[صلاح الصغير]

للرفع

[صلاح الصغير]

للرفع

[صلاح الصغير]

للرفع

[omar elhosseini]

 

الاخ صلاح الصغير

شاهد المرفق

Omar_1.rar

 

 

[صلاح الصغير]

اشكرك ا / عمر

جارى التجربة و الرد لاحقا

[صلاح الصغير]

 ا / عمر

شكرا للمتابعة و الاهتمام

حضرتك فصلت كل كود فى ورقة مستقلة رائع

و لكن المطلوب هو طباعة كل كود على حدة و ليس الفصل

و شكرا

[omar elhosseini]

 

الاخ صلاح الصغير

شاهد المرفق

Omar_2.rar

 

[صلاح الصغير]

ا / عمر 

شكرا للاهتمام

ظهر هذا الخطأ

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

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

[صلاح الصغير]

ا / عمر 

شكرا للاهتمام

ظهر هذا الخطأ

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

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

[صلاح الصغير]

للرفع

[صلاح الصغير]

السلام عليكم

جزاكم الله خيرا

[omar elhosseini]

ما هو طلبك بالضبط

والاهم ضع تصورك لشكل النتيجه في شيت منفصل

[صلاح الصغير]

ا / عمر

شكرا للاهتمام

المطلوب يا فندم هو الطباعة 

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

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

و ارجو ان اكون اوضحت طلبى

و شكرا

[صلاح الصغير]

للرفع

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

في ٢‏/٨‏/٢٠١٦ at 10:25, صلاح الصغير said:

ا / عمر

شكرا للاهتمام

المطلوب يا فندم هو الطباعة 

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

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

و ارجو ان اكون اوضحت طلبى

و شكرا

جرب الفلترة ثم إعطاء أمر الطباعة

يمكن تسجيل ماكرو بهذا الأمر .. هذا على حسب رأيي بشكل سريع للموضوع

[صلاح الصغير]

ا / ياسر

شكرا للاهتمام كالعادة

و لكن كيف يقوم الماكرو بطباعة كل كود منفصل

[صلاح الصغير]

للرفع

[صلاح الصغير]

للرفع

[صلاح الصغير]

للرفع

 

[عبدالسلام ابوالعوافي]

جرب هذا الكود لعله المطلوب

Sub awafi()
    Dim i As Integer
    For i = 2 To 100
        If Len(Cells(i, 2)) = 0 Then Exit For
        If WorksheetFunction.CountIf(Range("b2:b" & i), Cells(i, 2)) = 1 Then
            ActiveSheet.UsedRange.AutoFilter Field:=2, Criteria1:=Cells(i, 2)
            ActiveSheet.PrintOut
            ActiveSheet.UsedRange.AutoFilter Field:=2
        End If
    Next i
End Sub

 

[الشهابي]

أخي العزيز / صلاح الصغير

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

هذا كود مسجل للتصفية المتقدمة لعله يؤدي المطلوب إن شاء الله حسب ما فهمت

والعفو

 

طباعة كل كود فى ورقة مستقلة.rar