سليم حاصبيا

استاذ محمد البرنامج يقوم بالشيء الذي تريده فقط تابع الكتابة في الخلية و كلما كتبت حرفاً زيادة كان التقريب للاسم اكثر

اخي ابو القبطان تم التعديل كما تريد تفتيش عن اسم 2003 معدل.rar

يمكنك استعمال الاصفر في المعادلات و استخدام التنسيق الشرطي للخلايا المعنية كما يلي: [=0]"";General

صديقي ابو القبطان مرفق نسخة عن الملف بصيغة 2003 لم اجربه لانني لا املك هذه الصيغة /حاول انت ان تجربه و اعطني النتيجة بالنسبة للاسماء يمكن ان تكتبها في العامود G ابتداء من G2 حتى g5000 كما يمكنك حذف اي اسم و استبداله باخر/ الارقام كما البيانات يمكن استعمالها تفتيش عن اسم 2003.rar

الف مبروك و الى المزيد من العطاء

تفضل و اعطني رأيك يمكنك استعمال هذا الماكرو ايضاً (لكن في ورقة اخرى من الالمصنف) Private Sub Worksheet_SelectionChange(ByVal Target As Range) FontSize = ActiveCell.Font.Size LargeSize = FontSize * 1.5 Cells.Font.Size = FontSize ActiveCell.Font.Size = LargeSize End Sub conditinal zoom.rar

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

العنوان يدل على الموضوع جرب هذا الملف ولا تنسَ الدعوات....... واضغط اعجبني جمع في نفس الخلية.rar

اضغط ALT+F11 ,و سوف ترى الكود

ربما يكون هذا المطلوب عدد مرات ادراج رقم معين في خلية salim.rar

اكتب هذه المعادلة في الخلية C2 واسحب نزولاً =A2&" "&B2&" "&C2

غير السطر التالي من الكود Set wks = jk الى set wks =activesheet

لنفرض ان كل دقيقة تحدث حركتان في اليوم الكامل 24*60*2=2880 اي لا يتجاوز 3000 حركة هذا اذا كانت يوم العمل حقيقة 24 ساعة

اخي ياسر ارغب ان تضيف هذا الكود الى مكتبتك الرائعة لو سمحت

لا تنسى انك وضعت في الملف حوالي 65500 معادلة من الطبيعي ان يكون كبيراُ حاول تقليل عدد اصفوف (حسب الحاجة) لا لزوم لاكثر من 1000 صف حسب ما اعتقد

انسخ هذا الماكرو و ضعة في حدث الصفحة general حدد الخلية B6 , وقم بتنفيذ الماكرو Sub sum_macro() Range("B6").Select Selection.FormulaR1C1 = _ "=IF(OR(RC[1]<>"""",RC[2]<>""""),R[-1]C-RC[1]+RC[2],"""")" Selection.AutoFill Destination:=Range("B6:B65536") Range("B6").Select End Sub

اليك الحل بالنسبة للاسبع الأول يمنكنك زيادة عدد الصفحات و متابعة المعادلات لكن بشرط ان يكون اسم الصفحة في الخلية هو نفسه لا زيادة ولا نقصان لاني لاحظت ان هناك مسافات زائدة بالتسمية(تم التصحيح) ملف اكسل salim.rar

لا تهدر وقتك بتغيير اللغة من الكيبورد اكسل يقوم بهذا العمل (مجرد ان يرى ماذا يوجد في اول خلية من العامود) جرب هذا الملف و هات مزيداً من الدعوات تغيير اللغة اوتوكاتيكياً.rar

اليك هذا الملف دون اكواد فقط عليك ان تختار الرقم و منه ينطلق خمسة اسماء الى الصفحة المعنية وهي صالحة للطباعة فقط للبيانات انظر الى تالصفحة FINAL جدول خمسة.rar

اليك الحل عفواً اخي ياسر لم اشاهد مشاركتك الا بعد اضافة خاصتي keep formulas.rar

دائماً في الخدمة اخي تم تغيير الملف لانه يحتوي على فيروس tikrar.rar

موضوع رائع يا حبيبي ياسر لكن هناك الاروع و هو من وضعه لدي تعليقان اذا كنت تسمح بذلك 1-لو تستطيع ان تضع في قائمة منسدلة ارقام الأعمدة لتوفير الوقت على المستخدم من الدخول الى الكود و اجراء التعديلات (حاجة سهلة جداً) لانه هناك الكثير لا يجيدون تعديل الكود و حفاظاً عليه من العبث عن طرق الخطأ.وهذه طريقة مطاطة اذا كان هناك اكثر من 5 أعمدة 2- في حال لم تكن الورقة تحتوي على الفلترة اجبار الكود على القيام بذلك

اليك هذا النموذج للعمل عليه دون اليوزر فورم عسى ان ينال اعجابك series number salim 1.rar

اليك هذا الملف ربما يكون اوضح مجموع الارباح.rar

محاولة اخرى RW2 = Lrw: RW3 = Lrw + 1 S = Application.WorksheetFunction.Sum(Range("N" & RW1, "N" & RW3)) sh2.Cells(RW3, 5).Formula .IF(S = 0, """", S) Selection.AutoFill Destination:=Range("N" & RW1, "N" & RW3), Type:=xlFillDefault sh2.Range("N" & RW1, "N" & RW3).Select