طارق محمود

السلام عليكم تفضل http://dmcritchie.mvps.org/excel/colors.htm

السلام عليكم أخي الكريم تم عمل هذا من قبل لك هل هي صعبة أم ماذا تفضل الملف وأخبرني أين المشكلة استحقاق.xlsx

أخي الكريم تم دمج الموضوعين رجاءا : لاتكرر نفس الموضوع هذه ليست المرة الأولي

السلام عليكم بعد إذن أخونا عماد تفضل أخي طارق بالملف المرفق المساحة الصفراء (H9:H17) إذا فيها خلايا ليست فارغة سيضيف لها كومنت "XX" الكومنت يختفي بعد الإضافة الكود في حدث تغيير الإختيار للورقة أي أنه يتم تفعيله أوتوماتيكيا بمجرد تغيير الإختيار داخل الورقة ويقوم بعمل مراجعة للمساحة الصفراء إذا فيها خلايا ليست فارغة سيضيف لها كومنت وإذا فيها خلايا فارغة سيتم حذف الكومنت Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [H9:H17]) Is Nothing Then Exit Sub For Each c In [H9:H17] If IsEmpty(c) = True Then c.ClearComments: GoTo 10 c.AddComment ("XX") c.Comment.Visible = False 10 Next c End Sub Add comment.xlsm

السلام عليكم نسيت ترفع الملف الاكسل

السلام عليكم عذرا أخي الكريم (علي) الملف الذي أرفقته لم تضف له شيئا (من الممكن أنك نسيت حفظ التعديلات) أخي الكريم (محمد) تفضل الملف به المعادلات المعدلة باللون الأحمر والخلايا الصفراء بها المعادلات لكن قيمتها فارغة حيث انتهي عدد الأقساط هل هذا ماتريد اقساط معدل1.xlsm

السلام عليكم تفضل المعادلة الموجودة بالخلية B11 بعد إضافة معادلة مساعدة في العمود G =IFERROR(VLOOKUP(1,D7:G18,4,0),"ادخل رقم حساب الصنف بالخليةc3") if طويلة.xlsm

السلام عليكم أخي الكريم لقد ضممت الموضوعين لأنهما موضوع واحد تفضل عسي أن يكون هذا ماتريد اقساط معدل.xlsm

السلام عليكم تفضل الملف 1.xls

السلام عليكم إذا أردنا ان يكون الحذف للمتكرر في أول ثلاث أعمدة كيف يكون الكود ..وشكرا تفضل المرفق به 2 أزرار يتم الحذف لكل الجدول المتشابه أو للتشابه باول 3 أعمدة وفي تلك الحالة يلغي باقي الجدول لعدم الالتباس الفرق بين الكودين تستطيع التعرف عليه هنا Sub Macro1() [C2:H2].Copy [J2] Range([C2], [C2].End(xlDown).End(xlToRight)).Select Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[J2:O2], Unique:=True [J2:O999].Copy [C2].PasteSpecial Paste:=xlPasteValues Columns("J:O").Delete Shift:=xlToLeft End Sub ' ======================================= Sub Macro2() [C2:E2].Copy [J2] Range([C2], [C2].End(xlDown).End(xlToRight)).Select Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[J2:L2], Unique:=True [J2:L999].Copy [C2].PasteSpecial Paste:=xlPasteValues Columns("F:L").Delete Shift:=xlToLeft End Sub حذف الصفوف المكررة2.xlsm

السلام عليكم تستطيع عمل بيفوت تيبل Pivot Table سريع وبالنسبة لموضوع الطباعة لكل مندوب ، إتبع ما بالصورة البصمة_الجمع_down.xlsm

السلام عليكم غالبا من مستوي الحماية العالي الموجود بالأوفيس 16 تستطيع تقليل هذا المستوي قليلا

السلام عليكم لقد رددت عليك إذا أضفت مثلا صفوف أخري ممكن تغير الكود بنفسك تستبدل الرقم 113 برقم آخر صف لديك وكذلك 114 برقم آخر صف مضاف له (1) وإذا كنت تريد هذه هي الحالة بصفة دائمة فسأغير الكود ليزيد من مرونة الشييت ليقبل أي عدد من البيانات

