رجب جاويش

أخى الفاضل / أبو عبد الملك بعد افضل تحية يجب أن تنتبه أخى الفاضل لقواعد المنتدى وأهمها وضع عنوان محدد ومناسب لمحتوى السؤال وليس عنوان عام لا يدل على الموضوع حتى لا يعرض ذلك موضوعك للاغلاق من قبل المشرفين

أخى الفاضل / أحمد عبد الناصر جزاك الله كل خير أخى الفاضل على هذه الكلمات الطيبة

أخى الحبيب محمود رفعت الحل دون أن أرى حلك أكيد حل رائع تسلم ايديك

الأخ الفاضل / أحمد عبد الناصر تسلم ايديك ولائراء الموضوع wanted1.rar wanted2.rar

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

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

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

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

الحمد لله أخى الفاضل وجزاك الله كل خير

أخى الحبيب / محمود كله زيادة فى الخير تسلم ايديك

السلام عليكم هل تقصد هكذا Q1.rar

أخى الفاضل / عباس السماوي لا أجد من الكلمات ما يضاهى جمال كلماتك جعل الله لك بمثل دعائك لى وأكثر وجزاك الله كل خير

أخى الفاضل / عباس السماوى ما رأيك بكود يقوم بعمل المطلوب تم حذف دالة vlookup الموجودة فى الصفحة و تنفيذها من داخل الكود وأيضا اظهار رسالة المكرر من خلال الكود هذا الكود يوضع فى حدث الصفحة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = 0 For i = 4 To 37 For ii = 4 To 27 Step 2 Set RG_LIST = Range(Cells(39, ii), Cells(52, ii + 1)) x = Cells(i, ii) If x <> "" Then Cells(i, ii + 1) = Application.VLookup(x, RG_LIST, 2, 0) xx = Cells(i, ii + 1) End If y = Application.WorksheetFunction.CountIf(Range(Cells(i, 5), Cells(i, ii + 1)), xx) If y > 1 Then MsgBox " هذا الرقم مكرر": Cells(i, ii + 1) = "": Cells(i, ii) = "": Exit Sub Next Next Application.ScreenUpdating = 1 End Sub شرط عدم التكرار لايعمل.rar

أخى الفاضل /zoom10 شكرا جزيلا أخى الفاضل وجزاك الله كل خير

أضم صوتى لصوت أخى الحبيب / محمود وأرسل أرق وأجمل تحية لأخى الحبيب / حمادة عمر

أخى الفاضل / أبو إيمان أحسنت أخى الفاضل شرح جميل للكود جزاك الله كل خير ولا يوجد بين الأخوة استئذان فنحن جميعا طلاب فى جامعة مفتوحة هى منتدى أوفيسنا العريق ونحن نكمل بعضنا البعض

أخى الحبيب / محمود تسلم ايديك أخى الحبيب وجزاك الله كل خير

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

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

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

كل الشكر والتحية للمبدع عباد ( أبو نصار )

أخى الفاضل المبدع / عباد فى البداية كانت تظهر المشكلة التى أشار اليها الاخوة الأفاضل ولكن مع تفعيل الثقه بالوصول إلى مشروع Visual Basic تم حل المشكلة ويعمل الكود بشكل صحيح تسلم ايديك

كان الله فى عونك أستاذ محمد على إدارة هذه الجامعة العريقة

أخى الحبيب / محمود أحييك على هذا الرغبة فى البحث دائما عما يحتاجه اخوانك وتوفيره لهم فى أحسن صورة

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