سليم حاصبيا

جرب هذا الملف Tansiq.rar

جرب هذا الشي تعدد شراء سعر نفس الصنف salim.rar

ربما يكون المطلوب تم نغيير اسماء الصفحات الى الاجنبية لسهولة التعامل مع المعادلات (تم حماية الخلايا التي تحتوي على معادلات لعدم العبث بها عن طريق الخطأ) ديناميكي مع زيادة عدد الصفحات والبيانات (شرط تسمية الصفحة حسب الاسم month والبيانات تكون في نفس الخلايا) جرب هذا الملف الصفحة Total جدول مرتبات salimالموظف Avancer.rar

فقط احذف هذا السطر من الكود (او ضع بأوله فاصلة عليا) target_sheet.Range("c6:n50").ClearContents

تم العمل حسب المطلوب فقط اضغط (اعجاب) copy_rng.rar

جرب هذا الملف ربما يكون المطلوب Copy_spec_col.rar

يمكن ان بكون الحل مرتب salim.rar

يمكنك استعمال هذه المعادلة غلى شرط أن الخلية C9 لا تحتوي على رقم (فقط فارغة او تحتوي على نص) =IF($D10<>"",MAX($C$9:C9)+1,"")

جرب هذا الملف منع التكرار.rar

جرب هذا الملف يمكنك اختيار التصفية حسب الاسم / اسم الاب / او اسم الام القوائم المنسدلة في الخلايا E1 I1 & M1 مطاطة (تستجيب لأي تغيير في البيانات ولا تذكر المكرر الا مرة واحدة تتسع لغاية 100 اسم) ويمكن الزيادة عسى ان يكون المطلوب تحياتي Nam_Pap_Mam.rar

لم افهم اي سعر تريد ان تضع في الجدول (سعر المورد 1 أو 2 أو3 او السعر الأعلى)

جرب هذا الملف تم توسبع النطاق ليشمل 100 اسم inout salim.rar

بعد اذن الاخ عامر ياسر صاحب المشروع قمت ببعض التعديلات على المعادلات(حيث لا حاجة للاعمدة المساعدة ولا الى Deffined names ) فقط تدرج الشهر والسنة و اكسل يقوم بتعبئة صف التاريخ (الصف 7) مع ادراج اخر يوم بالشهر اوتوكاتيكياً 30 ،31،28، أو 29 حسب اسم الشهر والسنة كما جرى تعديل بسيط بالكود بحيث لا يقوم بادراج حرف الـ غ (من خلال Double Click)الا اذا كان هناك اسم في الصف اللازم وتاريخ في العامود المناسب الترقيم تلقائي (مجرد كتابة اسم يظهر الرقم مباشرة) عامود الترقيم محمي والمعادلات ايضاً (لعدم العبث بها عن طريق الخطأ) عسى ان اكون ساهمت بالقليل في هذا المشروع تحياتي سجل غياب salim.rar

يمكن اختصار الكود بهذا الشكل Sub Unhide_shts() For i = 1 To Sheets.Count: Sheets(i).Visible = -1: Next End Sub

تم التعديل لغاية 1000 اسم ,و يمكن الزيادة اكثر Rank_By_Sum To_1000.rar

جرب هذا الماكرو Sub Unhide_Shts() For i = 1 To Sheets.Count If Sheets(i).Visible = False Then Sheets(i).Visible = True Next End Sub ربما هذا الافضل Sub Unhide_Shts() For i = 1 To Sheets.Count If Sheets(i).Visible = 0 Or Sheets(i).Visible = 2 Then Sheets(i).Visible = True Next End Sub

جرب هذا الماكرو Sub rows_() Select Case Application.WorksheetFunction.CountA(Range("K12:K18")) Case 1 s = 200 Case 2 s = 150 Case 3 s = 100 Case 4 s = 80 Case 5 s = 70 Case 6 s = 60 Case 7 s = 50 Case Else s = 18.5 End Select Selection.RowHeight = s End Sub

جرب هذا الماكرو Sub Unhide_Shts() For i = 1 To Sheets.Count If Sheets(i).Visible = False Then Sheets(i).Visible = True Next End Sub

اليك الملف مع زر لتنفيذ الماكرو على اخر صفحة جرب ان تضغط على الزر (عندي يعمل بكفاءة) الترحيل salim 1 .rar

[$-10A0000]dddd yyYY/mm/dd استعمل هذا التنسيق للخلايا أو هذا [$-10A0000]dddd

المسألة ليست بحاجة الى كود يمكن ذلك بكل بساطة بواسطة المعادلات مخ SALIM.rar

بعد اذن اخي ياسر هذا الكود ضمن الملف المرفق (بعيداً عن الحلقات التكرارية في كل ورقة عمل) ربما يكون اسرع قليلاً الترحيل salim.rar

بعد اذن اخي عبد السلام اليك هذا الملف الذي لا يسمح لك التكرار المصنف2 salim.rar

جرب هذا الملف صفحة رقم 3 القوائم المنسدلة الخضراء مطاطة (بمعنى انها تستجيب لتغيير البيانات في الصفحة الرئيسية ولا تذكر المكرر الا مرة واحدة) TEST FILTERS salim 2.rar

ربما يكون المطلوب تم نغيير اسماء الصفحات الى الاجنبية لسهولة التعامل مع المعادلات معادلة واحدة تكتب في الخلية A6 وتسحب يساراً (تم حماية الخلايا التي تحتوي على معادلات لعدم العبث بها عن طريق الخطأ) ديناميكي مع زيادة عدد الصفحات والبيانات (شرط تسمية الصفحة حسب الاسم month والبيانات تكون في نفس الخلايا) جدول مرتبات salimالموظف.rar