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

وضح بمثال حي أفضل حتى تتضح فكرة طلبك أخي الكريم

قد تكون مشكلة في نسخة الأوفيس أو الويندوز لديك ..

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

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

أخي الفاضل رأيت لك موضوعات كثيرة بالمنتدى ..وإلى الآن لا تعرف كيفية وضع الأكواد (لازم أعاتبك ..!! لأن دا سنة أولى برمجة .. فيه حلقات افتح الباب أنصحك بها) بالنسبة لطلبك أين يوضع الكود اضغط Alt + F11 سيفتح لك محرر الأكواد .. من القائمة Insert أي إدراج قم بإدراج موديول جديد وانسخ الكود والصقه في الموديول وقم بحفظ المصنف بامتداد Xlsm وإليك مرفق موضوع به الكود .. والشكر موصول للأخ خزاني على الكود الرائع ..بارك الله فيك تقبلوا تحياتي Archiver.rar

بالنسبة للأكواد .. أفضل أحيانا من المعادلات ، فكثرة المعادلات بالمصنف تسبب إرهاق بينما كثرة الأكواد لا تسبب أي إرهاق دي وجهة نظر ليس أكثر

AS YOU LIKE

جرب الملف التالي أخي الفاضل Extract Non-Blank Cells.rar

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

جرب التالي .. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 91 Then If Target.Column = 37 Then Sheets("ELS").Cells(Target.Row - 86, "P").Value = Sheets("ELS").Cells(Target.Row - 86, "N").Value Sheets("ELS").Cells(Target.Row - 86, "N").Value = Sheets("ELS").Cells(Target.Row - 86, "L").Value Sheets("ELS").Cells(Target.Row - 86, "L").Value = Sheets("ELS").Cells(Target.Row - 86, "J").Value Sheets("ELS").Cells(Target.Row - 86, "J").Value = Sheets("ELS").Cells(Target.Row - 86, "H").Value Sheets("ELS").Cells(Target.Row - 86, "H").Value = Target.Value End If If Target.Column = 38 Then Sheets("ELS").Cells(Target.Row - 86, "Q").Value = Sheets("ELS").Cells(Target.Row - 86, "O").Value Sheets("ELS").Cells(Target.Row - 86, "O").Value = Sheets("ELS").Cells(Target.Row - 86, "M").Value Sheets("ELS").Cells(Target.Row - 86, "M").Value = Sheets("ELS").Cells(Target.Row - 86, "K").Value Sheets("ELS").Cells(Target.Row - 86, "K").Value = Sheets("ELS").Cells(Target.Row - 86, "I").Value Sheets("ELS").Cells(Target.Row - 86, "I").Value = Target.Value End If If IsEmpty(Target.Value) Then Sheets("ELS").Cells(Target.Row - 86, "H").Resize(, 10).ClearContents End If End Sub وإن كنت لا أرى أن هناك داعي لمثل هذا الأمر .. الزيادة فقط في سطر واحد بمجرد أن تمسح الدرجة يقوم بمسح الصف الخاص بمحتويات هذا الاسم

الترحيل يتم ..ما المشكلة؟ يرجى دائما توضيح أوراق العمل المراد العمل عليها ، وإذا كانت هناك شكلة محددة فلتقم بتوضيحها .......

طيب نقطة نقطة عشان متوهش منك بتقول "اذا مسحت معلومات الدرجة وتاريخها في الورقة ALL INFO هل من طريقة تمسح من الورقة ELS" طيب دا بيحصل .. إذا قمت بمسح الدرجة والتاريخ فإنها تمسح أيضاً من الورقة ELS ؟؟؟

ممكن ترفق الملف الذي تعمل أخي الفاضل حيث لاحطت أن الموضوع بدون ملف مرفق ..

بوركت أبا فارس وجزيت خيراً على تشجيعك تقبل تحياتي

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

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

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

قم بالإطلاع على هذا الموضوع فيه طلب مشابه لطلبك http://www.officena.net/ib/index.php?showtopic=58308&hl=%D9%85%D8%AA%D9%86%D8%A7%D9%82%D8%B5%D8%A9

إليك الملف الخاص بك تحويل.rar

الأخ الحبيب أحمد الرقم 86 يمثل حاصل طرح رقم الصف 92 - رقم الصف 6 لأتحصل على النتيجة الصحيحة ... حيث أن الصفوف غير متطابقة في ورقتي العمل ..أرجو أن تكون قد اتضحت الصورة لديك

أخي الكود يعمل بشكل ممتاز جرب الملف التالي ‫Move Data To Another Sheet Using Worksheet_Change V1.rar

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

جرب الملف التالي أخي الفاضل Insert Picture UDF Function YasserKhalil.rar

السلام عليكم ورحمة الله وبركاته أقدم لكم دالة معرفة UDF تقوم بدمج وجمع النصوص كما تفعل الدالة CONCATENATE ، ولكن مع اختلاف في النتائج ، حيث تتميز الدالة المعرفة بالحفاظ على تنسيق الخلايا التي يتم دمجها معاً. وقد وضحت بالأمثلة في الملف المرفق معظم الحالات للدالة المعرفة ، وكيف أن النتائج تكون مختلفة عن الدالة CONCATENATE ، وأترككم مع الملف المرفق ومع الأمثلة التي توضح الفرق بينهما. للمزيد حول الموضوع يرجى زيارة الرابط التالي رابط الموضوع من هنا

الأخ أبو حنين فيه سلسلة حلقات باسم افتح الباب أكيد شفتها .. دا رابط الحلقة 13 http://www.officena.net/ib/index.php?showtopic=56941#entry374440 فيه شرح بالتفصيل عمل كود للترتيب Sort ... لو قريته أكيد هيفيدك في الموضوع ده تقبلوا تحياتي