Ahmed1111

الاخ الفاضل بن علية حاجي جزاك الله خيرا ابدعت وخير ما فعلت هذه الطرقة فعاله اعطت المطلوب وكاما انوه للاخوة المطلعين سبب طلب هذا المهمه وهو لدي كشف حركات عملاء يحتوي على300الاف صف وعندما ابحث عن كشف عميل مخصص ذلك اجبر الحلقة التكرارية for r ان تقوم بالحث من الصف رقم 1 الى 300 الاف وهذا يثقل ويسبب بطى في سرعة الاستجابة وقد يخرج ملف الاكسل ويغلق ولكن بهذه الطريق التي تم التعاون مع الاستاذ الاخ الفاضل بن علية حاجي جزه الله خير استطعت ان اجعل حلقة تكررية r تبدا من الصف الذي هو مطابق ومن ثم ينطلق r تلقائي الى الصف التالي والمطابق وبهذا قللت من جهد ومدى الحلقة التكرر هذا ما حبيت ان اطلعكم ولكم جزيل الاحترام

كتب الله اجرك اخي العزيز محاولة ممتازة ولكن لدي الرغبة ان اعملها دون اي عمود مساعد انما هذا الملف عبارة عن عينه (مثل) والهدف منها ابعد من ذلك شكرا جزيلا

اخي ابراهيم هل يمكن فعل هذا المعادلة في كود vba نفس المعادلة match بشرطين

السلام عليكم ورحمة الله الاخوة الاعزاء مبرمجين لغة vba اكسل اتمنى افادتي بهذا الكود حيث ان صيغة الكود اذا تم كتابتها في معادلة عاديه تعمل بشكل ممتاز ولكني اريدها ان تعمل في كود vba البسيط وجزاكم الله خير عند تنفيذ هذا الكود يعطيني err وعند كتابته بشكل معادلة عادية يعمل اريد احد الكودين a او b ان يعمل Sub nn() With Sheets("aass") a = Application.WorksheetFunction.Match(.Range("f2") & .Range("g2"), .Range("a1:a10000") & .Range("b1:b10000"), 0) b = Application.WorksheetFunction.Match(1, ((.Range("a1:a100") = .Range("f2")) *( .Range("b1:b100") = .Range("g2"))), 1) MsgBox a MsgBox a End With End Sub xxzz.xlsm