ياسر خليل أبو البراء

أخي الفاضل عبد المنعم .. طلبت منك من قبل الملف الخاص بالاحتمالات اللي دوخنا فيه الـ 7 دوخات ، ولم تلبي طلبي.. أنت هنا لتأخذ فقط .أم لتأخد وتعطي (وضح موقفك)

أخي الفاضل لطفاً ارفق بإخوانك وارفق ملف كما طلبوا منك بس خلاص

الأخ الحبيب عبد المنعم أليس قولك أن الكود عمل بكفاءة ؟ ما المطلوب الآن ؟؟ طالما أن الأمور سارت بشكل جيد ماذا تنتظر إذاً ؟

أخي بالنسبة لسؤالك عن علامة الـ * ..قم باتسخدام الكود بالشكل التالي : ActiveWorkbook.Worksheets("الخزينة").Columns(3).Find("~*").Select

ماذا تتوقع عندما يكون هناك أكثر من (محمد) أو أكثر من (1000) ...ماذا تريد أن يفعل الإكسيل؟

جرب الملف التالي انتقال الى رفم او تعبير أو علامة.rar

مشكور على مرورك العطر أخي الحبيب جلال ... جزيت خير الجزاء

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

أنا بالفعل بحثت داخل الكود عن شيء يخص الشيت الثاني لم أجد ... وتعجبت من الأمر ..جربت الكود الخاص بي في ملفك وعمل بشكل ممتاز ، لكن الكود الخاص بك عندما نقلته إلى ملفي لتجربته وجدت الأعمدة كلها حذفت وظهرت رسالة خطأ .. بما تفسر ..؟؟ هل من الممكن أن تجرب كودك على ملفي لنرى ماذا سيحدث؟

أخي الحبيب سليم بارك الله فيك وجزاك الله خير الجزاء بصراحة الملف روعة روعة .. جربت الملف ويعمل بشكل ممتاز الحاجة الغريبة اللي هتجنني دلوقتي إني أخذت الكود الخاص بك وجيت أطبقه على ملفي في المشاركة اللي فاتت ، أعطاني رسالة خطأ ، راجعت الكود لم أجد ما يدعو للخطأ .. لاحظت إن فيه شيت تاني عندك فيه نفس البيانات قبل تنفيذ الكود .. قلت أعمل شيت تاني لقيت نفس الخطأ ... هل من إجابة على هذا الخطأ؟

أخي إبراهيم أبو ليلة ولا يهمك كلنا ساعات بييجي وقت ، وتلاقينا خلاص هنجنا ..عموما لما تلاقي نفسك هنجت اضغط F5 أو اعمل كليك يمين Refresh ولو مكانش فيه نتيجة اعمل لنفسك Restart ..ولو مفيش نتيجة يبقا أكيد دا فيروس سببه قلة النوم، ومحتاج تفرمت الهارد الخاص بك ، والفرمتة معناها إنك ترتاح شوية عشان تقدر تواصل ........ تقبل تحياتي أخي وحبيبي في الله إبراهيم

نورت الموضوع ونورت المنتدى يا أبا الأنوار .. ربنا يوعدك بالجنة ويكفيك شر النار ، وفي الآخرة يرضى عنك الجبار.. تقبل تحياتي

أخي عبد المنعم طرحت الموضوع ورحت فين ..مردتش على المشاركة السابقة بإرفاق ملف .. عموما اتفضل جرب الملف المرفق ..لعله يفي بالغرض Compare And Delete Identical Columns.rar

طيب أنا وجدت تنسيقها نص بالفعل ..غيرتها لـ General ثم ضغطت دبل كليك في كذا خلية بدأت تظهر البيانات بس الرقمية فقط وليس البيانات النصية.. البيانات النصية يظهر مكانها صفر

أخي الحبيب عبد الله بولنوار (على فكرة يعني ايه بولنوار دي ؟؟؟) بارك الله فيك ، ومتزعلش إني بقولك بلاش كسل ..أنا بس بناغشك ، كلمة عامية بالمصري (يعني بهزر معاك ) الأخ الحبيب الغالي صاحب الجولات والصولات أبو محمد عباس .. جزيت خيراً على كلماتك الرقيقة والمشجعة لنا دائماً .. وهذا غيض من فيض علمكم بارك الله فيك .. تقبلوا تحياتي

بارك الله فيك أخي الحبيب بن عليه.. إثراءً للحل ..هذا ملف مرفق به حلين ، حل بالمعادلات وحل آخر بدالة UDF Round Special.rar

التغيير في دوال التنسيق فقط .. قم بالإطلاع على المرفق لمعرفة الاختلاف أخي عبد الله (إنت رجل محترف !! اكسب معلومتك بنفسك..بلاش كسل)

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

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

أخي الحبيب خطوات العمل : 1- قم بالذهاب إلى التبويب Developer ثم انقر Design Mode واختر من قائمة Insert على يسار وضع التصميم الجزء الخاص بـ ActiveXControls ثم ارسم CheckBox على ورقة العمل. 2 - لتغيير اسم الـ CheckBox كليك يمين ثم Poperties ثم الخاصية Caption غير الاسم من خلالها. 3- بالنسبة للكود المرتبط بالـ CheckBox اعمل كليك يمين على الـ CheckBox ثم الأمر View Code .. وفي نهاية الأمر لا تنسى الضغط مرة أخرى على Design Mode للخروج من وضع التصميم. * بالنسبة لإضافة الوقت قم بتغيير الكود إلى هذ الشكل لتحصل على التاريخ والوقت معاً في نفس الخلية .. Private Sub CheckBox1_Click() If CheckBox1.Value = True Then CheckBox1.TopLeftCell.Offset(1, 2).Value = Date & " " & Time Else CheckBox1.TopLeftCell.Offset(1, 2).Value = vbNullString End If End Sub أما إذا أردت التاريخ في خلية والوقت في خلية أخرى فجرب الكود التالي: Private Sub CheckBox1_Click() If CheckBox1.Value = True Then CheckBox1.TopLeftCell.Offset(1, 2).Value = Date CheckBox1.TopLeftCell.Offset(1, 3).Value = Time Else CheckBox1.TopLeftCell.Offset(1, 2).Value = vbNullString CheckBox1.TopLeftCell.Offset(1, 3).Value = vbNullString End If End Sub آخر خطوة ودي أهم خطوة .. ! ! ! ! ! ! ! متنساش أخوك بدعوة بظهر الغيب

إذاً فلتكن بهذا الشكل : =IF(D3="","",SUM(INDEX($A$2:$C$2,1,D3),SUMPRODUCT(($D$3:$D3=D3)*(E$3:E3))))

إخواني الكرام وهذا إصدار آخر مختلف قليلاً عن الإصدار رقم 2 حيث أنه أصلا طلب الأخ أحمد غانم أن يكون بهذا الشكل ... :fff: Highlight Activecell's Row And Column V3.rar

أخي الفاضل حبذا لو أرفقت ملف للعمل عليه

بارك الله فيك أخي عبد الله على كل ما تقدمه .. وجعل عملك في ميزان حسناتك يوم القيامة أخي السائل أولا لابد من الدقة في إدخال الأسماء والبيانات بشكل عام حتى تحصل على نتائج صحيحة قمت في الملف المرفق بإزالة الهمزات من بعض الأسماء ، لأن الهمزات تؤثر على الترتيب .. جرب المرفق وأعلمنا بالنتيجة Sort Names.rar

أما إذا أردت عدم التقيد بخلية محددة وأن يظهر التاريخ حيثما وضعت الـ CheckBox فجرب المرفق التالي CheckBox.rar