اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أبو محمد عباس

05 عضو ذهبي
  • Posts

    1,410
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

كل منشورات العضو أبو محمد عباس

  1. وعليكم السلام ورحمة الله وبركاته اخي العزيز الملفات محمية برقم سري بالاضافة هناك ملفات لاتفتح وتظهر رسالة خطا ارجو رفع الحماية وتعديل الملفات ورفعها مرة اخرى اعتقد احد الاسباب لعدم وجود رد هو ما ذكرته لك وفقكم الله وجزاكم الله خيرا
  2. السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الجموعي الله يبارك فيك عمل رائع جعله الله في ميزان حسناتكم زادكم الله علما ومعرفة وفقكم الله ورعاك
  3. السلام عليكم ورحمة الله وبركاته كود اكثر من رائع للاستاذ الجموعي جزاه الله خيرا اليك كود اخر حسب ما فهمت من السوال انه تريد في مصنف جديد اليك الملف فيه تطبيق كود الاستاذ الجموعي بارك الله فيه وفيه كود لانشاء مصنف جديد تقبلوا فائق احترامي وتقديري نقل الى مصنف جديد.rar
  4. بسم الله الرحمن الرحيم الاستاذ والاخ العزيز مختارحسين بارك الله فيك في قمة الروعة برنامج ممتاز وفيه فائدة كبيرة جعله الله في ميزان حسناتكم تقبلوا فائق احترامي وتقديري
  5. السلام عليكم بعد اذن الاستاذ ابو تراب جزاه الله خيرا هذا حل اخر لاثراء الموضوع وفقكم الله ورعاكم ++هشام_عماد.rar
  6. اخي العزيز قم بنسخ البيانات من اوفس 2013 وعند لصقه في اوفس 2003 اختر لصق خاص ثم الاحتفاظ بتنسيق المصدر وان شاء الله تضبط معاك التنسيقات تقبل فائق احترامي وتقديري
  7. السلام عليكم ورحمة الله وبركاته اخي العزيز ما هو الاوفس الذي تريد ان تعمل عليه التغييرات اقصد الذي مثبت في الحاسوب الان تقبل احترامي وتقديري
  8. السلام عليكم ورحمة الله وبركاته بعد اذن الاستاذ العزيزأبو عيد جزاه الله خيرا يمكن ذلك بفتح الملف الذي فيه البيانات التي تريد نسخها وتحفظه باسم اخر بصيغة الملف الذي تريد لصق البيانات فيه او الطريقة الثانية بنسخ الخلايا المطلوبة ثم لصق في الملف الجديد هذا حسب علمي والله سبحانه وتعالى اعلم دمتم في رعاية الله وحفظه
  9. السلام عليكم ورحمة الله وبركاته اخي العزيز ابو الحسن جزاكم الله خيرا الحمد لله والشكر وبفضله تتم النعم بارك الله فيك واعطاك الصحة والعافية
  10. اخي العزيز من tools ثم options ثم ترفع علامة الصح كما في الصورة وفقكم الله
  11. السلام عليكم ورحمة الله وبركاته اخي العزيز الغي من صيغ تفعيل اظهار الصيغ كما في الصورة تقبل فائق احترامي وتقديري
  12. السلام عليكم ورحمة الله وبركاته اخي الاستاذ الحبيب احمد غانم جزاكم الله خيرا انتظرت لعل احد الاساتذة يقوم بعمل كود الترحيل لكن حتما انشغالهم وعدم التفرغ هو سبب التاخير قمت منذ العمل الاول وردك الكريم عدلت على الكود بشكل فرز ثم الترحيل عسى ينفعكم وهي محاوله للحل ولتنشيط الموضوع وفقكم الله وزادكم من فضله خيرا كثيرا تقبلوا فائق احترامي وتقديري فرز ثم الترحيل.rar
  13. السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل والاخ الحبيب احمد غانم جزاك الله خيرا اخي هذه محاولة مني ربما تنفعك حتى يتدخل الاساتذة الكرام بحل افضل ان شاء الله تقبل فائق احترامي وتقديري لائحةبمبالغ 1السنوات السابقة++.rar
  14. السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل والاخ الحبيب ابو البراء جزاكم الله خيرا ابداع منقطع النظير وجهد كبير ومستمر لمساعدة الاخوة الاعضاء اثابكم الله واعانكم لعمل الخير تقبل فائق احترامي وتقديري
  15. السلام عليكم ورحمة الله وبركاته الاساتذة الافاضل الاستاذ سليم حاصبيا الاستاذ ابو تراب الاستاذ ابن مصر الاستاذ محمد الريفي الاستاذ الكبير ملك المعادلات ابو محمود جزاه الله خيرا حلول ومعادلات رائعة جزاكم الله خيرا وفقكم الله ورعاكم وحفظكم من كل سوء ولغرض المساهمة والمشاركة مع الاساتذة الكبار ارفقت ملف وفيه جمعت المعادلات لكل استاذ في خلية واحدة اقصد بدون عمود مساعد عسى ينتفع بها اخينا فتحي سلام جزاه الله خيرا تقبلوا فائق الاحترام والتقدير جمع المعادلات في خلية واحدة+.rar
  16. السلام عليكم ورحمة الله وبركاته الاخ العزيز ابن مصر جزاكم الله خيرا
  17. السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب محمد الريفي بارك الله فيكم دائما اعمالكم رائعة وفيها ابداع وفقكم الله وزادكم من فضله خيرا وعلما كثيرا تقبل فائق احترامي وتقديري
  18. الاخ العزيز حسام عيسى موضوع في غاية الاهمية وشرح مفيد ورائع وفقكم الله وزادكم علما ومعرفة تحياتي واحترامي
  19. السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل والاخ الحبيب ابو البراء بارك الله فيكم وجزاكم الله خيرا انا متابع لاعمالكم وشرحكم لكن الخبرة قليله ويحتاج الى تراكم معلومات الرسالة بسيطة وعملتها قبل ان ابعث بالطلب لكن التنفيذ وعدم التنفيذ اتعبني وخاصة المتغيرات لكن بعد اجابة الاستاذ محمود الشريف جزاه الله خيرا استطعت ان اخذ المعلومة التي استفيد منها بتنفيذ الامر والحمد لله والشكرعلى كل حال تقبلوا فائق احترامي وتقديري
  20. السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب ياسر خليل الاستاذ والاخ الحبيب بن مصر بارك الله فيكم وجزاكم الله خيرا اعمال في قمة الابداع والروعة وفقكم الله وزادكم من فضله علما وخيرا كثيرا تقبلوا فائق احترامي وتقديري
  21. السلام عليكم ورحمة الله وبركاته الاساتذة الكرام والاخوة الاعزاء جزاكم الله خيرا قمت بتعديل بسيط على الاضافة التي ارسلها الاستاذ محمود الشريف بارك الله فيه لكي يعمل الكود بالشكل الصحيح وهو تنفيذ الامر عند اختيار (YES) وايقاف التنفيذ عند اختيار (NO) وفقكم الله جميعا واعطاكم الصحة والعافية Sub مسح_الرصد() Dim UnionRange As Range Application.ScreenUpdating = False a = MsgBox("أبو محمد عباس", 36, "هل تريد تصفير الرصد ؟") If a = vbYes Then With ActiveSheet Set UnionRange = Union(Range("F6:H55,J6:L55,O6:O55,R6:T55,V6:X55,AA6:AA55,AD6:AF55,AH6:AJ55,AM6:AM55,AP6:AR55"), _ Range("AT6:AV55,AY6:AY55,BB6:BD55,BF6:BH55,BK6:BK55,BN6:BP55,BR6:BT55,BW6:BW55,BZ6:CB55,CD6:CF55"), _ Range("CU6:CU55,CP6:CR55,CL6:CN55,CI6:CI55,F206:H255,J206:L255,O206:O255,R206:T255,V206:X255,AA206:AA255"), _ Range("AD206:AF255,AH206:AJ255,AM206:AM255,AP206:AR255,AT206:AV255,AY206:AY255,BB206:BD255,BF206:BH255,BK206:BK255,BN206:BP255"), _ Range("BR206:BT255,BW206:BW255,BZ206:CB255,CD206:CF255,CU206:CU255,CP206:CR255,CL206:CN255,CI206:CI255,F406:H455,J406:L455"), _ Range("O406:O455,R406:T455,V406:X455,AA406:AA455,AD406:AF455,AH406:AJ455,AM406:AM455,AP406:AR455,AT406:AV455,AY406:AY455"), _ Range("BB406:BD455,BF406:BH455,BK406:BK455,BN406:BP455,BR406:BT455,BW406:BW455,BZ406:CB455,CD406:CF455,CU406:CU455,CP406:CR455"), _ Range("CL406:CN455,CI406:CI455,F606:H655,J606:L655,O606:O655,R606:T655,V606:X655,AA606:AA655,AD606:AF655,AH606:AJ655"), _ Range("AM606:AM655,AP606:AR655,AT606:AV655,AY606:AY655,BB606:BD655,BF606:BH655,BK606:BK655,BN606:BP655"), _ Range("BR606:BT655,BW606:BW655,BZ606:CB655,CD606:CF655,CU606:CU655,CP606:CR655,CL606:CN655,CI606:CI655")) UnionRange.ClearContents End With Cancel = False End If Application.ScreenUpdating = True Range("F1").Select End Sub تعديل الاضافة على كود المسح.rar
  22. السلام عليكم ورحمة الله وبركاته الاستاذ المهندس ياسر فتحي جزاك الله خيرا اخي العزيز لازالت المشكله كما نوهت على مشاركة الاستاذ محمود الشريف جزاه الله خيرا الكود ينفذ المسح حتى لو تم اختيار زر (no ) بارك بكم واعطاكم الصحة والعافية
  23. السلام عليكم ورحمة الله وبركاته الاخ الحبيب الاستاذ محمود الشريف جزاك الله خيرا اضافة رائعة للكود لكن اعتقد كما جربت الكود بعد الاضافة تظهر الرسالة لكن اذا اردت عدم تنفيذ الكود في اختيار زر (no) كذلك ينفذ المسح ارجو تعديل الاضافة لتوقف عمل الكود عند اختيار (no) وعدم المسح تقبل فائق احترامي وتقديري
×
×
  • اضف...

Important Information