السلام عليكم تفضل المساحات الصفراء فقط لإدخال البيانات ، تسطيع ازالة اللون الأصفر لا يوجد حماية وصل تسليم.xlsm

السلام عليكم اخي الكريم أهلا بك ومرحبا تفضل الملف به كلمة سر لحمابة المعادلات بالورقة الثانية "نموذج" كلمة السر هي 123 المساحات الصفراء فقط هي التي ليس بها حماية لتمكنك من ادخال البيانات لو أردت إزالة الحماية ، اتبع الخطوات بالصورة إن شاء الله يكون هو المطلوب قائمة المواد.xlsx

السلام عليكم قصدت بعملية إدراج أو حذف الصفوف ضمن الشريحة المسماة xyz مثل إدراج نتائج جديدة أو حذف نتائج أوجعل النطاق المستهدف (A:J) مثلا ، فهل ستتغير لدي النتائج المرحلة ضمن الشريحة Students؟ إذا أضفت مثلا صفوف أخري ممكن تغير الكود بنفسك تستبدل الرقم 113 برقم آخر صف لديك وكذلك 114 برقم آخر صف مضاف له (1) .[A1:J113].AutoFilter Field:=1, Criteria1:="2" ' يضاف هذا السطر لزيادة اختيار الصف الثاني في فلتر أقل من 60 .[A1:J113].AutoFilter Field:=4, Criteria1:=nm .[A1:J113].AutoFilter Field:=8, Criteria1:="<60", Operator:=xlAnd .[B1:C114].Copy Cells(nr, 4) nr = [D999].End(xlUp).Row + 1 .AutoFilterMode = off .[A1:J113].AutoFilter Field:=1, Criteria1:="2" ' يضاف هذا السطر لزيادة اختيار الصف الثاني في فلتر غياب .[A1:J113].AutoFilter Field:=4, Criteria1:=nm .[A1:J113].AutoFilter Field:=8, Criteria1:="غياب", Operator:=xlAnd .[B1:C114].Copy Cells(nr, 4) Rows(nr).Delete Shift:=xlUp وإذا كانت هذه هي الحالة فسأعمل لك التغيير اللازم لكي يكون الشييت مرن يقبل أي عدد من البيانات

السلام عليكم سؤال: إذا غيرت الفرز من تصاعدي إلى تنازلي أو العكس أو قمت بعملية إدراج ضمن النتائج لسبب ما.... هل ستتغير نتائج الترحيل؟ لا مشكلة أبدا غير كما تشاء فقط فرغ الجدول من C2:D7 قبل الضغط علي الزر و سأضيف لهذا الغرض سطر جديد بالكود تعتمد فكرة الكود علي عمل فلتر بإسم الطالب مرتين (أقل من 60) ، (غائب) ثم يتم تكوين متغيرين من مجمع نتائج الفلترين السابقين المتغيرين هما yr1 ، yr2 ثم يتم وضعهما في نفس سطر الطالب ، كل واحدة في مكانها وإذا أردت أن أرحّل فقط النتائج التي في الفصل الثاني( xyz!A:A=2)، فكيف سيكون الكود؟ أيضا لا مشكلة سأعمل لك التغيير اللازم تفضل المرفق نتائج2.xlsm

السلام عليكم أخى (nany4mg) إرجع للملف اللي أنا ارسلته من فضلك

السلام عليكم تفضل بالكود نتائج.xlsm

السلام عليكم (المواد التي في كودها رقم المئات =1 هي للسنة الأولى والرقم2 هي للسنة الثانية) وما هي المواد التي في كودها رقم المئات =3 مثل : 302 ، 312 ، 305 ، 301

السلام عليكم إذا لم تكن تجيد العمل مع الجداول فلو ألغيت الجدول لما تعرضت لهذا عموما تفضل المرفق VIDE.xlsx أعد نفس الخطوات بلا جدول ، فقط علي خلايا الورقة بالإكسل

السلام عليكم تفضل IF.xlsx

السلام عليكم تفضل المرفق بالضغط علي الزر يتم الحذف حذف الصفوف المكررة.xlsm

السلام عليكم تفضل IF.xlsx

السلام عليكم تفضل المرفق هل هذا يكفي نسخة من اسماء المنتسبين2.xlsm