طارق محمود

السلام عليكم أخي الكريم عموما الإكسل ليس الأفضل للرسم ولكن ، انظر المرفق وبه بعض الشرح ccc2.rar

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

السلام عليكم أخي العزيز / عمرو طلبة تجد الرد إن شاء الله في الموضوع http://www.officena....=56242&p=371623

اسلام عليكم أخي العزيز معذرة لم أنتبه للموضوع لانشغالي الفترة السابقة =============================== أولا حمل الملفات الثلاثة المرفقة (Data ، Data10-2014 ، sample) واحفظهم في مجلد منفصل ثانيا شغل الملف :Data كما سبق سينتج 3 ملفات بأسماء الوحدات 5-10001، 6-10001، 15-20005 للمستخدمين : محمد ، أحمد ، عمرو كما سبق فإن فتحت أيا منهم ستجد أن موضوع التفقيط في الفاتورة تم حله المطلوب الرابع وستجد أن عنوان ورقة المطالبة "مطالبة سداد فاتورة مياه شهر " تم تعديله ليكون أوتوماتيكيا وبعض التعديلات اللخري التي أجريتها علي الملف sample ثالثا إفتح الملف :Data10-2014 لعلك تلاحظ أن هناك عملاء جديدون إبراهيم 01 ، إبراهيم 02 ، رقم 4 ، 5 >> ليس لهم ملفات فى 9 /2014 ثم شغل الملف :Data10-2014 ستجد أن البيانات الجديدة لشهر 10-2014 للمستخدمين الثلاثة تم إضافتها لملفاتهم في ورقة مطالبات وتم تحويل البيانات القديمة لشهر 9 إلي نصوص (لكي يتم حفظها بلا تغيير من المعادلات) وستجد أن الطباعة تغير مجالها لشهر 10 الجديد أما المستخدمين الجدد فقد تم إنشاء ملفات جديدة لهم كما بالسابق AMRO TOLBA.rar

