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

السلام عليكم تم التعديل حسب طلبك تفضل المرفق بحث.rar

السلام عليكم تقصد قائمة في خلية معينة تختار منها ماتريد بامكانك عمل ذلك اعمل سلكت على الخلايا التي تريد القائمة فيها ثم اذهب الى بيانات ثم اختار التحقق من الصحة سترى قائمة معنونة بالسماح اختار منها قائمة ثم تكتب في المصدر متزوج;اعزب;ارمل ثم موافق ستحصل في الخلايا المحددة زر لاظهار القائمة او تكتب ما تريده على خلايا ثلات في الملف مثلا aa1:aa3 وبدلا من كتابتها في المصدر حدد الثلاث الخلايا من الورقة هذا اذا كنت هذا ما قصدتهاما اذا كان شي اخر ودمتم في حفظ الله

السلام عليكم اين ساجدها؟؟ واين تريدني اكتبها؟؟ هل تقصد في نفس البرنامج الاصدار الجديد

السلام عليكم جمعة مباركة اخي الحبيب نموذج البحث الذي تستخدمه هو احد اعمالي السابقة وقد صممته بمساعدة معادلات تقوم بالبحث (وذلك على حسب معلوماتي حينها) ولما رايته حالياوجدت انه يحتاج الى تعديلات كثيرة. اعطني فرصة حتى اراجع الملف وارى اين سادخل التعديل الذي تريده بدون اي خربطة والتي بدورها ستعطل جزئية من عمل الكود . اخوك خبور خير

السلام عليكم الاخ الحبيب/ محمدي ----حفظه الله اكرمك الله واثابك بمثل ما دعوت لي اضعاف مضاعفة تقبل تحياتي وشكري ======================= الاخ الحبيب/ ابو اسامة العينبوسي----حفظه الله سرني مرورك اكرمك الله تقبل تحياتي وشكري ======================= الاخ الفاضل/ yahia----حفظه الله في المرفق ستجد ما تريد تقبل تحياتي وشكري ======================= الاخ الفاضل/ عادل----حفظه الله وانت بالف خير تقبل تحياتي وشكري ======================= الاخ الفاضل/ safwat----حفظه الله في المرفق ستجد ما تريد ======================= الاخ الفاضل/ قصي----حفظه الله الله يكرمك اخي الصفحة الرئيسية هي موجودة في فايل معين وبرفقتها ملفات اكسل معينة( هما دول الملفات التي يتم فيها البحث) ======================================== الاخ الفاضل/ engineer.salah----حفظه الله سرني مرورك اكرمك الله تقبل تحياتي وشكري ======================================== في الصفحة الرئيسية اضفنا جدول يتم من خلاله التحكم في اعدادات البحث الملفات والاوراق ونطاق البحث تفضلوا المرفق بحث بفورم في عدة ملفات.rar

السلام عليكم اكيد انني ادخلت الملل في قلوبكم من فورمات البحث هذه ولكن للضرورة احكام ولكل شخص رغبة معينة في تنفيذ شي معين ولعل هذا التعدد في الملفات يفي بجوانب كثيرة في البحث موضوعنا هذا اليوم طبعا فورم للبحث ولكنه يبحث ليس في ملف واحد فقط وانما يبحث في مجموعة ملفات ( تكون في ملف واحد مع الملف الرئيسي) وايضا يقوم بفتح اي ملف مغلق من هذه الملفات تلقائيا عند دخولك فورم البحث مباشرة وايضا نتيجة هذا الكم من مجموعة البحث عملت زر( للبحث افتراضي) ختى تستطيع ان تكمل كلمة البحث التي تريدها بدون ان يقوم الكود مياشرة بالبحث عند ادخال اي حرف وايضا ابقيت الخاصية السابقة للبحث التلقائي ( اختياري) (وهذا العمل يصلح لاي واحد تكون معه ملف رئيسي ومجموعة ملفات ملحقة يقوم بالبحث فيها) العمل ده طلب الاخ SAFWAT ارجوا ان نكون عملنا جولة كاملة في اغلب نواحي البحث ونرجوا من الله القبول بفضله وكرمه في هذا الشهر الكريم تقبل الله منا ومنكم صالح الاعمال ودمتم في حفظ الله ======================================== ارجوا ملاحظة الملف المعدل في المشاركة رقم 10 التعديل: في الصفحة الرئيسية اضفنا جدول يتم من خلاله التحكم في اعدادات البحث الملفات والاوراق ونطاق البحث ======================================== Class.rar

