طارق محمود

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

السلام عليكم أخي العزيز يوجد خطأ بسيط بالكود تستطيع إصلاحه إمسح (-1) من السطر التالي If r < n-1 Then GoTo 15 ليكون If r < n Then GoTo 15 وسيكون الملف علي مايرام

السلام عليكم أخي العزيز تفضل الصورة التالية بها الكود في جانب مع شرح سريع للخطوات في الجانب الأيمن

السلام عليكم أخي العزيز تفضل الملف به ماطلبت متابعة الديون.xlsm

السلام عليكم أخي الكريم كما قلت لك ، باسورد الحماية "123" الأفضل أن تجعل الحماية موجودة ولايسمح للمستخدم بالعمل إلا في الأعمدة الثلاثة الأولي ولايمس عمل الآخرين يمكن مثلا أن يعدل كالتالي : البيان رقم 8 يعيد كتابته مرة أخري معدلا أي يكون عندك بيانات متكررة بنفس الرقم ومعروف من الذي كتب أولا وفي أي تاريخ ثم من كتب ثانيا أو ثالثا وماذا عدل وفي أي تاريخ هذا رأيي ولكن ممكن عمل أي شيء إن شاء الله

السلام عليكم جرب تأخذها كلها (ليس نسخا) Cut ثم Paste أي تحريكها بما تحمل من هايبر لينك

السلام عليكم أخي الكريم بعد إذن الأخ محمد ، مرفق نفس الملف به التالي حماية بباسورد "123" مسموح للمستخدم فقط العمل في الأعمدة الثلاثة الأولي وبعد أن يكون الثلاثة أعمدة مليئة بالبيانات ، يتم أوتوماتيكيا التالي 1- يقوم الماكرو بفك الحماية 2- يسجل بالعمود الرابع والخامس إسم المستخدم و التاريخ 3- يقوم أخيرا بفرض الحماية مرة أخري مع منع السطر الأخير أيضا من التعديل تفضل الملف معرفة اسم مستخدم الجهاز.xlsm

السلام عليكم أخي الكريم عندي يتم عمل الهايبر لينك بلامشاكل مرفق الملف مرة أخري ومعه في نفس الفولدر PDF حاول تضغط الزر الأول ثم تضغط الزر الثاني TEST PDF.rar

وعليكم السلام ورحمة الله وبركاته أخي الكريم ماذا تتوقع وأنت تبخل في إعطاء بيانات ردا علي سؤالك هل هناك كود يستدعي البيانات تحت بعضها البعض نعم هناك كود بل أكثر من كود هل هذا يكفي ردا لسؤالك لا أنت تريد الكود ، إذن أعطينا السؤال الملف به شكل وتنسيق البيانات التي تحتاجها من الملفات

السلام عليكم أخي العزيز من فضلك أعد إرسال الملف لأن المرسل به خلل

السلام عليكم أخي الكريم إرسل شيت علي الأقل به أسم الملفات شاملا المسار (القرص / المجلد/ ...)

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

السلام عليكم أخي الكريم مرفق مجلد به 32 ملف رمزي غير الملف الأساسي "Report.xlsm" ستجد زرين لكل واحد منهما كود الأول يعمل لك ليستة بالملفات الموجودة بالمجلد اللي موجود به الملف الأساسي "Report.xlsm" يجب أن تضغط عليه أولا ليعطيك قائمة بالملفات الموجودة بالمجلد بداية من الخلية B4 نزولا للأسفل ثم الزر الثاني يعمل لك الهايبر لينك للملفات الموجودة بالمجلد وموجود إسمها بالملف الأساسي "Report.xlsm" تفضل المجلد ولو لك أسئلة لاتتردد TEST.rar

السلام عليكم أخي الكريم عدد وظائف أي مستوي مع مجموعة نوعية لايزيد عن عشرة الحالة التي بها 10 هي المستوي (الثانية) - مجموعة نوعية (التعليم) وفي كثير من الأحيان 1 فقط فكيف سيكون الحال إن كان إجمالي العدد 1 ويستحق العلاوة .. ليس 10% بل 100% من العدد ؟؟ عموما شوف المرفق عسي أن يكون هو ما تريد جداول العلاوة التشجيعية.xlsx

السلام عليكم تفضل 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