طارق محمود

تفضل المرفق به الكود رقم تسلسل.rar

السلام عليكم أخي العزيز ضع هذا الكود Sub Macro1() For Each ce In Selection ce.Characters(Start:=9, Length:=4).Font.ColorIndex = 3 Next End Sub ثم إختر المجال الذي به رقم تسلسل وشغل الكود

السلام عليكم أخي العزيز مازلت لم أفهم الفارق بين شيكات مؤجلة وشيكات مؤجلة بأمر المدير بالنسبة للحل في الملف المرفق يمكنك كما قلت لك سابقا "تفتيتها لقطع صغيرة" عموما أنا فعلت ذلك للتهرب من التعقيد وكخطوة تدريبية لك أو لأي من الأعضاء تواجهه مثل هذه المشكلة (العديد من الإحتمالات الشرطية) أنظر الأعمدة AA:AE ستجد أنني خصصت لكل حالة أو مشكلة عمود ومع آخر مشكلة (أو عمود) نقلت الإختيار النهائي لعموده الذي سيؤثر مباشرة علي العمود الأول B بهذه الطريقة تستطيع إضافة ماتشاء من الشروط بدلا من الإصرار علي وضع معادلة واحدة معقدة أنظر المرفق ثم إسأل إن تعثرت في شيء خزينة ا_ق4.rar

السلام عليكم أخي العزيز أولا: لاداعي للإستعجال فكل من يساعد متطوعا حسب وقته ثانيا : أنا لم أفهم الفارق بين شيكات مؤجلة وشيكات مستحقة (أعذرني فلست محاسبا) ثالثا : أضفت للمعادلة السابقة معاملات أكثر لتأخذ احتمالات أكثر الآن يمكن للمعادلة تصنيف كلا من : شيكات مستحقة mo'men شيكات تحت التحصيل بالخزينة ايصالات امانة تحت التحصيل بالخزينة شيكات محصلة بالخزينة ايصالات امانة محصلة بالخزينة تفضل المرفق وفي أقرب وقت إن لم يتدخل أحد سأنهيها إن شاء الله خزينة ا_ق3.rar

السلام عليكم أخي الكريم كان يجب أن توضح أن المطلوب هو المعادلة بالعمود الأول B ولكن لابأس عندما تجد مشكلة ، فكر في تفتيتها لقطع صغيرة لضيق وقتي حللت لك الجزئين 4،5 باستخدام العمود V أنظر المرفق وغدا إن تيسر لي وقت سأكملها إن شاء الله خزينة ا_ق2.rar

السلام عليكم أخي العزيز لابد ان ترفع (ترسل) الملف او الملفات ليتمكن من أراد الماعدة من فهم ماتريد فقط أريد ان أذكرك أن النتيجة لن تكون " بحيث لو حدثت واحد منها يتحدث الباقي تلقائيا" ليس أي واحد بل واحد محدد سيكون به البيانات والباقي علاقات مبنية علي تلك البيانات

