طارق محمود

السلام عليكم أخي العزيز غير المعادلة في الخلية C7 إلي =IF(A7="","",SUMPRODUCT(--($Y$7:$Y$5000=A7),--$W$7:$W$5000,--($O$7:$O$5000<>""))) غير المعادلة في الخلية D7 إلي =IF(A7="","",SUMPRODUCT(--($Y$7:$Y$5000=A7),--$X$7:$X$5000,--($O$7:$O$5000<>""))) وانسخهما للأسفل

السلام عليكم أهلا ومرحبا بك أخي الكريم بين إخوانك لم افهم جيدا السؤال لو ترفق مثال لما تريد سيكون أسهل ولكن مؤقتا (1) إن كنت فقط تريد الذهاب لآخر خلية (صاحبة اخر عمود واخر صف بالشيت) فقط إضغط CTRL-End (2) إن كنت فقط تريد التظليل (التعليم) من المكان الذي تقف عليه بالماوس إلي آخر خلية بالشيت ، إضغط Shift-CTRL-End

السلام عليكم أخي العزيز الملف السابق رفعه في المشاركة #23 ، لايحتوي أية أكواد به فقط معادلة طويلة بالخلية C2 وهي: =SUMPRODUCT(--(WEEKDAY(ROW(INDIRECT(A2&":"&B2)))<6),--(ISERROR(MATCH(ROW(INDIRECT(A2&":"&B2)),H$1:H$7,0)))) أرجو أن تراجعه أولا

السلام عليكم أخي الكريم تفضل المرفق وبدلا من الشرح ، أقترح أن تسأل فيما وقف معك فهمه من الكود أنتظر أسئلتك EXEMPLE.rar

السلام عليكم أخي العزيز يبدو ان هناك خطأ بردي السابق عذرا مرفق الملف وبه المعادلات الصحيحة تقريرالمبيعات.rar

السلام عليكم أخي الكريم غير المعادلة التي في الخلية S4 إلي =IFERROR(OFFSET(استلامات!$A$1,MATCH($A4,استلامات!$D:$D,0)-1,0),0) وانسخها للأسفل

السلام عليكم أخي العزيز المعادلات ليست صحيحة في ورقة "Sales" استبدل المعادلة التي في الخلية B7 بالتالية =IF(A7="","",SUMIF($Y$7:$Y$5000,A7,$W$7:$W$5000)) والتي في الخلية C7 بالتالية =IF(A7="","",SUMIF($Y$7:$Y$5000,A7,$W$7:$W$5000)) وضع في الخلية D7 =IF(A7="","",SUMIF($Y$7:$Y$5000,A7,$X$7:$X$5000)) وانسخ للأسفل

السلام عليكم أخي الكريم تفضل المرفق sky2012_2.rar

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

السلام عليكم أخي العزيز تم عمل ذلك في المرفق يوجد موضوع كامل لليوزرفورم للأستاذ الفاضل / عماد الحسامي علي الرابط http://www.officena....rm&fromsearch=1 وخاصة الدرس الرابع بالمشاركة #12 ستجد به هذه الجزئية تحديدا لم أفهم من أين يتم جلب البيانات فالورقة (الشيت) كبيرة وبها بيلنات كثيرة فأ يها تريد بالتحديد مثلا مربع الفيزا تريد به بيانات الخلية DB7 أم ماذا والأقصر تريد BQ7 أم CS7 أم T21 أم ... وهكذا عليك التحديد جيدا والشرح أفضل لايوجد بالفورم زر تعديل ، أعتقد أنك تعني زر ترحيل ، لقد غيرت لك إسم الزر إذن تريد التعديل علي نفس الخلايا التي تم جلب البيانات منها إذا كان الأمر كذلك فلابد ان تكون تلك الخلايا بلا معادلات ، صح؟ تفضل المرفق وأنتظر ردك علي ماسألتك عليه sky2012_1.rar

السلام عليكم أخي العزيز بالمرفق حساب مع بعض الشرح لكل دفعة لوحدها القيمة الحالية2.rar

