عبدالله المجرب

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

السلام عليكم ضع هذا الكود في حدث This Workbook Private Sub Workbook_SheetSelectionchange(ByVal Sh As Object, ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select If Target.MergeCells Then ActiveCell.Offset(0, 1).Select End Sub

بارك الله فيك اخي ابو علي على هذا الابداع

السلام عليكم جرب الملف Labor 9-2012.rar

وعليكم السلام ورحمة الله وبركاته حياك الله

السلام عليكم في الكود الخاص باخي ابو حنين استبدل هذا السطر For i = 11 To LR بهذا For i = 6 To LR

السلام عليكم قمت بعمل دالة معرفة للقيام بما تريد Function MyCont(Compny_Rng As Range, Country_Rng As Range, MyCtry As String) Application.Volatile For i = Country_Rng.Row To Country_Rng.Rows.Count If Cells(i, Country_Rng.Column) = MyCtry Then If Application.CountIf(Range(Cells(i, Compny_Rng.Column), Cells(Country_Rng.Rows.Count, Compny_Rng.Column)), Cells(i, Compny_Rng.Column)) = 1 Then x = x + 1 End If End If Next MyCont = x End Function لديك ثلاثة متغيرات 1. Compny_Rng وهو مدى الشركات 2. Country_Rng مدى اسماء الدول 3. MyCtry الخلية التي بها اسم الدولة المرد معرفة العدد بدون تكرار اسم الشركة اليك المرفق العد بدون تكرار.rar

السلام عليكم المعادلة تعمل لكنها معادلة صفيف في وضع التعديل للمعادلة اضغط Ctrl + Shift + Enter

اليك الملف بعد التعديل http://www.4shared.com/rar/1azrE80P/____.html

شكراً لك اخي ابا الحارث ونسأل الله ان يمن عليكم بالامن والامان والانتصار ودحر هذا الطاغية اللهم آمين

السلام عليكم المعادلة منقولة ولم اقم الا بتعديلها لتناسب هذا الملف (نسخ ولصق) ================ استاذنا الفاضل ابو علي حفظك الله لي سوال يشغلني اتمنى الرد عليه لاحظت في اعمالك مؤخراً انك تستخدم دالة الشرط IF لكن دون شرط مثال For Each cotl In Me.FrameList.Controls If Len(Trim(cotl)) Then وكذلك في هذا الملف في المعادلة استخدمت دالة IF دون شرط =IF(LEN($A5);INDEX(mydate;$A5;COLUMN());"") فهل الشرط ان تساوي صفر لتكون FALSE واي قيمة لتكون TRUE

اضغط الملف قبل ارفاقه

السلام عليكم تفضل المرفق تمديد.rar

ارفق ملف به الكود حتى يتم العمل عليه

تم عمل الملاحظات الست لكن بطريقة سريعة وتمت التجربة مرة واحدة جرب المرفق واعلمني النتيجة متابعة أداء العاملين.rar

بالفعل عمل موفق وفكرة زر الانتر جميلة بارك الله لك وعليك وحواليك يا ابا علي على هذه الاعمال الرائعة

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

السلام عليكم تم إضافة المرفق الى المشاركة لسهولة التحميل ================= عمل موفق وجهد جبار تم الاطلاع على اكواد الملف وارجو بعد إذنك ان تضع كلمة سر المحرر او ان تسمح لي بوضعها او رفعه مفتوح المصدر لان المنتدى هدفه الاول هو التعليم وليس الاحتكار 85

السلام عليكم جرب هذا التعديل Sub ragab() ' كود البحث فى نطاق محدد عن الارقم والتواريخ On Error Resume Next Dim sdate As Date, cl As Range sdate = InputBox("أدخل التاريخ الذى تريد تحديد الخلية المقابلة له") For Each cl In Sheet1.Range("D1:D25") If sdate = cl Then Sheet1.Select: cl.Select: MyArr = MyArr & cl: Exit For Next If MyArr = "" Then MsgBox "لاتوجد نتائج لهذا البحث" End Sub

السلام عليكم اخي ابو انس هل هذا يفيد http://www.officena.net/ib/index.php?showtopic=35318&hl=

تم عمل اللازم ولكن الربط تم بواسطة زر لاضافة سطر جديد وليس الضغط على انتر تم عمل اللازم في زر الترحيل جرب المرفق إظهار صف تكست بوكس جديد عند الضغط على مفتاح Enter.rar

عمل موفق استاذ حاجي بن علية اتقان في تطويع المعادلات سلمت يمينك ابواحمد

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

السلام عليكم هذا حل بنفس دالة الاستاذ بن علية ولكن بتعريف النطاقات Book1 (2).rar

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