رجب جاويش

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

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

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

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

وهذا التعديل لتحويل كل الحروف الى حروف كبيرة Sub kh_RngProper1() Dim Cel As Range For Each Cel In ActiveSheet.UsedRange Cel.Value = StrConv(CStr(Cel), vbUpperCase) Next End Sub

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

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

أخى الفاضل / أبو عيد تسلم ايديك

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

الكود يعمل على التطابق التام أما التشابه فقط عمليه صعبه

أخى الفاضل كيف يقوم الكود بجلب الحالة OULD BASTAMI AMEUR OULD BESTAMI Ameur ويوجد اختلاف فى كلمة BASTAMI حرف A وفى كلمة BESTAMI حرف E وشرط عمل الكود تطابق تام فى الحروف

السلام عليكم أخى الفاضل جرب المرفق أكبر نسبة.rar

أستاذى الحبيب / عبد الله باقشير بسم الله ما شاء الله كل يوم تأتى بالجديد بارك الله فيك

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

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

أخى الفاضل أرجوك بلاش الأحكام المتسرعة أولا : فأنت لا تعرف ظروف إخوتك فى المنتدى ثانيا : الموضوع يحتاج أحد الإخوة عنده أوفيس 2013 حتى يستطيع الإجابة على طلبك ثالثا : سوف يحتاج منك ملف مرفق يدرس الخطأ عليه إلتمس لأخيك سبعين عذرا

أخى الفاضل جربت الكود وهو يعمل بشكل سليم وقد أضفت إليه إضافة بسيطة Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant LR = Cells(Rows.Count, 1).End(xlUp).Row Set CompareRange = Range("a2:a" & LR) For Each x In Selection For Each y In CompareRange If UCase(x) = UCase(y) Then x.Offset(0, 3) = x Next y Next x End Sub وإن كنت تقصد الجملة الأولى فى العمود الأول OULD BASTAMI AMEUR وفى العمود الثانى OULD BESTAMI Ameur وبالتالى فهى مختلفة فى حرف واحد

أخى الفاضل /elholandy_9 جزاك الله كل خير أخى الفاضل : لك منى دعوة طيبة بغيير اسم الظهور الى اللغة العربية حتى يسهل التواصل بيننا ( طبقا لسياسية المنتدى )

أخى الفاضل / عبد الله جزاك الله كل خير

أختى الفاضلة / إسراء محمد جزاك الله كل خير

أخى الحبيب / :fff: محمد أبو البراء :fff: ألف مليون مبروك الترقية المستحقة وإن شاء الله من تقدم إلى تقدم ومن نجاح الى نجاح والشكر موصول لأستاذى الحبيب / عبد الله باقشير على حسن الإختيار

أخى الفاضل / شوقى ربيع عمل رائع وجميل تسلم ايديك

السلام عليكم أخى الفاضل استبدله بهذا الكود Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant Set CompareRange = Range("a2:a41510") For Each x In Selection For Each y In CompareRange If UCase(x) = UCase(y) Then x.Offset(0, 3) = x Next y Next x End Sub

السلام عليكم هل تقصد هطذا الرقم الوطني.rar

السلام عليكم أخى الفاضل جرب المرفق الوصول الى الصفحة المخفية.rar