السلام عليكم أخي العزيز / أ:حكيم شاكر لك مرورك الطيب جزاك الله خيرا أخي العزيز / الريفي 1-احتاج الزر الازرق يعمل مثل الزر الاحمر وممكن ان يكون المعيار مثلا هو خانة التاريخ اذكانت اكبر من الواحد فيتم الترحيل الى صفحة الفرع إذا جعلنا التاريخ معيار فقد تفقد بعض البيانات مثلا إذا لديك في سطرين مختلفين بيانين في يوم واحد (مثلا 02 January 2014) لنفس الفرع (فرع 2) فعند الضغط علي الزر وأنت بالسطر الأول سيتم النقل ولكن عند الضغط علي الزر وأنت بالسطر الثاني سيقارن التاريخ (المعيار) ويجده موجودا من قبل في صفحة الفرع فلن يتم النقل 2- بالنسبة الى تقرير الاقساط ( القسط مستحق-متاخر-مسدد) ، فاننى قد حددت المعيار بناء على عمود رصيد القسط فاذا كان رصيد القسط = صفر فانه يعنى سداد القسط ، رصيد القسط اكبر من >0 فانه يعنى متاخر اذا كان اكبر من تاريخ الاستحقاق او لم يحن تاريخ استحقاقه وضعت بيانات إضافية (افتراضية) بصفحة "المبيعات القسط" لتجربة الكود وغيرت بداية ونهاية فتره التقرير أيضا لنفس السبب (يمكنك تغيرها كما تشاء مثلا لن يلتفت للأقساط التي تاريخ استحقاقها أصغر من بداية الفتره 01/04/2014 أو أكبر من نهاية الفتره 30/05/2014 أضفت لك ايضا تنسيق شرطي في صفحة تقرير الاقساط يجعل لون القسط الذي تم سداده أخضر والذي لم يتم أحمر الكود يعمل بالضغط علي الزر الأخضر في صفحة تقرير الاقساط مرفق الملف وبه الكود الجديد a2.rar

السلام عليكم أخي العزيز / عادل ابوزيد شاكر لك كلماتك الطيبة ومرورك العطر جزاك الله خيرا أختي الفاضلة / بيسان أولا: للاحتفاظ بتنسيقات صفحة التقرير عند نقل البيانات يمكن ذلك بأكثر من طريقة 1- أن نجعل صفا في آخر أو في أول التقرير ننسخ منه التنسيقات لكامل الجدول 2- أن نجعل نسخ البيانات ولصقها في صفحة التقرير بصيغة قيم فقط Paste value أفضل الحل الأول وسأضيف في آخر الكود أمرا ينقل تنسيقات السطر 99 مثلا للأعلي هذا الأمر تجدينه في آخر ثلاثة أسطر بالكود [A99:D99].Copy [A9:D99].PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False ثانيا: ليكون السطر الثمن بداية التقرير أي أن السطر التاسع بداية بيانات التقرير فلاتعديل يلزم إلا ثاني سطر في الكود والذي مسح البيانات القديمة قبل نقل الجديد يتغير من Sheets("Report").[A2:D99].ClearContents إلي Sheets("Report").[A9:D99].ClearContents مرفق الملف وبه التعديلان الاصناف ونسبة الخصم4.rar

السلام عليكم أخي الكريم 1- ترحيل نطاق الصف مره فقط مثلا من(B4:AK4) مازلت لم أفهم ، فعندك الآن زرين للترحيل الأحمر علي اليسار لصفحة الأقساط ليس به مشكلة حسب مافهمت لأنه يمسح مابهذه الصفحة قبل نقل أي شيء إليها والأزرق علي اليمين الذي يرحل لصفحات الفروع ، وهذا الذي يكرر فإذا لم يكن لديك معيار للترحيل ستظل المشكلة قائمة بمعني أنك إن ضغطت سهوا مرتين علي الزر وأنت في الصف الرابع فسينقل الصف الرابع (B4:AK4) مرتين للفرع التابع له مرة أخري حدد مرجعا وحيدا لكل بيان يتم الترحيل بناءا عليه ، فإن كان موجودا في الصفحة المُرحل إليها فلايتم الترحيل 2-احتاج منك مساعده اخرى وهى عمل تقرير اقساط (مستحق-متاخر-مسدد) ويكون مصدره صفحة المبيعات القسط ويكون هذا التقرير بشكل عمودى وليس افقى . في تلك الصفحة : لايوجد أيضا مرجع يتم التحديد علي أساسه أن القسط مستحق-متاخر-مسدد 3- عند الضغط على زر الترحيل فانه يحدث بطىء وقد اردت استخدام الاكواد VBA هربا من المعادلات وبطوءها عندي الكود يعمل بسرعة عالية جدا ولايوجد بطؤ ، رجاء جرب تغير الجهاز أو ترسل الملف كاملا لعل به عوائق أخري

السلام عليكم أخي الحبيب الرجاء تحديد الطلب فيما يلي سأساعدك في ذلك هل تريد مثلا: 1- أن يتم حذف البيانات التي تم ترحيلها بالفعل (وفي هذا حذف للبيانات في ورقة اليومية العامه التي تم ترحيلها من قبل) 2- أن يتم حذف البيانات من الصفحات المُرحل إليها قبل بدأ الترحيل الجديد (وفي هذا حذف للبيانات السابق ترحيلها) 3- أن يتم مقارنة ومن ثم التعرف علي البيانات المُرحلة سابقا مع بيانات الترحيل الجديد لتجنب تكرارها (وهنا لابد من مليء عمود يحتوي علي مايشبه الكود أو الشفرة لكل بيان لايتكرر أبدا كالرقم المسلسل أو رقم مستند التوريد) 4- أي مرجع آخر تضمن به عدم التكرار وعدم الحذف (عليك تحديده)

السلام عليكم تم انشاء 3 جداول في الورقة الأخيرة لمتابعة حالة القروض طويله الاجل والمرابحات بالورقتين الأوليين الجدول الأول : مضي وقت الإستحقاق الجدول الثاني : إقترب وقته (7 أيام) الجدول الثالث : لم يحن وقته بالضغط علي الزر (إضغط هنا) ذو اللون التركواز -أزرق فاتح يبدأ الكود بعمل التالي يمسح بيانات الورقة الأخيرة ثم يمر بالورقتين الأوليين ، وفي كل ورقة يقارن تاريخ الاستحقاق "VALUE DATE" بتاريخ اليوم (الذي نقرت فيه الزر ويأخذ تاريخ اليوم من جهاز الكمبيوتر) أول احتمال إذا كان تاريخ الاستحقاق أقل من تاريخ اليوم يضعه في الجدول الأول ثاني احتمال إذا كان تاريخ الاستحقاق أكبر من تاريخ اليوم بمدة قليلة (7 أيام أو أقل) يضعه في الجدول الثاني ثالث احتمال إذا كان تاريخ الاستحقاق أكبر من تاريخ اليوم بمدة تزيد عن 7 أيام يضعه في الجدول الثالث تم تعديل طفيف بالكود ليضع كذلك بكل جدول عمود إضافي به إسم الورقة التي بها البيان تفضل الملف بعد التعديل قروض2.rar

السلام عليكم أخي الكريم أرجو أن يكون المرفق ماتريد قروض .rar

جزاك الله خيراً وبارك الله لك

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

السلام عليكم تفضل المرفق Grater_Smaller.rar

السلام عليكم لاأدري هل هذا ماتريد أم لا تفضل المرفق zmzm2.rar

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

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

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

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

السلام عليكم تفضلي أختي الحل بالأكواد معذرة لإنشغالي في الفترة السابقة يمكنك الحصول علي التقرير بالضغط علي أي من الزرين بالورقتين الكود المستخدم Sub countt() LR = [B9999].End(xlUp).Row Sheets("Report").[A2:D99].ClearContents For r = 2 To LR nr = Sheets("Report").[B99].End(xlUp).Row + 1 If Cells(r, 2) = Cells(r - 1, 2) Then GoTo 10 cc = 1 For i = 1 To 9 If Cells(r, 2) <> Cells(r + i, 2) Then GoTo 5 cc = cc + 1 Next i 5 If cc = 1 Then kh = 0.75: txt = "يوم واحد": GoTo 8 txt = cc & " ايام متتالية" If cc < 5 Then kh = 0.4 Else kh = 0.2 8 Range("B" & r & ":C" & r).Copy Sheets("Report").Cells(nr, 1) Sheets("Report").Cells(nr, 3) = txt Sheets("Report").Cells(nr, 4) = kh 10 Next r Sheets("Report").Activate End Sub شرح سريع للكود يمر في جميع صفوف الورقة الأولي ويقارن الخلية التي بها رقم الصنف بالتي تعلوها ، إن كانت تساويها يعني الصنف متكرر فلن يفعل شيئا ويتجاوزها للتي تليها Next r فإذا لم تكن تساويها يعطي التكرار رقم 1 ثم يبدأ في عدد التكرارات cc للأسطر التسعة التالية وبناءا علي عدد التكرارات يغير الجملة txt التي ستوضع في سطر التقرير وكذلك نسبة الخصم kh والباقي سهل إن شاء الله الاصناف ونسبة الخصم2.rar

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

الأخ الفاضل والاستاذ العلامة / أبا آدم السلام عليكم ورحمة الله وبركاته أحسن الله اليك ، وجزاك خيراً =================== اللَّهُمَّ رَبَّ النَّاسِ أَذْهِبِ الْبَاسَ, اشْفِهِ وَأَنْتَ الشَّافِي, لا شِفَاءَ إِلا شِفَاؤُكَ, شِفَاءً لا يُغَادِرُ سَقَمًا أسأل الله العظيم رب العرش العظيم أن تشفي أستاذنا الكبير عاجلاً غير آجل.

مرفق الملف وبه شرح الكود لم أضف شيئا غير الشرح من الشرح يمكنك التعديل عليه الملف المطلوب التعديل عليه.rar

هذا الملف لايحتوي علي شيء لامكونات ولا أكواد ولا معادلات ...........؟؟؟؟؟