ابو حمادة

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

السلام عليكم استاذ ياسر اسف لعدم الرد امبارح بسبب انقطاع الكهرباء بالنسبة لسؤال حضرتك عن وجود خلايا مدمجه يوجد بعض الخلايا المدمجة ولكن في صفوف التوقيع اسفل كل ورقه فقط وباقي الاسطر التي يوجد بها دوال لا يوجد بها اي خلاية مدمجه او محميه

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

شكرا اخي الكريم استاذ ياسر الورقه غير محميه والاوفيس 2007 الملف للاسف حجمه كبير جدا وصعب ارفعه لاني حاولت رفعه لم اتمكن من رفعه حيث انه يوجد به بيانات كثيره جدا والصفحة كالتالي من الصف A1 الي الصف a14 يوجد به عناوين الصفحه وخلافه اما بداية الصف الموجود به الدوال هو A15 الي BY15 والخليه الموجود بها عدد الاسماء هى CD5 والصفحه بها 29 اسم ثم عدد 2 صف للتوقيع ثم يليها باقي الاسماء وكل 29 اسم يتم ترك عدد 2 صف للتوقيع وهكذا Private Sub Worksheet_Activate() Dim x As Long, t As Integer Application.ScreenUpdating = False x = [CD5].Value If x = 0 Or x = 1 Then GoTo 1 Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault Range("A17:BY" & x + 15) = Range("A17:BY" & x + 15).Value Range("A" & x + 16).Resize(70000, 77) = "" GoTo 2 1: Range("A" & 17).Resize(70000, 77) = "" 2: For t = 0 To 10 Range("A45:BY47").Offset(32 * t, 0).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next Application.ScreenUpdating = True End Sub هذا الكود يعمل جيدا ولكنى لا اعلم لماذا عند طبيقه علي الملف يظهر خطأ في هذا السطر Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault عند تطبيق الكود هذا السطر يظهر مظلل باللون الاصفر ارجو شرح الكود بالتفصيل ان امكن من حضرتك وايضا ما هي التوقعات التي تسبب هذا الخطأ ملحوظه عند تطبيق هذا الكود علي صفحه فارغه لم يظهر اي خطأ ولك جزيل الشكر والاحترام

استاذ ياسر والاستاذ ابو عيد سبتونى ليه مش عارف احل المشكله في الملف ارجو الاهتمام من فضلكم لو تكرمتم عند تعديل الكود علي الشيت يظهر خطأ في هذا السطر Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault

شكرا ليك استاذ ابو عيد لاهتمامك ولكن اريد شرح للكود لكي اتعلم من اساتذتي لانه يوجد صفحات مختلفه عن الاخري من حيث عدد الصفوف وعدد الاعمده وعدد خانات التوقيع وخلافه اتمني الشرح لكي اقدر اطبقه علي جميع الشيتات عندي ولك جزيل الشكر والاحترام ملحوظة عند نسخ الكود ظهر مشكله في هذا الامر بأن هناك خطأ Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault

مثال انا عندي شيت اول سطر يوجد به الدوال صف رقم 16 اول عمود العمود a الي BY الخليه الموجود بها عدد الاسماء هي CD5 عند وضع الكود ظهر اخطاء بالكود اتمني شرحه الكود بالتفصيل لكي اتمكن من استخدام الكود علي الشيت الرئيسية ولك مني الف تحيه

بجد انا عاجز عن الشكر استاذ ابو عيد وليا رجاء محتاج شرح للكود من البداية للنهاية لو تكرمت عايز اطبقه علي الشيت الرئيسية واجربه اتمني شرح الكود من البداية ابلي النهايه بحيث افهم واعدل الكود ليناسب الشيت الاساسي ولك مني الف تحيه

هذا ملف يوضح المطلوب مع الكود تخفيف حجم الملف4.rar

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

