طارق محمود

السلام عليكم
بعد إذن أخي الغالي سليم
تفضل الكود التالي (تعديلا علي الكود الذي أرسلته)
يتم تفعيل الكود
 بالضغط علي الزر بعد تغيير الخليتين الحمراوين
Sub FilterData() Dim jobs As String, cycl As String jobs = [B1].Value: cycl = [I1].Value On Error Resume Next ActiveSheet.AutoFilterMode = False With [B3:O999]     .AutoFilter Field:=13, Criteria1:=cycl     .AutoFilter Field:=14, Criteria1:=jobs End With End Sub تفضل الملف أيضا
عمل SORT بناء على إختيارين.rar

السلام عليكم 
بالمرفق كل ماسبق مع أمثلة
مع الفورم التي تريدها ايضا
تفضل
نموذج.rar

السلام عليكم  
معذرة ليس لدي وقت للمعادلات الآن
الأسهل بالأكواد
 
بالمرفق إن شاء الله يكون كل ماتريد ============= بالمناسبة يتم الرفع علي الموقع عن طريق 3 خطوات اضغط الملف باستخدام winrar أو winzip ثم إختر الملف المضغوط زرChoose File ثم إرفع الملف المضغوط زر رفع الملف    
ارشيف الاستلام2.rar

السلام عليكم
أخي الحبيب / ابو القبطان
جزاك الله خيرا
مرورك شرف كبير

أخي الكريم / Ultimate Power
تفضل المرفق به كل ماطلبت
لاحظ الآتي:
في ورقة الموظف  ستجد زر أصفر يرجعك للورقة DailyDatabase عند الضغط علي الزر الأحمر (Delete + Shift to Monthly) سيحذف البيانات بعد أن يرحلها للتقرير الشهري في ورقة (Main) ستجد زر (تحديث القائمة) لانشاء وتحديث قائمة ارتباط باسماء الموظفين   New2_sample.rar

السلام عليكم
أخي الكريم
أهلا بك ومرحبا بين إخوانك
تفضل الحل بالمعادلات وليس الأكواد
إن شاء الله تجده يسيرا سهلا
Book2_2.rar

السلام عليكم
أخي الكريم
تفضل
111111_2.rar

السلام عليكم
أخي العزيز
غير جزء الكود الخاص بورقة المطالبات للتالي:
        Sheets("مطالبات").Activate                 mLR = [E9999].End(xlUp).Row                 Rows(mLR - 14 & ":" & mLR + 3).Copy                 Cells(mLR - 14, 1).Select                 Selection.Insert Shift:=xlDown                 Rows(mLR - 14 & ":" & mLR + 3).UnMerge                                  Rows(mLR - 14 & ":" & mLR + 3).Copy                 Selection.PasteSpecial Paste:=xlPasteValues                                            Sheets("Bill").Activate .. ..

السلام عليكم
أخي العزيز
تفضل المرفق به ماطلبت
خزينة تجربة.rar

السلام عليكم
أخي العزيز
تفضل المرفق
ابو سليمان اوفسينا2.rar

السلام عليكم
أخي العزيز
عندك أكثر من خطأ واحد بالملف
أولا النطاق الذي ترجع إليه بالدالة VLOOKUP وهو النطاق المسمي "الشيت" غير محدد بطريقة مضبوطة
فهذا النطاق لابد أن يكون أول عمود به هو العمود الذي ستبحث عنه بالدالة VLOOKUP 
أي أنه لابد أن يبدأ من أرقام الجلوس أي العمود C
تم تعديل ذلك بالملف
 
ثانيا لابد من أن تفهم كيفية عمل الدالة VLOOKUP
فهي يتبعها بين الأقواس 4 عوامل ، الثلاثة الأوائل منها إلزامية والرابع إختياري يأخذ إحدي قيميتن (1 أو 0)  وهي نفسها قمتي التحقيق ( True, False)
وهذا العامل الرابع أنت لم تضعه في معادلتك فسيفرضه نظام الاكسل =1 
وهو كما اتفقنا يأخذ إحدي قيمتين
1 أو Trueوتعني تقريبي
0 أوFalseوتعني تماما
  فكانت نتيجة معادلتك الأولي أنه يبحث عن أرقام الجلوس في مجال لايبدأ بأرقام الجلوس فيأتي بأول قيمة في المجال ثم العاتمل الرابع غير موجود (لايساوي 0) فلايتحري الدقة في تساوي النتيجة فيتكرر   يعني إذا أعدت صياغة المعادلة في الخلية D7 إلي التالي 
VLOOKUP(B7,الشيت,9,0) وهكذا باقي المعادلات
 
ثالثا وأخيرا عمود التخصص يرجع لمرجع قبل رقم الجلوس وهذا ليس الطبيعي في دالتنا هذه
لذلك غيرتها لك بدالة أخري Match مع مساعدة من دالة ثالثة Offset
تفضل المرفق
 
مناداة-Tarek.rar

السلام عليكم
لإثراء الموضوع حل آخر بواسطة الدالة Vlookup
تفضل
Vlookup_tst.rar

