طارق محمود

الملف اللي أنا أرسلته لازم تفك الضغط أولا فتتكون الملفات كلها في فولدر ومن هذا الفولدر تبدأ العمل

السلام عليكم الاخ الحبيب عباد الف الف مبروك رفع الله قدرك وزادك علما وشرفا دائما

جميل أخي / عباد نفس الفكرة تقريبا أنا فقط اضفت أن جعلته يأخذ حتي آخر خلية بالصفحة Sub Collect_Data() Application.ScreenUpdating = False Dim L_Cl As Range, n_Rg As Range fN = ActiveWorkbook.Name pt = ActiveWorkbook.Path & "\" On Error Resume Next NextFile = Dir(pt) Do While NextFile <> "" If NextFile = fN Then GoTo 10 Workbooks.Open Filename:=NextFile For i = 1 To Sheets.Count Sheets(i).Activate shN = Sheets(i).Name Set L_Cl = Cells.SpecialCells(xlCellTypeLastCell) With Workbooks(fN).Sheets(shN) LR = .[A99999].End(xlUp).Row + 2 With .Cells(LR, 1) .Font.Bold = True .Font.Size = 14 .Interior.ColorIndex = 3 .Value = NextFile End With Set n_Rg = .Cells((LR + 1), 1) End With Range("A1", L_Cl).Copy n_Rg Next i ActiveWindow.Close Application.ScreenUpdating = True Application.ScreenUpdating = False 10 NextFile = Dir() Loop Application.ScreenUpdating = True End Sub

السلام عليكم أخي العزيز تفضل المجلد وبه الملف ALL.xlsm وباقي الملفات إفتح الملف أولا وقبل ضغط الزر راجع صفحاته (كلها فارغة) ثم إضغط الزر كان الأسهل أن أضع عنوان المحافظة أعلي بياناتها ولم أنتبه لطلبك أن تكون بجوار البيانات عموما تصليحها سهل (ولكن سيأخذ بعض الوقت) لو يناسبك الشكل الحالي ، خلاص وإلا سوف اصلحها فيما بعد Data file2.rar

السلام عليكم أخي العزيز أرجو أن يكون ماتريد بالمرفق تفضل كشف حركة الخزينة اكتوبر2.rar

السلام عليكم أخي الكريم تفضل المطلوب نسبه الزياده2.rar

السلام عليكم أخي الفاضل / عباد (العيدروس) مرورك شرف لي وكلماتك وسام أعتز به جزاك الله خيرا

يتم هذا عن طريق برنامج مخصوص يوجد العديد من البرامج لهذا الغرض عندي منها Able2extract

السلام عليكم أخي العزيز تفضل لعله المطلوب رقم الحساب2.rar

السلام عليكم أخي العزيز كما أخبرتك سابقا تم ربط الإدارة بالإسم والآن تم ضبط موضوع الـ X أعتقد أن المرفق به ماتريد إن شاء الله تفضل TIME SHEET 120_2.rar

أدبي ولا علمي مش مهم المهم هانحلها إزاي ، الحالة دي

السلام عليكم أخي الكريم (1) موضوع تضبيط الـ X سيأخذ بعض الوقت لانشغالي حاليا (2) أول كارت لن يكون به توافق أبدا في حالة أن الخلية E2 تحتوي علي N .... تعالي نفكر بهدوء هذا العامل لديه 29 ساعة ولديه 10X مقسومة علي 5 ، 5 وبعد الأخذ بموضوع N سيكون الخلايا القابلة للتقسيم 4 ، 4 صح؟ أي أنك تريد تقسيم 29÷8 ولايزيد الناتج عن 3 ساعات خليتني أخبط رأسي بالحيط (3) تم ربط الإدارة بالإسم وسأرفقها لك بعد تضبيط الـ X

السلام عليكم تفضل أخي الكود بعد التعديل Sub MyPrint() Application.ScreenUpdating = False Application.PrintCommunication = False With Sheets("جدول دفع الإستشارة (3)") .ResetAllPageBreaks .PageSetup.FitToPagesWide = 1 With .UsedRange For i = 1 To .Rows.Count If .Cells(i, 1).Value = "" Then .Cells(i, 1).EntireRow.Hidden = True End If Next i End With .PrintOut .Rows.Hidden = False End With Application.PrintCommunication = True Application.ScreenUpdating = True End Sub

السلام عليكم أخي العزيز أضف السطر التالي للكود قبل الأمر الموجود ActiveSheet.PageSetup.Orientation = xlLandscape ليصبح كالتالي Private Sub CommandButton1_Click() ActiveSheet.PageSetup.Orientation = xlLandscape Range("a1:g23").PrintPreview End Sub

السلام عليكم أخي الكريم تم عمل التعديلات التالية (1) أرقام العمال ستؤخذ أوتوماتيكيا من المجال Lab_NO لاداعي للقائمة المنسدلة (2) الفترة ستختارها مرة واحدة فقط (للعامل الأول) ثم ستنتقل أوتوماتيكيا لباقي العمال ، فلاداعي للقائمة المنسدلة لباقي العمال أيضا (3) من واقع فهمي للمعادلة في ملفك الأول ،فلن يتم حساب أي ساعات إلا إذا كانت الخلية E2 (أو مثيلاتها) تحتوي علي D أو U أو N فمثلا ستجد عمالا ليس لهم ساعات بعد تشغيل الكود لأن خليتهم التي مثل E2 تحتوي علي AS (4) تم تعديل الكود ليناسب طلباتك وشرط الــ N (5) توزيع الساعات سيأخذ وقتا (قد يصل لدقائق) لذلك جعلتها علي زر لكيلا تتعطل كلما دخلت للورقة تفضل المرفق TIME SHEET 120_2.rar

