ابو حمادة

الف شكر استاذ KHMB هذا هو المطلوب لك مني تحياتى

السلام عليكم ورحمة الله تعالي وبركاته الاخوة الاعضاء الكرام جزاكم الله خيرا اريد اضافة بعض الكلمات بداخل ComboBox1 مثال السبت الاحد الاثنين واريد عند اختيار السبت يظهر فورم السبت عند اختيار الاحد يظهر يوزر فورم اخر وهكذا وجزاكم الله خيرا ComboBox1.rar

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

السلام عليكم ورحمة الله تعالي وبركاته الاخوة الاعضاء الكرام عندي استفسار بسيط اتمنى حد يساعدني علي فهمه هذا الكود علما ان الكود يعمل جيدا وبشكر الاخ الفاضل ابو عيد علي مجهوده في هذا الكود الكود On Error GoTo 88 If Application.WorksheetFunction.VLookup(ComboBox1.Value, users.Range("a2:l50"), 2, 0) = TextBox1.Text Then 'Me.Hide Form1.Show Else 88 Label7 = Label7 + 1 MsgBox " áÞÏ ÇÓÊÎÏãÊ " & Label7 & " ãÍÇæáÉ ãä ÇÕá 5 ãÍÇæáÇÊ", vbCritical, "elmalak_elhazen_yasser@yahoo.com" If Label7 = 5 Then MsgBox "áÞÏ ÇÓÊäÝÐÊ ÌãíÚ ÇáãÍÇæáÇÊ" ActiveWorkbook.save ActiveWorkbook.Close End If End If اريد فقط كيف يتم تغيير العمود a2 واستبداله بالعمود cb2 علما ان اسم المستخدم سوف يوضع في الخليه cb2 والباس ورد في الخليه cA2 اتمني كيفيه تعديل الكود لفهم هذا الكود وجزاكم الله خيرا

يريت افهم هو ليه محدش بقا بيرد عليا ؟ ويساعدني

السلام عليكم هو مافيش حد بيرد عليا ليه ياتري ؟؟؟؟؟؟؟؟؟؟؟

مافيش حد رد عليا خالص ليه كدا ياتري مافيش حد قرا كلامي ولا اتخنقتو مني ههههههههههه

تسلم استاذ ياسر انا استبدلت الكود بالفعل ونفذ المطلوب ولكن ظهر مشكله اخرى وهي يوجد دوال لاستدعاء التوقيعات في السطرين المخصصين للتوقيع عند استخدام الكود يتم مسح التوقيعات وترك الصفوف فارغه انا ارفقت ملف اتمني اكون موضح فيه للتجربه كما موجود في الشيت الاصلي عندي ولك مني تحياتي انت والاستاذ ابو عيد وكل اعضاء المنتدي جعله الله في ميزان حسناتكم جميعا تخفيف حجم الملف4.rar

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

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

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

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

شكرا اخي الكريم استاذ ياسر الورقه غير محميه والاوفيس 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 صف بهم بيانات اريد يتبقي صف واحد فقط به بيانات ولك مني تحياتي