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

أخي الكريم لكي تفهم المشكلة التي تعثرت فيها .. اطلع على نتائج الملف التالي ..بعد تنفيذ الكود قمت بعملية Sort للبيانات بحيث تكون أرقام الموظفين مرتبة ثم الأعمدة CIn ثم COut .. تركت لك بعض الملاحظات لتعرف سبب المشكلة وهي عدم دقة البيانات .. لابد أولاً أن تتعامل مع البيانات ويتم إدخالها بشكل صحيح لكي تحصل على مخرجات صحيحة وهذا هو مربط الفرس كما أخبرتك .. الفكرة في أنني أحاول ضبط البيانات لك بشكل مبدئي لكي تستطيع أن تحصل على ما تريد من تقارير .. من الآخر اضبط بياناتك تحصل على نتائج صحيحة إن شاء الله Check CIn COut.rar

أين الملف المرفق أخي الكريم ...

أخي الكريم محمد .. أنا لم أبتعد عن الطلب بشكل متعمد إلا أنني أحاول أن أيسر لك الأمر ..فأخبرتك أن ورقة العمل Print (على ما أعتقد أنها ورقة عمل مساعدة لك فقط حتى يتسنى لك استخراج التقرير بشكل منضبط) .. عموماً تم التعديل على الخلية C1 وجعلها تقبل بإدخال أرقام الموظفين فقط وهذا أمر يسير حيث تم تغيير المعادلة في العمود الأول في ورقة العمل Print وتغيير تنسيق الخلية C1 في ورقة التقرير .. أما الطلب الثاني هو مربط الفرس وهذا ما تعثرت فيه في مشاركتي السابقة التي أرفقت لك فيها ملف ... حيث أن المشكلة أن هناك موظفين لها ساعة دخول وليس لها ساعة خروج والعكس صحيح .. أي أن البيانات غير منضبطة ومن ثم كيف سيكون المنطق في عملية استخراج البيانات ... وضح الخطوات التي تقوم بها بشكل يدوي لعلنا نفيدك Report t.rar

في الحقيقة الموضوع مبهم بعض الشيء في نقاط معينة ولذلك طلبت منك أن نقوم بالمهمة من البداية لمعرفة النهاية بشكل جيد .. لا أعرف كيف يتم احتساب الوقت Total .. أو على الأحرى لا توجد البيانات بشكل صحيح للعمل بشكل صحيح .. سأرفق لك الملف الذي عملت عليه (قمت بتغيير التنسيق في الملف بعض الشيء لكي أستطيع العمل عليه ..) ستجد أنني أقوم باستخراج الساعة والتاريخ في أعمدة منفصلة بدلاً من استخدام المعادلات .. وهذا ضروري لأن علمية الفلترة للبيانات ستتم على أساس عمود التاريخ المستخرج .. يبدو لي أنك لا تريد هذه الخطوة .. يمكن الاستغناء عنها والإبقاء على البيانات في الملف الأصلي !! المهم أنني قمت بعملية فلترة للبيانات على أساس التاريخ في الخلية C1 ومن ثم نقل البيانات إلى ورقة التقرير Report .. والعمل تم على عمود الاسم والرقم والعمودين C/In و C/Out فقط أما بقية الأعمدة فلا أعلم كيف سيتم الأمر بشكل كامل ؟ خصوصاً أن البيانات غير مرتبة بشكل كامل أقصد أن هناك في كثير من الأحيان C/In أي دخول لموظف ولا يوجد له C/Out أي خروج .. فكيف يتم التعامل مع الأمر؟ أعلم أنني ربما أبتعد عن طلبك الأصلي ولكن لابد من إتمام عملية الاستخراج للبيانات بشكل صحيح لكي تحصل على نتائج صحيحة تقبل تحياتي Finger Report Using Filter Method YasserKhalil V1.rar

اضغط Alt + F8 سيظهر لك اسم الماكرو Test قم بتحديده ثم انقر الأمر Run >>>

أخي الكريم محمد المحمودي .. حاول تساعدني أكتر بإنك تشرح شكل المخرجات .. المخرجات هتكون في ورقة العمل المسماة Report العمود Name والعمود No موجودين في الورقة الأساسية ، والعمود C/In و C/Out موجودين في العمود E في الورقة الأساسية ماذا عن العمود Total W/H كيف يتم احتسابه أي المعادلة المستخدمة في الحساب بشكل يدوي وإحنا إن شاء الله نترجمها لك للغة الإكسيل .. آخر عمود مسمى Reg و يليه عمود بدون عنوان ؟؟!! ما المتوقع في هذين العموين؟! سؤال : هل عمود D في الورقة الأساسية فارغ أم به بيانات؟ يفضل أن يكون المرفق معبر عن الملف الأصلي بشكل كبير سؤال آخر : العمودين الساعة والتاريخ في الورقة الأساسية ..هل تريد استخراجهما بشكل تلقائي أم أنها مدخلات يدوية؟؟

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