السلام عليكم تفضل أخي المرفق القيمة الحالية.rar

السلام عليكم الاخ الحبيب محمدي عبدالسميع ألف ألف مبروك عليك الترقية الى مزيد من التقدم والرقي ان شاء الله

السلام عليكم بعد إذن اخي أبا أحمد أخي الكريم تفضل المرفق نقل معادلات.rar

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

السلام عليكم عندك حق أخي الكريم في حالة 2003 لابد من استبدال كلمة xlExcel8 في الكود بكلمة xlNormal في السطر ActiveWorkbook.SaveAs Filename:=myname, FileFormat:=xlNormal لتصبح نهاية الكود كالتالي .... .... ActiveWorkbook.SaveAs Filename:=myname, FileFormat:=xlNormal ActiveWorkbook.Close Next r MsgBox ("الحمد لله ، تم عمل عدد " & LR - 1 & " ملف جديد" & Chr(10) & "وتم نقل بيانات العملاء إليها وغلقها") Application.DisplayAlerts = True End Sub

السلام عليكم أخي الكريم بدل الكود بالتالي وأضف زر لتنفيذ الكود وسيتم التنفيذ بناءا علي الخلية التي تقف عليها قبل تنفيذ الكود Sub Sort_New() aa = ActiveCell.Address Range([A3], [A3].End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select c = Selection.Columns.Count r = Selection.Rows.Count With ActiveSheet.Sort .SortFields.Clear .SortFields.Add Key:=Range(aa) .SetRange Selection .Header = xlNo .Apply End With [A1].Select End Sub أو تفضل المرفق بتنسيق 2003 أو 2007/2010 SORT_2003.rar SORT_2007_2010.rar

السلام عليكم أخي العزيز أنظر الحل بالمرفق بلاأكواد فقط دوال الأكسل العادية مع التنسيق ECART_TAREQ1.rar

السلام عليكم أخي العزيز أنظر الورقة الثانية في المرفق pivot table.rar

السلام عليكم أخي الكريم قلت لك في اول مشاركة لي (المشاركة #2) أنظر الفيديو المرفق extract.rar

السلام عليكم أخي الكريم تفضل المرفق Tarheel.rar

السلام عليكم أخي الحبيب ضع المعادلة التالية =DATEVALUE(RIGHT(B5,LEN(B5)-SEARCH(",",B5)) &"/"&LEFT(B5,SEARCH(",",B5)-1)&"/"&2012) في الخلية C5 وانسخها للأسفل

السلام عليكم بعد إذن الأساتذة الأفاضل ممكن استخدام المعادلة التالية في التنسيق الشرطي =WEEKDAY(A$1)=6 مرفق الملف وبه معادلة التنسيق الشرطي تنسيق شرطي.rar

السلام عليكم مازلت لم أفهم فالمفروض أنه أولا لم يكن لديك ملفات للعملاء بعد تشغيل الكود سيتكون لديك في نفس الفولدر الذي به ملف Data عدد من الملفات حسب البيانات التي بملف Data ثم يمكنك غلق ملف Data أو تركه مفتوحا لايهم وفتح ماتشاء من تلك الملفات للتعديل او الطباعة أو كماتريد فقط تذكر أن هذه الملفات تم تكوينها بنفس الفولدر الذي به ملف Data وهي ملفات عادية يتم فتحها بلامشاكل إن كنت تريد مثلا أن تختار الملف من داخل ملف Data فهذا أيضا ممكن مثلا (بعد عمل كود آخر) يمكنك بالضغط دبل كليك علي إسم العميل يتم استدعاء الملف الخاص به (يتم فتحه) أرجو أن تكون الأمور واضحة

السلام عليكم بل الطريقة ناجحة أخي الكريم ولكن الدالة شأنها شأن باقي الدوال المستحدثة ، تحتاج Refresh أو إمسحها ونسخها من جديد أنظر الفيديو المرفق Refresh_Function.rar