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

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

المقصد أخي العزيز ناصر أن الدالة Offset من الدوال التي تجعل العمليات الحسابية تتحدث بشكل تلقائي ومستمر مما يسبب كثرة استخدامها ثقل في التعامل مع الملف .. هذا والله أعلى وأعلم

أخي العزيز محمد بما أن النطاق المستهدف في عملية التنسيق يبدأ من الخلية L9 >> إذاً يجب أن يكون مرجع الخلية في المعادلة المستخدمة هو L9 .. لتصحيح الوضع في حالتك قم باستبدال الرقم 11 إلى الرقم 9 وكل عام وأنت بخير

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

أخي الكريم ممكن توضيح لسؤالك بملف مرفق ؟ هل تقصد الدالة SUMIF ..دالة الجمع الشرطي؟

أخي الكريم أبو مرمر إليك الملف التالي فيه فكرة لما تطلب ، لعله يفيدك Sort Names By Array Formulas.rar

أقل شيء أن تجيب على اقتراحي أخي العزيز ناصر .. اقترحت عليك لما لا تجرب طرق أخرى!!

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

أخي الكريم المحب لمصر (مش عارف بتحبها على ايه .. بس بيني وبينك هي تتحب أكيد ) امشي معايا خطوة بخطوة وحاول تنفيذ المطلوب بنفسك بص وركز ..متبصش الناحية دي لا الناحية دي ..أيوا تمام أول حاجة افتح الملف الخاص بك (الحمد لله أظنها سهلة الخطوة دي) بعد ما فتحت الملف اضغط Alt + F11 هتلاقي نفسك داخل محرر الأكواد .. تمام روح لشريط القوايم هتلاقي قايمة اسمها Insert يا سلام ولا أسهل انقر عليها واختار منها Module هتلاقي فيه موديول عادي تم إدراجه واسمه Module1 وهتلاقي مؤشر الماوس منور قدامك داخل الموديول في مكان المؤشر هتحط الكود اللي تقدم بيه الأخ سليم (نسخ ولصق) بعد ما تخلص هتلاقي أيقونة على شكل أيقونة الإكسيل انقر عليها عشان ترجع لورقة العمل احفظ الملف هيطلع لك رسالة تختار منها No مش Yes خلي بالك عشان الامتداد هيكون مختلف للملف الجديد هيطلع لك نافذة تنقر على Browse عشان تحدد المكان اللي هيتحفظ فيه الملف حدد المكان اللي يعجبك (اللي هو سطح المكتب عشان دا اللي عاجبني يا ابني) واكتب أي اسم للملف الجديد أو اترك الاسم كما هو (مش هتفرق) أهم شيء الامتداد .. خلي بالك (اختار Excel Macro-Enabled Workbook من قائمة Save As Type وأخيراً اضغط Alt + F8 من لوحة المفاتيح هتظهر لك نافذة وهتلاقي فيها اسم الماكرو salim انقر على Run لتنفيذ الكود

بصراحة ملف غريب وعجيب ... أشعر أن هناك مشكلة بالملف نفسه وليس بالأكواد !!! لأنني جربت أحذف الأكواد وأعطل الماكرو ولم تظهر أية أوراق عمل رغم أنني حذفت كل الأكواد من حدث المصنف !! هل قمت بالتلاعب في XML الخاص بالملف ؟؟؟!! لتتأكد من كلامي قمت بالدخول للملف واحذف الأكواد في حدث المصنف ثم احفظ المصنف وأغلقه وأعد فتحه مرة أخرى (بدون تعطيل للماكرو) ستجد أم المصنف يفتح محرر الأكواد فقط بينما المصنف نفسه لا وجود له بشكل ظاهر ..أحاول دراسة الظاهرة الغريبة !!

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

بصراحة الموضوع محير ولا أجد تفسير لما يحدث .. لما لا تجرب طريقة أخرى غير الفلترة المتقدمة ..؟!

أخي العزيز عبد السلام ربما تكون القيمة الظاهرة غير القيمة الحقيقية للرقم جرب أن تضيف Value2 بهذا الشكل Cells(6,1).Value2 لن نخسر شيئاً بالتجربة تقبل تحياتي

ربما لا يوجد بيانات للجيد أو الممتاز ..ضع بعض البيانات الوهمية وضع بعض التقديرات (جيد / ممتاز) وجرب مرة أخرى

بسم الله ما شاء الله عمل رائع أخي الحبيب عبد السلام أبو العوافي ، ولا يستحق إلا كل تقدير تقبل وافر تقديري واحترامي

تعمل عندي جرب الملف التالي .. كود فلتره 6.rar

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

وعليكم السلام أهلاً بك أخي الكريم حسام في المنتدى ونورت بين إخوانك جرب الكود التالي بفرض أن القيم موجودة في النطاق A1:D10 على سبيل المثال Sub Test() Dim Cel As Range For Each Cel In Range("A1:D10") If Cel.Value = "A" Then Cel.Value = "B" ElseIf Cel.Value = "B" Then Cel.Value = "A" End If Next Cel End Sub تقبل تحياتي

أخي الحبيب عبد السلام ما هو الخطأ في الكود الذي قدمته؟؟!! هلا علمتنا كيفية بناء جمل الـ SQL لأنه ليس لدينا خبرة بها بارك الله فيك وجزاك الله خير الجزاء

جرب الكود مرة أخرى بهذا الشكل مع تغيير طفيف جداً With Sheet1 LR = .Cells(.Rows.Count, "AF").End(xlUp).Row .Range("AD6:BH" & LR).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet2.Range("A1:A2"), CopyToRange:=Sheet2.Range("C9"), Unique:=True End With

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

الغريب أنني وجدت الكود في المرفق الذي أرفقه أخونا بن علية .. فيبدو أنك لم تجرب الملف بشكل جيد يوجد كود طباعة الكل في الملف المرفق والكود باسم PRINT_ALL لتنفيذ الكود اضغط Alt + F8 من لوحة المفاتيح ثم اختر الإجراء الفرعي المسمى PRINT_ALL ثم انقر RUN تقبل تحياتي

جرب الكود التالي Sub Delete_Rows_Using_Filter_Method() Dim Rng As Range Application.ScreenUpdating = False On Error Resume Next With ActiveSheet .AutoFilterMode = False .Range("A1:C" & .Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=3, Criteria1:="" Set Rng = .Range("A2:C" & .Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible) .AutoFilterMode = False Rng.EntireRow.Delete End With Application.ScreenUpdating = True End Sub تقبل تحياتي أخي الكريم عبد السلام بارك الله فيك وجزاك الله كل خير بصراحة أحاول دائماً الابتعاد عن الحلقات التكرارية ، وقد ذكرت من قبل سبب تخوفي من ذلك بفرض أن الملف يتعامل مع مثلاً 10 آلاف صف .. مع هذا الكم الهائل سيكون الكود بطيء جداً جربت الكود الخاص بي وحسبت المدة الزمنية في ملف يحتوي 10 آلاف صف فاستغرق 1.3 ثانية في حين أن استخدام الحلقات التكرارية استغرق حوالي 12 ثانية تقبل تحياتي

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

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