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

بدون الإطلاع على ملفك قم فقط بوضع الجملة التالية في أعلى الموديول قبل أي إجراء فرعي آخر Option Compare Text ستقوم الجملة باعتبار حالة الأحرف

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

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

الكسول دائماً هو الذي يختار الطريق السهل .. ولذا تجدني أختاره أما أنت أخي غسان فيبدو أنك نشيط وتحب الطرق الوعرة ، وهذا يدل على قوة تحمل ومثابرة وهذا أمر مرغوب فيه تقبل تحياتي

الأخ الأخطبوط المصري أهلا بك في المنتدى ونورت بين إخوانك يرجى تغيير اسمك للغة العربية كما يرجى الإطلاع على هذا الرابط أولاً http://www.officena.net/ib/index.php?s=12b6163ab5b4dfd2c76bb38d025c6f88&showtopic=60147 ويرجى إرفاق الملفات التي تعمل عليها بعد تغيير البيانات الموجودة فيها بأي بيانات ، مثلا الاسماء خليها اسم1 اسم2 اسم3 وهكذا .. تقبل تحياتي

بارك الله فيك أخي الحبيب غسان وجزاك الله خير الجزاء هو دا الشغل .. طلع المستخبي يا كبير ممكن نختصر الكود الرائع اللي قدمته بالشكل ده Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim I As Long If IsNumeric(Range("C2,C3,C4,C5,C6,C7,C8,C9,C10").Value) Then For I = 2 To 10 Range("B" & I).Value = Range("B" & I).Value - Range("C" & I).Value Next I Range("C2:C10").Value = "" End If End Sub تقبل تحياتي

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

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

ارفق الملف بعدما أدخلت التعديلات عليه للإطلاع عليه

جرب الكود التالي .. غير بما يناسبك جرب الأول على تكست بوكس واحد عشان تشوف إذا كان دا المطلوب أولا Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1 = Format(TextBox1.Text, "0.00") End Sub جرب ملف جديد وضع فيه عدد 2 تكست بوكس وضع الكود واكتب رقم في التكست بوكس 1 واضغط Tab من لوحة المفاتيح عشان تخرج من التكست بوكس وشوف شكل التنسيق

ارفق ملف أخي الفاضل عبد العزيز البسكري

أخي وأستاذي ومعلمي عبد الله المجرب مشكور على مرورك العطر .. ومهما قدمت فلن يقارن أبداً ما أقدمه بجانب ما قدمتموه وما زلتم تقدمونه

أخي الحبيب محمود الحل في المشاركة رقم 7 حل رائع وممتاز أنا شخصياً أحبذه حيث أنه سيقوم بالتخلص من الفراغات والتكرار معاً وبدون مشاكل ..كل ما يلزمك عمود مساعد فقط هذا مجرد رأي ولك حرية الاختيار

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

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

المرفقات لا تظهر يرجى إعادة رفع الملف المرفق

أخي الحبيب جلال الجمال أبو ادهم طالت غيبتك عنا ، ونريدك معنا بشكل دائم للاستفادة من خبراتك مشكور على مرورك الكريم تقبل ودي واحترامي

الاخ محمد الريفي بارك الله فيك وجزاك الله خيرا الأخ إبراهيم أبو ليلة الحل كان ع السريع إليك الملف التالي عله ينال إعجابك وينال رضاك Unique List No Blanks YasserKhalil.rar

أنا شخصياً لا أحبذ التعامل مع أكواد حدث المصنف أو حدث ورقة العمل إلا للضرورة القصوى التراجع في التعامل مع الأكواد أمر معقد إلى حد ما (هذا مجرد رأي شخصي) وننتظر الأخوة الأعضاء كل يدلي بدلوه

الحجم مسموح بيه أخي الفاضل فقط اضغط الملف أولاً قبل رفعه ثم قم برفعه .. سؤال : كم يستغرق الكود في عملية التنفيذ؟ سؤال آخر : هل جربت الكود في المشاركة رقم 5 ؟

المعادلة بدون ملف مرفق لن تفي بالغرض ..ارفق ملف وإن شاء الله تجد المساعدة

ممكن أخي الحبيب تضع رابط المصدر للكود للإطلاع على الموضوع ..

راجع هذا الرابط عله يفيدك http://www.officena.net/ib/index.php?showtopic=60289&hl=

جرب أن تضع الفاصلة المنقوطة بدلاً من الفاصلة

ننتظر أحد الخبراء في الفورم لأني ضعيف في التعامل مع الفورم إلى حد كبير تقبل تحياتي