السلام عليكم
بعد إذن أخي وحبيبي / ياسر ممكن عملها بدون اكواد (بالمعادلات) ولكن لابد من تعطيل الخطا المرجعي (Circular) كما بالصورة بداخل الملف المرفق تفضل Test بدون اكواد .rar

السلام عليكم
تفضل أخي الكريم
 
حساب متوسط الغياب2.rar

السلام عليكم
تفضل أخي المطلوب باستخدام الجداول المحورية Pivot Table
 
a2.rar

لست متأكدا
ولكن يمكنك استبدال هذا الجزء
ChDir "D:\PDF\" '======================================= ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFullName بالسطر التالي
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\PDF\" & MyFullName

السلام عليكم
أخي الحبيب محمد الريفى
فعلا الحل بواسطة ال solverجميل ولكنه كما أشار الأخ السائل ينتج حلا واحدا
وهو يريد الإحتمالات المتعددة الممكنة
==========================
أخي / مدحت
تفضل المرفق به جزء كبير من الحل
مازال الكود يحتاج مراجعة وتدقيق لأن النتائج ليست دقيقة وليست كل الإحتمالات
ولن أكون جاهز لمشاركة أخري قبل عدة أيام
سأرفع الملف لمن أراد أن يتم العمل وسأكون له شاكرا
تفضل المرفق
Invoice2.rar

السلام عليكم
إذا اعتمدنا علي أن العمود الأول من الجدول لن يكون به بيانات في حالة أن يكون الصف تجميعي
يمكنك عمل تنسيق شرطي كالتالي
=$A11="" وتضع ماتشاء من تلوين وتكبير وخلافه حين يتحقق الشرط 
انظر المرفق
 
aaaa2.rar

السلام عليكم
أخي الكريم
تفضل الملف وبه المطلوب
22_2.rar

السلام عليكم
أخي الكريم 
تفضل الملف به ماطلبت
برامج ولجان2.rar

(1)
ليس مهما عدد الأسطر
فقط كما أوضحت لك
 
وعلي هذا سيأخذ البرنامج عدد الأسطر تلقائيا من الورقة   (2) 
وبالنسبة لـ "فعل شيئ لجعله اسرع" نعم يمكنك إضافة سطرين للكود
واحد بعد البداية مباشرة
Application.ScreenUpdating = False
والآخر قبل النهاية مباشرة
Application.ScreenUpdating = True
 
ليصبح الكود كالتالي
Sub new_Change() Application.ScreenUpdating = False Application.DisplayAlerts = False         pt = ActiveWorkbook.Path         NextFile = Dir(pt & "\")                    Do While NextFile <> ""     If NextFile = "Change.xlsm" Then GoTo 10     Workbooks.Open Filename:=pt & "\" & NextFile         'step-1         [D1:E1].EntireColumn.Delete          'step-2          LR = [B9999].End(xlUp).Row          For r = 1 To LR             If Cells(r, 2) = "" Or Cells(r, 3) = "" Or Cells(r, 2) = 0 Or Cells(r, 3) = 0 Or IsNumeric( _             Cells(r, 2)) = False Or IsNumeric(Cells(r, 3)) = False Then GoTo 20             If IsNumeric(Cells(r, 2)) Or IsNumeric(Cells(r, 3)) Then Cells(r, 4) = Cells(r, 2) - Cells(r, 3)         'step-3             Cells(r, 3) = Cells(r, 3) * 1000 20       Next r                    'step-4          [B1].EntireColumn.Delete          '=========================         ActiveWorkbook.Save         ActiveWorkbook.Close 10   NextFile = Dir()     Loop          Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub ولكن كما تقول 30,000 سطر لابد أن يأخذ وقتا
وهذا التعديل سيسرع ذلك قليلا ممكن دقيقتين بدلا من 4
 
(3) 
أما السؤال
نعم فالكود سيفتح أي ملف بالمجلد
وهذا سينتج خطأ إذا كان بالمجلد ملفات لايمكن فتحها بالإكسل

السلام عليكم
ماتفضل به اخونا الكريم / محمد أبو البراء ، مضبوط ولاأدري لماذا لايعمل معك
عموما تفضل أخي المرفق به التعديل
المصنف1_c.rar

السلام عليكم
إن شاء الله يكون هذا المرفق ماتريد

 
المعادلة المستخدمة مع النطاق الديناميكي جيدة جدا من حيت السرعة والكفاءة وهي تعمل على اوفيس 2003 ، 2007 ، 2010 وما فوق ولن تتأثر بعمل المنظومة مشاركة  (شير)
  كشف حساب فتره -2014 .rar

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

أخي العزيز
بناءا علي ماذكرته في المشاركة #4 
   
مرفق فكرة أخري تناسب أكثر باستخدام دالة الـ VLOOKUP
إستخدم المعادلة
=VLOOKUP(G2,$T$2:$U$7,2) أو انظر المرفق
حسم يوم الجمعة4.rar

السلام عليكم
أخي الكريم
جرب المعادلة التالية بفرض البيانات في العمود A
="L"&VALUE(MID(A2,3,6)) أو أنظر المرفق
 
إستخلاص معلومات من الخلية.rar