ياسر خليل أبو البراء قام بنشر نوفمبر 28, 2015 قام بنشر نوفمبر 28, 2015 أخي الكريم أبو احمد بداية يرجى تغيير اللقب 172426 إلى لقبك لنتعارف عليك بالنسبة للحلول التي قدمت ، قدمت على أساس مرفق .. للأسف وأكرر للأسف يحدث هذا الخطأ مع كثير من الأعضاء (راجع التوجيهات) ..أن يرفق ملف غير معبر عن الملف الأصلي يراعى مستقبلاً أن يكون الملف المرفق معبر عن الملف الأصلي تماماً حتى تتضح الصورة للجميع وحتى يكون العمل أسرع وأدق لا تنزعج من نصحي ..فما أردت لك ولغيرك إلا المصلحة الآن يعتبر الموضوع مختلف لأن المرفق سيكون مختلف عن سابقه .. لذا (وإن كنت أفضل طرح موضوع جديد) لذا ارفق ملفك الجديد المعبر عن الملف الأصلي .. وأكرر لا تنزعج من نصحي فوالله لا أريد إلا المصلحة والمنفعة للجميع ويرجى الإطلاع على رابط التوجيهات في الموضوعات المثبتة في صدر المنتدى تقبل تحياتي 1
ابو حمادة قام بنشر نوفمبر 29, 2015 الكاتب قام بنشر نوفمبر 29, 2015 هو الموضوع دا صعب ومش ينفع يريت اعرف الاستاذ ابو عيد والاستاذ ياسر يريت حد يعرفني لو مش ممكن تنفيذ المطلوب اعرف
ياسر خليل أبو البراء قام بنشر نوفمبر 29, 2015 قام بنشر نوفمبر 29, 2015 أخي الكريم أبو احمد إن شاء الله كل شيء بالصبر بيتم بعون الله فقط لو الموضوع شايف إنه هيكون مختلف اطرح موضوع جديد واشرح فيه بالتفصيل المطلوب وإخوانك لن يقصروا معك 1
ابو حمادة قام بنشر نوفمبر 29, 2015 الكاتب قام بنشر نوفمبر 29, 2015 هو نفس الموضوع اخي الفاضل ياسر نفس الكود ال حضرتك ساهمت انت والاخ ابو عيد في حله صدقتني مشكله وهي عندي الشيت به اكثر من صفحه يعني كل 29 صف يوجد بعده 3 صفوف لتوقيع المختصين بهم اسماء المختصين ومكان للتوقيع علي المستند الكود الموجود عند استخدامه بيتم مسح التوقيعات كلها من الورقه المطلوب تعديل الكود بحيث يتم نسخ الدوال كلها لعدد صفوف ثم ترك 3 صفوف للتوقيع ثم تكملة النسخ في 29 صف ثم ترك 3 صفوف للتوقيع وهكذا ولكم مني تحياتي
ياسر خليل أبو البراء قام بنشر نوفمبر 29, 2015 قام بنشر نوفمبر 29, 2015 إذاً ارفق ملف معبر عن الملف الأصلي للإطلاع عليه ومحاولة التعديل وإن كنت أرى أن هذا سيعقد الأمور ..بعض الشيء ولكن دع إخوانك يحاولوا على ملف مرفق لكي تصل إلى حل دقيق وسريع 2
ابو حمادة قام بنشر نوفمبر 29, 2015 الكاتب قام بنشر نوفمبر 29, 2015 هذا ملف يوضح المطلوب مع الكود تخفيف حجم الملف4.rar
أبوعيد قام بنشر نوفمبر 30, 2015 قام بنشر نوفمبر 30, 2015 السلام عليكم هنا الكود يعطيك 3أسطر فارغة بين البيانات فإذا حبيت أن يكون الأسطر الفارغة هي 4بدلا من 3 فاذهب إلى السطر Range("A32:G34").Offset(32 * t, 0).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove وغير الرقم 34 إلى 35 تفضل المرفق تخفيف حجم الملف5.rar 1
ابو حمادة قام بنشر نوفمبر 30, 2015 الكاتب قام بنشر نوفمبر 30, 2015 بجد انا عاجز عن الشكر استاذ ابو عيد وليا رجاء محتاج شرح للكود من البداية للنهاية لو تكرمت عايز اطبقه علي الشيت الرئيسية واجربه اتمني شرح الكود من البداية ابلي النهايه بحيث افهم واعدل الكود ليناسب الشيت الاساسي ولك مني الف تحيه
ابو حمادة قام بنشر نوفمبر 30, 2015 الكاتب قام بنشر نوفمبر 30, 2015 مثال انا عندي شيت اول سطر يوجد به الدوال صف رقم 16 اول عمود العمود a الي BY الخليه الموجود بها عدد الاسماء هي CD5 عند وضع الكود ظهر اخطاء بالكود اتمني شرحه الكود بالتفصيل لكي اتمكن من استخدام الكود علي الشيت الرئيسية ولك مني الف تحيه
أبوعيد قام بنشر ديسمبر 1, 2015 قام بنشر ديسمبر 1, 2015 (معدل) التعديلات كما يأتي 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 انسخ الكود كما هو وجرب النتيجة تحياتي تم تعديل ديسمبر 1, 2015 بواسطه أبوعيد 1
ابو حمادة قام بنشر ديسمبر 1, 2015 الكاتب قام بنشر ديسمبر 1, 2015 (معدل) شكرا ليك استاذ ابو عيد لاهتمامك ولكن اريد شرح للكود لكي اتعلم من اساتذتي لانه يوجد صفحات مختلفه عن الاخري من حيث عدد الصفوف وعدد الاعمده وعدد خانات التوقيع وخلافه اتمني الشرح لكي اقدر اطبقه علي جميع الشيتات عندي ولك جزيل الشكر والاحترام ملحوظة عند نسخ الكود ظهر مشكله في هذا الامر بأن هناك خطأ Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault تم تعديل ديسمبر 1, 2015 بواسطه ابو احمد 17475
ابو حمادة قام بنشر ديسمبر 2, 2015 الكاتب قام بنشر ديسمبر 2, 2015 استاذ ياسر والاستاذ ابو عيد سبتونى ليه مش عارف احل المشكله في الملف ارجو الاهتمام من فضلكم لو تكرمتم عند تعديل الكود علي الشيت يظهر خطأ في هذا السطر Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault
ياسر خليل أبو البراء قام بنشر ديسمبر 2, 2015 قام بنشر ديسمبر 2, 2015 هل ورقة العمل محمية ؟؟؟ وما هو إصدار الأوفيس الذي تعمل عليه؟ يرجى رفع النسخة من الملف التي بها المشكلة 1
ابو حمادة قام بنشر ديسمبر 2, 2015 الكاتب قام بنشر ديسمبر 2, 2015 شكرا اخي الكريم استاذ ياسر الورقه غير محميه والاوفيس 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 عند تطبيق الكود هذا السطر يظهر مظلل باللون الاصفر ارجو شرح الكود بالتفصيل ان امكن من حضرتك وايضا ما هي التوقعات التي تسبب هذا الخطأ ملحوظه عند تطبيق هذا الكود علي صفحه فارغه لم يظهر اي خطأ ولك جزيل الشكر والاحترام
ياسر خليل أبو البراء قام بنشر ديسمبر 2, 2015 قام بنشر ديسمبر 2, 2015 يمكنك تخفيف حجم الملف الأصلي من البيانات والاكتفاء بجزء من البيانات لتتضح الصورة إذ أن العمل بهذا الشكل سيكون مضني والاحتمالات لن تتوقف عند حد معين من المحتمل أن يكون هناك خلايا مدمجة تسبب لك المشاكل مجرد تخمين
ابو حمادة قام بنشر ديسمبر 2, 2015 الكاتب قام بنشر ديسمبر 2, 2015 عموما انا احاول بكرا احزف بعض الصفحات من الملف الاصلي لكي اخفف الحجم لكي اتمكن من ارساله ولكن لو ممكن شرح الكود بالتفصيل ربما اقدر اتخطي هذه المشكله اذا فاهمت عمل الكود ولك مني الف تحيه
ياسر خليل أبو البراء قام بنشر ديسمبر 2, 2015 قام بنشر ديسمبر 2, 2015 أخي الكريم أبو أحمد لم تجب على سؤالي ..هل الملف الأصلي ..الورقة التي بها الكود فيها خلايا مدمجة أم لا ..لأن غالباً المشاكل ما تحدث في وجود الخلايا المدمجة بالنسبة للكود طالما أنه يعمل على ملف إن شاء الله يعمل على ملف آخر إذا كان له نفس المواصفات من حيث ترتيب الصفوف والأعمدة والبيانات 1
ابو حمادة قام بنشر ديسمبر 3, 2015 الكاتب قام بنشر ديسمبر 3, 2015 السلام عليكم استاذ ياسر اسف لعدم الرد امبارح بسبب انقطاع الكهرباء بالنسبة لسؤال حضرتك عن وجود خلايا مدمجه يوجد بعض الخلايا المدمجة ولكن في صفوف التوقيع اسفل كل ورقه فقط وباقي الاسطر التي يوجد بها دوال لا يوجد بها اي خلاية مدمجه او محميه 1
ابو حمادة قام بنشر ديسمبر 3, 2015 الكاتب قام بنشر ديسمبر 3, 2015 (معدل) السلام عليكم ورحمة الله وبركاته استاذ ياسر والاستاذ ابو عيد تحية ليكم جميعا ولاعضاء المنتدي الكرام انا توصلت لسبب المشكله وهي ان الصفوف التي يوجد بها توقيعات يوجد بها بعض الخلايه المدمجه ولذلك يتم اظهار خطأ عند تطبيق الكود فهل من الممكن تعديل الكود بحيث يعمل علي ترك الخلايه المدمجة كما هي في الصفوف الموجود بها توقيعات المختصين وايضا نسخ الدوال بدون نسخ التنسيقات حيث انني عامل تنسيقات لكل صف له لون مختلف او هناك وسيله اخرى لوضع توقيعات المختصين عن طريق معادله داخل تذييل الصفحة تم تعديل ديسمبر 3, 2015 بواسطه ابو احمد 17475
ياسر خليل أبو البراء قام بنشر ديسمبر 3, 2015 قام بنشر ديسمبر 3, 2015 أخي الكريم أبو أحمد الحمد لله أنك توصلت لسبب المشكلة (بس متنساش إني توقعت وجود خلايا مدمجة من غير ما أشوف الملف ) بص بالنسبة للخلايا المدمجة الغيها لأنها لا تتوافق مع الأكواد ..حاول تضبط التنسيقات من غير ما تدمج الخلايا .. يعني مثلاً لو عندي نص طويل في الخلية A1 وليكن النص "الحمد لله الذي بنعمته تتم الصالحات" والخلية غير كافية .. ومش هينفع إني أوسع عرض العمود يبقا أول شيء بييجي في دماغك الدمج إنك تدمج الخلايا A1 و B1 و C1 و D1 عشان النص يظهر في الأربعة خلايا من A1:D1 أقولك اوعى تدمج .. وخليك مركز معايا ممكن تعمل ايه حدد الأربعة خلايا ... كليك يمين على الخلايا المحددة واختر الأمر تنسيق خلايا Format Cells >> ادخل على التبويب المسمى ALignment حلو الكلام ؟؟ قول حلو في أول قايمة منسدلة في النافذة اختر الأمر Center Across Selection واضغط أوك وبس خلاص ..سيتم المطلوب بدون دمج بالمناسبة يا ريت تغير اللقب اللي كله أرقام للقب الخاص بك بلاش 1427452 بتضايقني شوية تقبل تحياتي 1
ابو حمادة قام بنشر ديسمبر 3, 2015 الكاتب قام بنشر ديسمبر 3, 2015 شكرا ليك استاذي الفاضل وانا غيرت الاسم كما طلبت مني وبالفعل كانت المشكله في دمج الخلايا كما قلت انت سابقا ماشاء الله عليك ربنا يزيدك علم ولكن لي رجاء بخصوص الكود الذي نتحدث عنه اريد امران الاول ان يكون نسخ الدوال بدون اي تنسيقات بمعني انا عندي الشيت عامل به تنسيقات مثالث صف رقم 14 مظلل باللون البنفسج والصف الذي يليه باللون الابيض وهكذا صف مظلل بلون بنفسج والصف التالي بلون ابيض عند استخدام الكود تم تظليل كل الصفوف بنفس لون الصف الاول الذي به الدوال الامر الثاني لو امكن هل من الممكن جعل التنسيقات بداخل الكود بمعني ان يتم تنسيق الصفوف بنفس الطريقه التي ذكرتها وعند اخر اسم يتم الغاء جميع التنسيقات من باقي الورقه انا بحاول ابعت ملف بنفس تنسيقات الملف عندي وارفقه باذن الله واتمني لو عندك ما هو افضل من هذا تتفضل بتعديل الملف كما تراه مناسب
ياسر خليل أبو البراء قام بنشر ديسمبر 3, 2015 قام بنشر ديسمبر 3, 2015 أخي الكريم أبو حمادة بالنسبة لنسخ المعادلة دون التنسيقات استبدال السطر التالي Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault بهذا السطر Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillValues 1
ابو حمادة قام بنشر ديسمبر 5, 2015 الكاتب قام بنشر ديسمبر 5, 2015 تسلم استاذ ياسر انا استبدلت الكود بالفعل ونفذ المطلوب ولكن ظهر مشكله اخرى وهي يوجد دوال لاستدعاء التوقيعات في السطرين المخصصين للتوقيع عند استخدام الكود يتم مسح التوقيعات وترك الصفوف فارغه انا ارفقت ملف اتمني اكون موضح فيه للتجربه كما موجود في الشيت الاصلي عندي ولك مني تحياتي انت والاستاذ ابو عيد وكل اعضاء المنتدي جعله الله في ميزان حسناتكم جميعا تخفيف حجم الملف4.rar
ابو حمادة قام بنشر ديسمبر 7, 2015 الكاتب قام بنشر ديسمبر 7, 2015 مافيش حد رد عليا خالص ليه كدا ياتري مافيش حد قرا كلامي ولا اتخنقتو مني ههههههههههه
ابو حمادة قام بنشر ديسمبر 7, 2015 الكاتب قام بنشر ديسمبر 7, 2015 السلام عليكم هو مافيش حد بيرد عليا ليه ياتري ؟؟؟؟؟؟؟؟؟؟؟
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.