السلام عليكم أخي الحبيب ياسر خليل مازلت أشكرك علي الجهد المتميز ، وفقك الله وأعانك أحببت أشارك ولو بشيء بسيط هذا الكود لترتيب أوراق العمل تصاعديا أو تنازليا طبعا جربته ، تمام وبصراحة لم أتحقق إن كان موجود بمكتبتنا الرائعة أم لا أضيف عليك هذا الجهد (التحقق من أنه موجود أم لا بالمكتبة) مرفق ملف شرح Sub Sort_Worksheets() Dim i As Integer, j As Integer, Ansr As VbMsgBoxResult Ansr = MsgBox("تريد ترتيب الشيتات تصاعديا ؟" & Chr(10) & "بضغط (لا) سيتم الترتيب تنازليا", _ vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksheets") For i = 1 To Sheets.Count For j = 1 To Sheets.Count - 1 If Ansr = vbYes Then If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) ElseIf Ansr = vbNo Then If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If Next j Next i End Sub هذا الكود ضمن أكثر من مائة كود علي الرابط http://www.teachexcel.com/free-excel-macros/ أنا فقط عدلت في الشكل ونص السؤال بالعربية بدلا من الإنجليزية ومن هذا الرابط أيضا يمكن إقتباس فكرة ضم الأكواد في مجموعات أو عناوين كبيرة شرح الكود ترتيب أسماء الورقات.rar

السلام عليكم أخي الكريم أهلا بك ومرحبا دائما والشكر موصول لأخونا الغالي / الصـقر ، جزاه الله خيرا وجعل جهده في ميزان حسناته ================ أخي الكريم مرة أخري لفهم هذه الجزئية ترجع قليلا في الكود ستجد الأوامر كالتالي nr = [F9999].End(xlUp).Row + 1 أي أن nr سيأخذ قيمة رقم الصف الجديد الجاهز للبيانات في تلك الورقات new row وأيضا كما سبق ، الجزء n = LR - 17 يعتمد علي أن أول بيانات مكتوبة بالورقة ستكون بالصف 18 علي أساس أن LR = Last Row ولفهم الجزء الذي تسأل عنه ، نفرض أن آخر سطر به بيانات منقولة في تلك الورقة مثلا السطر رقم 25 أي أن nr سيأخذ قيمة رقم 25+1 = 26 مثلا و n مثلا =7 إذن For Each cl In Range("B" & nr & ":B" & nr + n - 1) تكون For Each cl In Range("B" & 26 & ":B" & 26 + 7 - 1) أي For Each cl In Range("B26:B32) تكون معناها أن إفعل التالي لكل عنصر من عناصر من خلايا النطاق B26:B32 (العنصر هنا هو cl أي الخلية ) والتالي المقصود هو cl.Value قيمة الخلية = cl.Offset(-1, 0).Value قيمة الخلية التي تسبقها في العمود وفي نفس صفها + 1 كل خلية تجعل قيمتها تساوي قيمة الخلية التي تعلوها في نفس العمود وتزيد عليها 1 طبعا أنت تعرف ان الدالة Offset تحرك المؤشر من الخلية cl إلي تلك التي تبعد عنها بمقدار صف واحد للأعلي -1 وفي نفس العمود 0 يعني في مثالنا هذا B26 سوف تساوي B25+1 و B27 سوف تساوي B26+1 و B28 سوف تساوي B27+1 وهكذا حتي B32

السلام عليكم أخي الكريم اتبع الخطوات التالية فك الدمج Merge في العمود T ضع أي بيان في الخلية T6 لأنها ستكون فارغة بعد فك الدمج إنسخ الخلية T6 إلي الخلية X6 مثلا ظلل المجال من الخلية T6 إلي الخلية T78 ثم من قائمة Data >> Advance Filter >> Copy to another location >> Unique records only أنظر الفييديو المرفق أيضا Data_AdvanceFilter.rar

أخي العزيز أعتقد أن الموضوع تم حله ، أرسلته علي الخاص كما رغبت أنتظر ردك

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

السلام عليكم لاأدري يإن كنت فهمت أم لا أرجو النظر للمرفق غير بالخلية الصفراء A2 (بفرض أن هذه هي التي تتغير بشكل لحظي عشوائي تلقائي) إذا كان هذا ماتريد يسهل عملها علي مجموعة خلايا أو أعمدة عبدالله279.rar

إرسل الملف وبه الخطأ

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

السلام عليكم أضفت عمود مساعد به الأسماء تفضل المرفق New 2.rar

السلام عليكم في هذه الحالة Vlookup المعكوسة يمكن الإستغناء عن الدالة بدالتين مثلا جرب المعادلة التالية =INDEX(E11:E15,MATCH(M8,G11:G15,0)) وهنا نقسم مجال البحث قسمين القسم الأول نستخدم الدالة MATCH لتأتينا بترتيب المبحوث عنه والقسم الثاني الدالة INDEX لتأتينا بالعنصر الذي له نفس الترتيب في المجال الآخر

السلام عليكم أخي العزيز بعد إذن إخواننا الأعزاء : ibn_egypt ، سليم حاصبيا أنت تقول في الملف : "مفيش حل للعملية الجمع فى الخلية L3 بدل كل عمليات الجمع دى وعاوز اطبقة فى كل من m3,n3, o3 الاسبوع عبارة عن 30 خلية من A" أول حد أنت استعملته كان :(D6*F6)+(G6*I6) وآخر حد أنت استعملته كان :(D36*F36)+(G36*I36) وهذا يجعل الفارق 31 سطر وليس 30 (مع الأخذ في العدد السطر الأول 6 والأخير 36) عموما انظر المرفق وستجد ماتريد إن شاء الله gg_2.rar

السلام عليكم أرجو أن يكون المرفق هو ماتريد المصنف1-2.rar

أخي الحبيب / ياسر جزاك الله خيرا ولك مثل مادعوت وأكثر

أخي إبن مصر (الجميل) عفوا رأيت مشاركتك بعد ردي

السلام عليكم أخي العزيز وضعت لك الكود في حدث الملف وليس حدث الورقة سيتم تفعيله في أي ورقة يتم تنشيطها أوتوماتيك Private Sub Workbook_SheetActivate(ByVal Sh As Object) [C1] = Application.WorksheetFunction.Count(ActiveSheet.[B3:B150]) End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Intersect(Target, [C1]) Is Nothing Then [C1] = Application.WorksheetFunction.Count(ActiveSheet.[B3:B150]) End If End Sub الكودين كلاهما في حدث الملف الأول بمجرد إختيار أي ورقة يتم تفعيله الثاني بمجرد تغيير في الورقة النشطة (أي ورقة) يتم تفعيله وتم استثناء من ذلك الا يكون التغيير في الخلية C1 Count 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

السلام عليكم حللت لك الشطر الأول من السؤال تفضل الرقم السري1.rar

السلام عليكم أخي الكريم أقترح عليك أن تقرأ الموضوع التالي http://www.officena....topic=56398&hl= وتحمل الملف في مشاركتي الأخيرة بالموضوع ، قد يكون هذا الذي تريده ويمكنك وقتها تعديل كود الملف كما تحب لأنه كود بسيط تقبل ودي

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

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