الاخ الفاضل/ سالم حفظه الله

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

السلام عليكم الفرق يتم ايجادة بين تاريخ اليوم وتاريخ المعادلة استخدم المعادلة التالية للخلايا في العمود b كتنسيق شرطي =AND(ISBLANK(B2);TODAY()-A2>14) مثال.rar

السلام عليكم كود الدالة كان غير موجود في ملفك تفضل المرفق 11.rar

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

السلام عليكم اخي كات اخوك خبور يصاب بملل وكسل من متابعة (عمل توقفت عنه فجاة لاسباب معينة) او انشغلت لسبب من الاسباب في عمل آخر. برنامج خبور الثالث تقريبا شبه جاهز بقيت التعليمات وبعض التشطيبات البسيطة ولكني انشغلت بشي آخر فتركته ثم تابعت العمل بوتيرة اقل من السابق عليك بالدعاء وإنشاء الله سنكمل ما بدأناه

السلام عليكم استخدمنا البحث وحصلنا على الرابط ده إضغط هنا هل هو نفس ماحملته على الروابط بتاعتك

السلام عليكم بارك الله فيك اخي خالد القدس وجزاك الله خيراً ولكن الرابط لا يعمل

السلام عليكم وهذا كود آخر: Private Sub UserForm_Activate() Dim LastRow As Integer, MyCel As Range With ورقة1 LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row For Each MyCel In .Range("B4:B" & LastRow) If Application.WorksheetFunction.CountIf(.Range("B4:B" & MyCel.Row), MyCel.Value) = 1 Then ComboBox1.AddItem MyCel.Value End If Next End With End Sub بقائمة بدون تكرار_2.rar

السلام عليكم تفضل المرفق ربط ليبل بخلية.rar

السلام عليكم الاحبة / قطان - سالم شباني - بوش -mas131 - قصي - محمدي-khhanna - safwat والاخت عبير مصطفى ما تقولونه من دعاء وتشجيع انما يدل هذا على حسن اخلاقكم اكرمكم الله واثابكم امثال دعائكم في شهر القبول والاحسان ========================= الاخ الفاضل yahiaoui هو اساسا الفورمين (الاستيراد - البحث ) سيعملوا معك في اي ملف بدون تغيير اي شي فقط قم باستيرادهم الى ملفك. ولكن اذا كان هناك غموض في جزئية معينة من الكود اخبرني بها لاشرحها لك

السلام عليكم ممكن يبدأ من اي خلية وموقع العمود ليس للورقة وانما للنطاق نفسه يعني لو النطاق مثلا : b7:x1000 لو اردنا العمود رقم (1) في النطاق سيكون b لو اردنا الصف رقم (1) في النطاق سيكون 7 وهكذا

السلام عليكم تم اضافة الشرط المطلوب في الكود Sub Macro1() On Error Resume Next If Application.WorksheetFunction.CountA(Range("B6:E14")) = 0 Then MsgBox "خلايا فارغة": GoTo 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True On Error GoTo 0 1 End Sub test.rar

السلام عليكم اذا المنقطع ينقسم الى نوعين: منقطع لمدة عام منقطع لمدة عامين وذلك حسب ما فهمت من شرحك تفضل المرفق بحث منوع_3.rar

السلام عليكم الاخ الفاضل / khhanna ستجد طلبك في الموضوع: إضغط هنا الاخ الفاضل / cat101 تفضل المرفق بحث منوع_3.rar

السلام عليكم الاخ الفاضل / قصي ستجد طلبك في الموضوع: إضغط هنا مع الشكر للاخ الفاضل سالم شباني