طارق محمود

السلام عليكم أهلا ومرحبا بك أخي الكريم بين إخوانك نعم يوجد طريقة سهلة بشرط أن تكون الأرقام كلها ذات طول واحد (مثلا أرقام تليفونات) الطريقة ظلل المجال كله (الذي به الأرقام) كليك يمين الماوس إختر Format Cells ثم Custom ثم في خانة Type ضع عدد الأصفار التي تريدها مثلا إذا كانت الأرقام ثمانية وتريد زيادتها للعشرة ضع عشرة أصفار 0000000000 ولزيادة علامة + بدلا من الأصفار أيضا إتبع نفس الخطوات السابقة حتي الرابعة ثم 5. ثم في خانة Type ضع + ثم 0 أو + ثم مسافة ثم 0 أيهما تفضل

السلام عليكم حل سريع بالجداول المحورية (بيفوت تيبل) Book1.rar

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

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

جزاك الله كل خير

وجزاكم ، أخي الغالي الحبيب أحمد بارك الله فيك وفي كل الأحبة

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

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

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

جزاك الله خيرا أخي الحبيب

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

السلام عليكم تفضل أخي المرفق منع تسجيل غياب يوم الجمعة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