السلام عليكم أخي الكريم أتمني أن أقوم بهذا العمل ولكن ضيق وقتي يمنعني سأدلك علي الرابط التالي http://office.microsoft.com/client/helppreview14.aspx?AssetId=HP010342366&lcid=1025&NS=EXCEL&Version=14&respos=0&CTT=1&queryid=d4caafb1-1430-491e-b57b-a801c7193bd1 ستجد شرح مفصل لكافة جوانب الجداول المحورية وقد عنونها الشارح في النقاط التالية التعامل مع قائمة حقول PivotTable طريقة عمل قائمة حقول PivotTable إرشادات لنقل الحقول في قائمة حقول PivotTable تغيير طريقة عرض قائمة حقول PivotTable إضافة حقول إلى PivotTable أو PivotChart إضافة الحقول التي تريد عرضها إضافة عدة نسخ من حقل في ناحية القيم تصفية البيانات قبل إضافة الحقول إعادة ترتيب حقول في PivotTable أو PivotChart إزالة حقول من PivotTable أو PivotChart التبديل بين التحديث التلقائي والتحديث اليدوي لتخطيط التقرير يعيبها أن ترجمتها للغة العربية ركيكة ولكنك ستفهم ماتريد ثم انتظر منك أنت أن تعد موضوعا متميزا عن الجداول المحورية إن شاء الله

السلام عليكم اخي الكريم نعم أخي ، إن كان كما فهمت تريد الطباعة فقط فليس من المهم عمل شيت لكل شهر ولا عمل جدول لكل موظف ممكن تكتفي فقط بالشيت رقم (1) وتطبع ثم تغير وتطبع وهكذا لأن البانات محفوظة بالفعل بالشيت الأول Inbut data وشيت الأسماء NAME يمكن ذلك بسهولة بتغيير الكود ولكن في مثالنا الأول العامل لديه 29 ساعة ولديه 10X فقط إذا استثنينا الأخيرة فسيكون لديه 9X فقط = 9*3 =27 أي أنه سيكون لديه يومان بهما 4 ساعات وليس 3 إن كان هذا يناسبك سأعدل لك الكود يمكنك معرفة ذلك بنفسك كالتالي قف علي الرقم ثم من قائمة بيانات Data ثم Data Validation ستجد أن الإختيار محصور في نطاق List إسمه Lab_NO وبالبحث عن هذا النطاق Lab_NOعن طريق Ctrl-F3 ستجد أنه = =NAME!$C$2:$C$10 أي أنه المجال =$C$2:$C$10 من الورقة =NAME

السلام عليكم أخي العزيز بالمرفق ستجد الآتي تم عمل التعديلات التالية في الإدخال (1) بدلا من تغيير معادلات كلا من إسم العامل : الإدارة/المنطقة والوردية N/U/ هكذا ،، الآن بمجرد وضع رقم العامل فسيتغير تلقائي كل تلك الحقول الصفراء - جرب تضع S786 لتغيير رقم العامل أو أنظر شييت 2 (2) إضافة قائمة منسدلة للـفترة الخضراء ، وقائمة منسدلة أخري لأرقام العمال ، الخضراء أيضا لتختار منهما (3) بمجرد إختيار الفترة سيتم أوتوماتيك تعديل البيانات الخاصة بالعامل في تلك الفترة (من ورقة Inbut data) ، أي ليس عليك تغيير معادلات كل عامل علي حدي (4) إضافة ماكرو (كود) تلقائي يتم تفعيله بمجرد ماتدخل للشيت (1) ، يعمل فقط علي الشيت (1) مؤقتا يقوم بتقسيم الساعات كما تحب أنتظر رأيك لأن الملف مازال به ترتيبات كثيرة 3.rar

السلام عليكم أخي العزيز الملف يحتاج الكثير من التعديلات العمل عليه بهذا الشكل مرهق وغير طبيعي إصبر قليلا

السلام عليكم تفضل أخي ماطلبت بالمرفق تطابق النقديه.rar

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

السلام عليكم أخي الكريم ماهي القبان

السلام عليكم أخي العزيز بخصوص النقاط (الأسئلة) 1،2،4 رددت عليك في رسالة خاصة النقطة 3 تم ضبط الكود تفضل صافى الكمية آخر تعديل5.rar

السلام عليكم عفو أخي العزيز تأخرت عليك المدي هو كل المدي المستخدم في الورقة الثانية هذا التعبير Cells.SpecialCells(xlCellTypeLastCell يعني الخلية الأخيرة في جميع الخلايا نعم ينجح فقط تحتاج الخروج ثم الدخول للورقة فقط (وليس الملف) يعني تذهب مثلا للورقة الأولي ثم تعود للثانية لأن الكود يتم تفعيله أوتوماتيكيا عند تنشيط الورقة الثانية Private Sub Worksheet_Activate

السلام عليكم ابا أياد الأخ الحبيب ألف الف مليون مبرووك أكيدأنك تستحق ذلك وأكثر بجدارة إن شاء الله