عبدالله باقشير

السلام عليكم من قواعد المشاركة اذا كنت تريد استعجال الرد يكفيك كتابة كلمة "للرفع" عموما تم استخدام الكود التالي: Sub Macro1() Dim cel As Range For Each cel In Range("A4:A117,C4:C117").Cells If cel.Value = Date Then cel.Offset(0, 1).Value = Sheets("تجميعي").Range("F25").Value Exit For End If Next End Sub شاهد المرفق 2010 تقرير.rar

السلام عليكم احسنت اخي حماة باشا عمل رائع جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري

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

السلام عليكم مفهوم جزاكم الله خيرا تقبلوا تحياتي وشكري

اضغط الملف باي برنامج ضغط (RAR -ZIP) ثم قم برفعة

السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري

السلام عليكم سؤال خارج عن الموضوع كيف قسمت الملف الى قسمين مضغوطين ؟

السلام عليكم الدالة تعمل بشكل صحيح 100 % الخطأ عندك في ورقة البيانات في عمود التاريخ من الصف 3994 الى الصف 4175 البيانات التي فيها ليست تاريخ انما نص بتنسيق تاريخ وللتاكد من كلامي ضلل عمود التاريخ كامل وغير تنسيق الخلايا الى عام الخلايا التي تحولت الى رقم هي تواريخ اما الباقي والمحددة في الصفوف المذكوره اعلاه ستجدها زي ماهي نص يتنسيق تاريخ ولهذا تتجاوزها الدالة لانها لاتحقق الشرط لهذا يجب عليك تحويلها الى تاريخ حتى تشملها شروط الدالة وحتعمل معاك الدالة تمام التمام تقبل تحياتي

اعتقد ان هذا الملف لن ينفع معاك افرد طلبك في موضوع مستقل عسى ان تحظى بطلبك

السلام عليكم شاهد المرفق 2003 اضافة بيانات بدون تكرار الى قائمة في فورم.rar

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

السلام عليكم الملف المرفق ناقص على ما اعتقد لا يتم فتحه اعد تحميل الملف تحياتي

السلام عليكم يتم النقل في الصف 3 Sub Macro1() Dim C As Integer For C = 19 To 2 Step -1 Cells(3, C).Value = Cells(3, C).Offset(0, -1).Value Next End Sub شاهد المرفق 2003 التنقل عبر الخلايا.rar

انقل ملف البحث الى الملف الذي تتواجد فيه ملفاتك

السلام عليكم تم تعديل العنوان هذه المرة وارجوا الالتزام بقواعد المشاركة وكتابة عنوان يدل على محتوى طلبك قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

السلام عليكم الاخ / زاكي بوشلاغم تم فصل طلبك في موضوع مستقل وتم الرد عليه http://www.officena.net/ib/index.php?showtopic=48882

السلام عليكم شاهد المرفق 2010 توزيع الكتاب لأبناء القطاع سنة اولى.rar

السلام عليكم جزاكم الله خيرا وبارك فيكم تقبلوا تحياتي وشكري

السلام عليكم ممكن هذه =TRIM(MID(A2;SEARCH("/";A2;SEARCH("/";A2)+1)+1;255)) تحياتي

السلام عليكم كانت هناك مشكلة فى قاعدة البيانات و تم حلها بحمد الله ( منقول عن مدير المنتدى حفظه الله ) تحياتي

السلام عليكم تم تطبيق الفورم الذي في الموضوع http://www.officena.net/ib/index.php?showtopic=48811 على ملفك المرفق 2003 اظهار البيانات .rar

السلام عليكم في الاسطر الاولى من الكود غير عدد الفصول الى 32 ' عدد الفصول Private Const MyCountClass As Integer = 32 تحياتي

غير كود زر الحذف بهذا الكود Private Sub ButtonDelete_Click() Dim iBox iBox = Application.InputBox("ادخل كلمة المرور لهذا الاجراء", "تأكيد الحذف بكلمة المرور") If iBox <> "123" Then Exit Sub If Me.ListFind.ListCount Then Me.ListFind.Clear MyRngdate.Rows(iRow + 1).EntireRow.Delete If Not tSr Then GoTo 1 If iRow = ContRow Then GoTo 1 With MyRngSeri .Cells(iRow + 1, 1).Value = iRow Range(.Cells(iRow + 1, 1), .Cells(ContRow, 1)).DataSeries End With 1: Me.ScrollBar1.Max = ContRow - 1 ScrollBar1_Change Call MsgBox(" تم حذف السجل بنجاح ", mBox, "الحمدلله") End Sub تحياتي

السلام عليكم الف مليووووووووووون مبروك والى الامام دوما

اذا كان اسم معرف للخلية التي فيها اسم الورقة فممكن استخدامه لكن اسم لنطاق الاسماء ( اكثر من خلية ) فهذا خطأ يعني لو مثلا الخلية B5 اسمها ( الفصل) فممكن استخدام الكود الذي اورته اعلاه تحياتي