طارق محمود

عفوا أخي محمد ، لم أر ردك

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

السلام عليكم مرفق الملف وبه الطلب الجديد والشرح خزينة ا_ق5.rar

تفضل أخي الملف مشروط بالرقم القومي بدلا من القيد في كلا من الإدخال والإستعلام المتقدمين4.rar

السلام عليكم تفضل أخي المرفق به المطلوب 1.rar

السلام عليكم أخي العزيز أنظر الخطوات في الصورة

السلام عليكم أخي العزيز حيث أن لديك بالملف مجال مُعًرًف إسمه chif وهذا المجال يتم الإعتماد عليه في إستخلاص النتائج وهذا المجال chif مُعًرًف كالتالي chif='D:\السنة المالية2014\المستخدمين12\عقود الأعوان المؤقتين\SAID\My Documents\[Paie titul 2000.XLS]AR.LETTRE'!$A$1:$IV$65536 هذه الرسالة تعني أن الملف أو المسار لم يعد موجودا أو أن بالمسار علامات خاصة غير مقبولة مثل الفراغات في أسماء المجلدات أو الملفات عقود الأعوان المؤقتين السنة المالية2014

السلام عليكم الكود يعمل جيدا لكن إحتياطيا يمكنك تغيير أول سطرين لجعله يستوعب ماتريدين كالتالي Sub countt() LR = [B9999].End(xlUp).Row Sheets("Report").[A9:D9999].ClearContents For r = 2 To LR .... .... .... أول سطر LR = [B9999].End(xlUp).Row هذه تجعل الكود يأخذ بيانات حتي السطر 9999 (حوالي 10 آلاف بيان) وتسطيعين تغييرها بلا مشاكل ثاني سطر Sheets("Report").[A9:D9999].ClearContents هذا يمسح بيانات التقرير قبل بدأ نقل الجديد إليها أيضا بالتعديل يمسح حتي السطر 9999

تفضل أخي الملف مشروط بالرقم القومي بدلا من القيد المتقدمين3.rar

أخي العزيز بناءا علي ماذكرته في المشاركة #4 مرفق فكرة أخري تناسب أكثر باستخدام دالة الـ VLOOKUP إستخدم المعادلة =VLOOKUP(G2,$T$2:$U$7,2) أو انظر المرفق حسم يوم الجمعة4.rar

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

السلام عليكم إن شاء الله يكون هذا هو المطلوب ترحيل بيانات2.rar

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

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

السلام عليكم الكود لايعمل علي المعادلات يعمل علي الخلايا التي ليس بها معادلات فقط تيكست Text لو نقلت هذه الأرقام المتسلسلة لورقة أخري كتيكست (قيم فقط) paste Value ستجد الكود يعمل عليها حللت لك حلا آخر بلا أكواد - قسمت الأرقام المتسلسلة علي ثلاث أعمدة تفضل المرفق 111_2.rar

تفضل المرفق به الكود رقم تسلسل.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- أي مرجع آخر تضمن به عدم التكرار وعدم الحذف (عليك تحديده)