أخي الكريم محمد هلا أرفقت بعض النتائج المتوقعة كمثال لتتضح الصورة أكثر .. هل عملية الفلترة للبيانات تتم على أساس التاريخ فقط ؟؟ وهل التاريخ مرجعه للعمود G في ورقة العمل المسماة All (لأن التنسيق تنسيق تاريخ ووقت معاً فهل التاريخ المدرج في الخلية C1 في ورقة العمل Sheet1 سيكون ينفس التنسيق أم أن التنسيق سيكون مختلف؟) أعتقد أنه يجب إرفاق مثال مع وضع بعض النتائج ليسهل الوصول لحل كما ترغب إن شاء الله تقبل تحياتي

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

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

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

أخي الكريم يرجى فيما بعد إرفاق الملفات بدون كلمات سر .. قمت بتحميل الملف والإطلاع عليه ولم أفهم المطلوب ..فهلا فصلت الأمر بلغة الإكسيل .. العمل في ورقة العمل المسماة كذا في النطاق كذا ... والمطلوب أن تكون المخرجات بهذا الشكل ...!! في الخلية D9 في ورقة العمل المسماة "المخزن" يوجد معادلة =IFERROR(VLOOKUP($C9,'تكويد الاصناف'!$C$9:$G$57,2,0),"") غير الرقم 57 إلى رقم آخر صف في الورقة "تكويد الأصناف" وليكن 1000 مثلاً .. ثم قم بسحب المعادلة

وجزيت خيراً أخي العزيز محمد عبد السلام بمثل ما دعوت لي الحمد لله أن تم المطلوب على خير

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

هلا أرفقت بعض النتائج المتوقعة أخي الفاضل

مشكور على مرورك العطر أخي الكريم جلال ..

قم باستخدام الفاصلة العادية وليس الفاصلة المنقوطة ... أو جرب التعديل التالي في الكود الأصلي Sub Get_VBA_Formula() Dim VBA_Formula As String Dim msg As String Dim I As Integer Dim N As String Dim x As String VBA_Formula = ActiveCell.FormulaR1C1Local If IsEmpty(ActiveCell) Then MsgBox "The Active Cell Is Empty", vbExclamation: Exit Sub For I = 1 To Len(VBA_Formula) N = Mid(VBA_Formula, I, 1) If N = """" Then x = x & """""" Else x = x & N End If Next I VBA_Formula = """" & Replace(x$, ";", ",") & """" msg = "Cell Formula To VBA Conversion" & vbCrLf & vbCrLf & ActiveCell.Formula Application.SendKeys ("^c") VBA_Formula = InputBox(msg, "Get VBA Formula", VBA_Formula) End Sub

ممكن ترفق الملف للإطلاع عليه ..

أخي الكريم يرجى طرح موضوع جديد بمشكلتك مع إرفاق ملف للإطلاع عليه تقبل تحياتي

رائع بل أكثر من رائع أخي وحبيبي ومعلمي أبو تامر ... لقد أنجزت عملاً في منتهى الجمال والإبداع .. ننتظر تجارب الأخوة ليدلي كل منا بدلوه حتى يخرج العمل في أبهى صوره إن شاء المولى كرأي شخصي أفضل أن تكون عملية التفقيط ليس بها الكلمات "فقط وقدره" و "لا غير" .. وأن يكون للمستخدم حرية استخدامها من خلال بارامتر يحمل القيمة 1 أو 0 (1 في حالة أن أراد هذه الكلمات و 0 في حالة عدم الرغبة وهذا الخيار الافتراضي على سبيل المثال)

أخي الكريم الدبعي إليك الطلبين الأول والثاني وسأترك الثالث للأخوة حيث أن الوقت لدي غير متاح الآن لإتمام المهمة بشكل كامل Test This File.rar

كنت من فترة كبيرة أعددت ملف بهذا الأمر .. وبصراحة ليس لدي التفاصيل الكاملة عن الموضوع .. ووجدت جدول به تفاصيل البدل نقدي مع أحد الزملاء فقمت بإدراج الجدول في ورقة أسميتها Report ومن خلالها يمكن البحث عن القيمة باختيار عدد التذاكر ونوع التذكرة في ورقة العمل Naqdy أرجو أن يكون الملف مفيد لكم ويكون نقطة إنطلاقة لهذا الموضوع الذي يهم شريحة كبيرة من الموظفين تقبلوا تحياتي Naqdy.rar

سبحان الله الخطأ لم ألحظه إلا بعد تحميل الملف .. الخطأ بسيط جداً لكنه قاتل .. ضع بعد حرف الديسك D نقطتين بهذا الشكل : ليصبح المسار بهذا الشكل backupFolder = "D:\فاتورة\" انتهت المشكلة بإذن الله

ربنا يبارك فيك ويكرمك أخي العزيز زياد كله بفضل الله وحده .. وما أنا وإخواني في المنتدى إلا سبب جعله الله لكم لك لييسر أموركم .. يسر الله أمورنا جميعاً ووفقنا لما يحب ويرضى

يمكنك ضغط الملف ورفعه على موقع رفع خارجي وإدراج الرابط في مشاركة أخي الكريم أبو عبد الرحمن أين الملف المرفق في المشاركة الأولى؟!