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

أي رسايل تريد شرحها لا أرى أية رسائل ... أرى أسطر باللون الأصفر مما يدل على وجود خطأ في هذا السطر لديك ، والخطأ سببه في الغالب نسخة الأوفيس 2003 ، ولا تسألني عن كيفية حلها لأنه ليس لدي نسخة أوفيس 2003 ولن أرجع 13 سنة للوراء ... حاول تواكب التطور فالتطور لن ينتظرك أخي الفاضل

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

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

وعليكم السلام ورحمة الله وبركاته أخي الفاضل ممكن ترفق ملف مع بعض النتائج المتوقعة لمزيد من التوضيح تقبل تحياتي

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

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

لم أفهم سؤالك أخي الكريم ماذا تقصد؟ نعم اسم الإجراء الفرعي يلي كلمة Sub لكني لم أفهم الجزئية الثانية من سؤالك

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

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

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

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

إليك الكود التالي حسب ما فهمت من توضيحك السابق Sub Test() Dim I As Integer, J As Integer Application.ScreenUpdating = False For I = Range("E5") To Range("F5") Range("E5") = I If I <= Range("E5") Then For J = 8 To 32 If Cells(J, 3).Value = "" Then Cells(J, 3).EntireRow.Hidden = True End If Next J ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Rows.Hidden = False End If Next I Application.ScreenUpdating = True End Sub تقبل تحياتي

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

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

لو النت سريع كنت رفعت لك النسخة اللي عندي .. عموماً دا رابط تورنت جربه وإن شاء الله تكون نسخة كويسة من هنا

شرفنا مرورك العطر بالموضوع أختي الكريمة أم روان .. بارك الله فيكي وجزاكي الله كل خير وإن شاء الله نستفيد من خبراتك

هل هناك تنسيق شرطي في ورقة العمل؟ جرب أن تضيف السطر التالي Ws.Rows(sRow + 1 & ":" & lngRow).Clear قبل هذا السطر Ws.Rows(sRow + 1 & ":" & lngRow).Delete

لم أفهم المشكلة الأخيرة يا ريت توضح بالصور ..لأن بالفعل يتم حذف الصفوف بالكامل باستخدام السطر التالي Ws.Rows(sRow + 1 & ":" & lngRow).Delete صراحة بدأت لا أفهم المطلوب بشكل واضح ... وهذا يشتتني بشكل كبير

وجزيت خيراً بمثل ما دعوت لي أخي وحبيبي محي الدين .. الحمد لله الذي بنعمته تتم الصالحات تقبل وافر تقديري واحترامي

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

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

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

أخي الكرم أخونا في الله أسامة السهل الممتنع ..بارك الله فيك وجزيت خيراً على مساهماتك الرائعة والمميزة بالمنتدى

أحبك الله الذي أحببتنا فيه تقبل وافر تقديري واحترامي أخي العزيز وائل

طيب كفكرة قم باستخدام السطر Application.EnableEvents=false قبل بداية الكود .. وبعدين فعله في النهاية .. أعتقد كدا نظرياً ممكن تتحل المشكلة ..