رجب جاويش

تفضل أخى ترقيم تلقائي.rar

تفضل أخى تم تغير الفورم لعله يكون كما تريد وتم استخدام الكود التالى Private Sub TextBox1_Change() Dim cl As Range Set Rng = ورقة1.Range("A2:A43") For Each cl In Rng If cl = Val(TextBox1) Then TextBox2 = cl.Offset(0, 1) TextBox3 = cl.Offset(0, 2) Me.TextBox4 = WorksheetFunction.SumIf([A4:A43], Me.TextBox1, [D4:D43]) TextBox5 = cl.Offset(0, 4) End If Next End Sub بحيث يتم البحث بمجرد كتابة الرقم فى TEXTBOX1 تأمين.rar

تفضل أخى ترقيم تلقائي.rar

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

تفضل أخى ربط 2 كمبوبوكس.rar

جزاك الله كل خير عمل جميل ومميز

أخى الفاضل حسب طلبك اذا تمت الكتابة فى العمود B يظهر الاسم فى القائمة وعند مسح الكتابة من العمود B يختفى الاسم من القائمة اذا لم يكن هذا ما تريد أرجو مزيد من التوضيح وهذا تعديل بسيط ربما يكون ما تريد قائمة منسدلة متناقصة.rar

جزاك الله خيرا أستاذ محمد

تفضل أخى بحث بالتكرار.rar

أخى الفاضل / mr.fathi هذا رقمى 01091485853 وهذه صفحتى على الفيس Ragab Gaweesh

أخى الفاضل جرب المرفق قائمة منسدلة متناقصة.rar

جزاك الله خيرا أخى الفاضل

أخى الفاضل الرقم 109 يعنى استخدام الدالة SUBTOTAL كدالة جمع مع تجاهل القيم المخفية

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

أخى الفاضل استخدم هذه الدالة =SUBTOTAL(109;A3:A8) sum vis.rar

أخى مختار انها عدوى الزهايمر تتخطى حدود المحافظات ههههههههههههه

تم وضع هذا السطر TextBox13.Value = Format(TextBox13.Value, "yyyy/mm/dd") لتنسيق الكتابة فى TextBox13 على هيئة تنسيق تاريخ ونفس الشئ مع TextBox16

أخى ابراهيم على حد معلوماتى كتابة اسم الملف بشكل مباشر بين علامتى تنصيص لا ينتج عنه خطأ وينتج الخطأ عند تمرير اسم الملف من خلال متغير X مثلا ووضع X بين علامتى تنصيص هنا ينتج الخطأ Sub r1() 'كود صحيح Workbooks("1").Activate End Sub Sub r2() 'كود صحيح x = "1" Workbooks(x).Activate End Sub Sub r3() 'كود غير صحيح x = "1" Workbooks("x").Activate End Sub

تفضل أخى الجزء الخاص الطلب الأول مشاكل في الفورمة.rar

السلام عليكم أخى ابراهيم مصدر الخطأ فى هذا الكود فعلا هو هذا السطر If Len(Worksheets(name.Value).name) = 0 Then حيث أن الكود عندما يريد انشاء صفحة جديدة يبحث أولا هل اسم الذى سوف يضعة للصفحة موجود أم لا واذا كان اسم الصفحة غير موجود يعطى الكود الخطأ الذى رقمه 9 ( والذى يعنى خارج النطاق ) ولتخطى الخطأ والذهاب الى السطر التالى تم اضافة السطر التالى فى اول الكود On Error Resume Next وقد قمت بتجربة حل الأستاذ مختار وعمل بشكل سليم ويمكنك أيضا حذف الجزء Workbooks("1").Activate وتكتفى بالجزء التالى للتخلص من الخطأ On Error GoTo 1 1: End Sub وهذا والله أعلم

أخى الفاضل / mr.fathi أعتذر عن التأخير فى الرد عليك لانقطاع النت عندى جزاك الله كل خير على كلماتك الطيبة ورقمى هو 01091485853 أخى الحبيب ياسر جزاك الله كل خير على هذه الكلمات الطيبة تقبل أرق تحياتى وتقديرى

الحمد لله أن تم المطلوب لا شكر على واجب أخى الفاضل

أخى الفاضل / ياسر العربى تسلم ايديك على هذه الاضافة الجميلة

أخى الفاضل جرب المرفق test1.rar

الحمد لله أخى حمادة أن تم المطلوب جزاك الله كل خير على دعائك الطيب