ابو حمادة

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

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

تحية وتقدير استاذي الغالي KHMB شكر جدا وجزاك الله خيرا

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

هذا الملف 1 2- وجزاكم الله خيرا

شكرا لكل من ساهم في عمل المطلوب لكم مني كل تحياتى ملحوظه انا رافع اكتر من ملف يحتاج مساعه اتمني لو يمكن مشاهدتهم ومساعدتي في المطلوب كل عام وانتم بخير

جزاك الله خيرا اخى الكريم فعلا هذا هو المطلوب

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

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

السلام عليكم ورحمة الله تعالي وبركاته الاخوة الكرام دا 3 موضوع انشره ولم يرد عليا اي احد ومش عارف هل المواضيع ال بنشرها محدش بيشاهدها ولا هي صعبه جزاكم الله خيرا التاريخ.rar

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

مافيش حل للمشكله دي ولا ايه يريت حد يفدني

اخي العيدروس شكرا لردك ولكن اريد حل هذه المشكله ان لم يكن هناك حل اخر

السلام عليكم ورحمة الله تعالي وبركاته الاخوة الاعزاء الكرام عندي مشكله في فتح ملف الاكسل وهي ببساطه عند فتح ملف الاكسل عن طريق يوزرفورم وبعد ادخال بيانات الدخول وعند ظهور صفحة الاكسل بيتم منع الكتابه والصفحه بتهنج مش عارف السبب اتمني ان يكون هناك حل علما ان المشكله غالبا في هذا الكود Sub Date_Time() With Me 1 DoEvents n = Now .L_Time.Caption = Format(n, "[$-F400]h:mm:ss AM/PM") .L_Year.Caption = Format(n, "yyyy") .L_Day.Caption = Format(n, "dd") .L_DayD.Caption = Format(n, "dddd") .L_Month.Caption = Format(n, "mmmm") T = T + 1 For R = 1 To 10000000: Next R GoTo 1 End With End Sub Private Sub TB_H_Click() With Me If .TB_H.Value = True Then .TB_H.Caption = "ميلادي " VBA.Calendar = vbCalGreg Date_Time Else .TB_H.Caption = "هجري " VBA.Calendar = vbCalHijri Date_Time End If: End With End Sub لان عند الغاء هذا الكود يعمل الملف طبيعي دون مشاكل اتمني يكون هناك حل لهذا الكود بحيث يتناسب مع الملف المرفق ولكم جزيل الشكر والاحترام منع الكتابه.rar

السلام عليكم ورحمة الله تعالي وبركاته الاخوة الاعزاء الكرام عندي مشكله في فتح ملف الاكسل وهي ببساطه عند فتح ملف الاكسل عن طريق فور وبعد ادخال بيانات الدخول وعند ظهور صفحة الاكسل بيتم منع الكتابه والصفحه بتهنج مش عارف السبب اتمني ان يكون هناك حل علما ان المشكله غالبا في هذا الكود Sub Date_Time() With Me 1 DoEvents n = Now .L_Time.Caption = Format(n, "[$-F400]h:mm:ss AM/PM") .L_Year.Caption = Format(n, "yyyy") .L_Day.Caption = Format(n, "dd") .L_DayD.Caption = Format(n, "dddd") .L_Month.Caption = Format(n, "mmmm") T = T + 1 For R = 1 To 10000000: Next R GoTo 1 End With End Sub Private Sub TB_H_Click() With Me If .TB_H.Value = True Then .TB_H.Caption = "ميلادي " VBA.Calendar = vbCalGreg Date_Time Else .TB_H.Caption = "هجري " VBA.Calendar = vbCalHijri Date_Time End If: End With End Sub لان عند الغاء هذا الكود يعمل الملف طبيعي دون مشاكل اتمني يكون هناك حل لهذا الكود بحيث يتناسب مع الملف المرفق ولكم جزيل الشكر والاحترام منع الكتابه.rar منع الكتابه.rar

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

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