عادل حنفي

السلام عليكم بارك الله فيك يا ابو خالد و اعاد الينا اخينا ابو تامر متعافيا ان شاء الله تحياتي

السلام عليكم اخي مزلزل جهد تشكر عليه اكرمك الله وجازاك خير جزاء تحياتي

السلام عليكم الاخت الفاضله ديزلايف اولا اشكرك فبالفعل لم اتعرض للسيناريو من قبل لذا اشكرك لتوجيه نظري اليه و لكني اعتبره موضوع هام من النظرة الاولي و اعتقد ان يكون له استخدامات كثيرة نافعة لا استطيع تعريفها الان و لكن ما وجدته بموضوع الاخ الفاضل محمد طاهر مع بعض المحاولات الشخصية السريعة يمكن استغلال السيناريو في اشياء كثيره و قد ارفقت ملفا نتج عن الفهم السريع للسيناريو و ارجو من الاخوه الاضافة او التعديل لتصل المعلومه بطريقة ادق و اتمني ان اكون قد وفقت في هذا و ايصال معلومه سريعة عن هذا السيناريو خالص تحياتي sinario.rar

ايضا يمكن اضافة علي الكود السابق Application.CommandBars("Full Screen").Visible = False لمنع ظهور شريط اغلاق ال full screen تحياتي

السلام عليكم اخي جرب هذا الكود Application.DisplayFullScreen = True تحياتي full_screen.rar

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

السلام عليكم اخي engineer.saleh بارك الله فيك تحياتي

السلام عليكم اخي Enjoy بالفعل كود رائع و تم التجربه و يعمل بكفاءه بارك الله فيك ودعائنا لوالدتك بالشفاء ان شاء الله تحياتي

السلام عليكم اخي لايستطيع احد الحكم علي شئ الا بملف فقد يكون العيب من الوينددوز او الاوفس او فيرس او نتيجة لخطأ في نسخ و لصق الكود نرجوا ارفاق ملف تحياتي

السلام عليكم سلمت الايادي اخي مزلزل علي الداله الرائعة تحياتي

السلام عليكم اعرف اعمالك قبل رؤيتها لذا بارك الله فيك و جازاك خير جزاء تحياتي

السلام عليكم اخي الفاضل ارجو ان يكون هذا ما تطلبه علما بانه يجب عمل فولدر جديد في ال D و يكون اسمه elmounir قيل ان تضغط علي زر Creat تحياتي test.rar

السلام عليكم اخي تم اضافات جديدة للملف اولا تم نقل البيانات التي يمكن ان توجد بالعمود N و التي يمكن ان تتاثر بالغاء او اضافة عمود لذا تم نقل هذه البيانات الي العمود A و العمود B لكي تتمكن من عمل اي شئ بعد العمود L كما يحلو لك مع تعديل في ماكرو زر تعديل الاسماء كما تم اضافة زر لالغاء صفحات الاسهم التي تم عملها بامان دون اخطاء جرب و ارجو اخباري بالنتيجة تحياتي avogadrow6.rar

السلام عليكم اخي الفاضل تم عمل زر اخر تضغط عليه في البداية و قبل ان تقوم بالضغط علي زر Do It و ان شاء الله يحل المشكلة ايضا لاحظت خطا لسبط اعتقد انه بسبب انك عندما تقوم بالمسح لكامل الشيت لا تمسح بالور المخصص لذلك فارجو انه عند المسح يتم المسح بالزر المخصص لذلك لانه يقوم بمسح خلايا ليست امامك و عند عدم مسحها لن يرحل هذا الصف و الملف المرفق الثاني تم معالجة هذا الامر به لذا انصح بعمل حذف لكامل صفحات الاسهم ثم المسح بالزر ثم اضافة البيانات الجديدة لتكون نتيجة المعلومات دقيقة و لو وجد اي مشكلة اخري ارجو اخباري فورا تحياتي avogadrow5.rar avogadrow6.rar