هو الموضوع دا صعب ومش ينفع يريت اعرف الاستاذ ابو عيد والاستاذ ياسر يريت حد يعرفني لو مش ممكن تنفيذ المطلوب اعرف

شكرا بجد للاستاذ ابو عيد وشكر للاستاذ ياسر بجد الاكواد ممتاذه ولكن يوجد مشكله حصلت وهي انا لدي في الشيت الاصلي ورقة 2 مثلا يوجد بها صفحات اكثر من 4 صفحات بين كل صفحه وصفحه يوجد بيانات التوقيع وخلافه عدد 3 اسطر عند استخدام الكود بيتم جلب البيانات من اول صف ال اخر صف في بيانات الورقة ولا يترك مكان للتوقيع بين الصفحات المطلوب كل نسخ عدد 29 صف يتم ترك 3 صفوف للتوقيع ويبدا نسخ الدوال بعد 3 صفوف فهل هذا ممكن وجزاكم الله خيرا

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

شكرا ليك استاذي الفاضل ياسر الجليل انا فعلا اريد نسخ الدوال لان يوجد دوال مختلفه عن الاخري لتنفيذ بعض الاوامر وبتختلف من عمود الي اخر وحل الاستاذ الفاضل ابو عيد حل جميل ولكن بالفعل هناك مشكله قبلتني عند تغيير القيمة 0 في الخليه او مسحها بيتم مسح الدوال كلها واريد فقط تصحيح الكود بحيث لو تم وضع 0 بالخليه A1 او فارغه لا يتم مسح الدوال وتركها في الصف كما هي وهذا افضل

تسلم ياغالي بس ظهر مشكله اخرى وهي عند كتابة 0 في الخليه A1 تم مسح كل المعادلات وكدا تم فقدان الدوال كلها

تسلم الايادي ياكبير بجد الله ينور عليك اه كدا ومعلش الملف ال ارسلته مؤخرا لم يصلني غير بعد الردود بس يوجد ملحوظة عند كتابة رقم ( 1 ) في الخليه a1 يتبقي عدد 2 صف بهم بيانات اريد يتبقي صف واحد فقط به بيانات ولك مني تحياتي

طلبي هو كود لنسخ الدوال الموجوده بداخل كل عمود ويتم نسخها في عدد الصفوف الموجوده بالخليه A1 ومس اي دوال اخري لتخفيف الملف

استاذي الفاضل طبيعي لو غيرت الرقم الموجود بالخليه يتم تغير البيانات لاني بوضوح عامل التسلسل يبدا من رقم 1 الي الرقم الموجود بالخليه يعني لو غيرنا رقم الخليه 3 مثلا تسلسل الارقام هايكون اخره 3

استاذي الفاضل انا دخلت علي حدث الصفحات ولم اجد اي كود

استاذ ابو عيد شكرا لاهتمامك ولكن الملف لا يوجد به اي كود ولم يحصل عليه اي تعديلات كما هو

حاضر استاذ ابو عيد تخفيف حجم الملف.rar اتمنى يكون الملف وصل

السلام عليكم الموضوع صعب ولا انا طالب المستحيل

استاذ ياسر تحيه طيبة لك ولكل اعضاء المنتدي الموضوع ال انا عايزه غير هذا الموضوع انا اريد نسخ المعادلات التي توجد ف الصف الاول بعدد معين موجود في خليه وهذا الموضوع الذي رايته غير ذلك

السلام عليكم ورحمة الله تعالي وبركاته عندي ملف به بيانات كثيره جدا وحجمه كبير جدا جدا لدرجه انه بياخد وقت طويل اوى عند فتح الملف واريد تخفيف الحجم بتاعه حيث انه به اكثر من 50 الف خليه به دوال مختلفه ارجو فتح الملف المطلوب كود ينسخ ينفذ اي داله مكتوبه في الصف الاول مثلا وينطبقه في باقي الصفوف علي حسب الرقم الموجود في الخليه A1 تخفيف حجم الملف.rar

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