السلام عليكم اخي عذرا تعديلا بسيطا ليتم الربط الكامل لاسماء الشيتات بكود العميل قم بالتعديل التالي بداخل Module1 ستجد Macro1 ضمن الكود المكتوب تحته ستجد جملة الكود التاليه Sheets("Main").Range("G2:G200").Select غيرها الي الاتي Sheets("Main").Range("G2:G1000").Select كما يوجد ايضا بنفس الــ Module ماكرو اسمه aa الكود المكتوب تحته ستجد جملة الكود التاليه If Cells(i, 9) < 0 Then .Offset(1, 1) = Cells(i, 9) غيره الي If Cells(i, 9) < 0 Then .Offset(1, 1) = -(Cells(i, 9)) ليصحح من وضع القيمة في الطرف الدائن مرفق ملف بعد التعديل تحياتي test2.rar

السلام عليكم اخي elmounir2010 بسرعه كده فقد يعينك علي عملك يوجد زر creat اضغط عليه و لا تتعجل تم ربط كود العمل بالشيت الخاص به كما يوجد داخل كل صفحة عميل لنك بالصفحة الرئيسيه مع نقل الارصدة جرب و اخبرني النتيجة تحياتي test.rar

السلام عليكم اخي الفاضل avogadrow بالنسبة لاستفسارك بخصوص الكولوم M لا توجد علاقة بين ماموجود به من اسماء او يالكولم N و لكن احذر حيث توجد معادلات في الكولم N في الخلايا من N9999 و الغاء اي عمود قبل N سيتاثر الكود و الملف الذي ارسلته انا جربته و المشكلة الوحيدة به الان في اسماء الاسهم و هم بالتحديد الاسهم التاليه رايه القابضه للتكنولوجيا و الاتصالات غيرها الي رايه القابضه للتكنولوجيا المصرية لخدمات النقل (ايجيترانس) غيرها الي المصرية لخدمات النقل و ستجد ان الكود يعمل بلا مشاكل اخي توجد الان دورة جميلة من البدايه و اظن ان لها الاستفادة الكبري لمن تابعاها و نرجوا لها الاكتمال و رابطها اضغط هنــــــــا اخي ان شاء الله تكون افضل و لكن الموضوع يحتاج شوية جهد مع قراءة مع متابعه و هنا فرصة جيده لانك تري الطلب و حل الطلب و اكواد الحل ادعو الله لك بالتوفيق و اي شئ تحتاجه لن نتاخر به عنك خالص تحياتي

السلام عليكم اخي لتكون القيمة التي بالخليه هي الشهر او السنه او اليوم لا تغير المعادله اي اجعلها كما هي =today() و لكن غير في تنسيق الخليه كليك يمين علي الخليه ثم اختار format cells ثم في تبويب Number حدد اخر كلمة و هي custum وفي الخانه المتاح للكتابة بها تحت كلمة Type: اذا كنت تريد اليوم كرقم اكتب d او يي و ان كنت تريده كختصار لاسم اليوم اكتب ddd ان كنت تريده لاسم اليوم كامل اكتب dddd كذلك بالنسبة للشهر ستكون m بدلا من d و كذلك بالنسبه للسنه ستكون yy لاختصار السنه و yyyy لكامل السنه ارجو ان يكون هذا ما تقصده تحياتي

السلام عليكم اخي abouelhssan انظر الي الملف المرفق طريقة العمل تم عمل اسم الشيت علي اسماء ارقام الاشهر ليسهل التعامل معها غير اسم الشيت الي اسم الشهر الذي تريده و اضغط علي اي خليه بالشيت ليشعر الكود بالتغيرات و انظر الي التغيرات التي تتم علما بانه لو ان الشهر 28 او 30 يوم سيتم اخفاء العمود الاخير او الاعمده الاخيره و ان كان 31 يوم سيتم اظهار الاعمده المخفيه جرب و اخبرني النتيجة تحياتي Month.rar

السلام عليكم اخي اتمني ان يكون ما فهمته هو المطلوب تحياتي Book1.rar

السلام عليكم بالفعل معلومه جديده بارك الله فيك اخي تحياتي

السلام عليكم بعد اذن اخي الحبيب نزار اضافة الي ملف اخي نزار هناك طريقة اخري تحياتي _____________.rar

السلام عليكم اشكرك اخي الحبيب justice علي مرورك و بارك الله فيك

السلام عليكم اخي وجدت ان جزء من الكود يجب اختصاره تحياتي ___________________________________.rar

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