منير الاسد

هل من مساعدة بارك الله فيكم

السلام عليكم و رحمة الله و بركاته في المثال اسفله لدي كود بحيث كلما يقوم باضافة شيت تدريجيا كلما ضغطت على زر Ajouter un mois ما اريده هو تعديل الكود بحيث عند الضعط على زر ajouter un mois و بالاضافة الى ما يقوم به الكود اي اضافة شيت اخر ان يتم نسخ العمود J من الشيت السابق و المسمى fevrier-2015 الى العمود H في الشيت الناتج و الذي سيحمل اسم Mars-2015 وهكذا دواليك اي عند الضعط على ajouter un mois في الشيت Mars-2015 ان يتم نسخ العمود J من هذا الشيت الى العمود H في الشيت الناتج و الذي سيحمل اسم avril-2015 بارك الله فيكم Matériel fd.zip

بارك الله فيك اخي ياسر الكود 100% كيف يمكنني تغيير الاسم الى العربية ؟؟

بارك الله فيك اخي ياسر الكود يعمل م لكن اريد ان لا يقوم الكود بوضيفته الا عندما اضغط على زر و ليس كلما اضفت التاريخ اوتوماتيكيا حمعة مباركة

السلام عليكم و رحمة الله و بركاته في المثال اسفله اريد كود بحيث كلماتمت اضافة تاريخ في اي خلية من الخلايا الموجودة في العمود Eان يتم حذف السطر باكمله بارك الله فيكم Classeur1.zip

اخي العيدروس الكود في الشيت الذي يضاف اي mars-2015 لا تضهر في العمود A : 29-Mars 30-Mars 31-Mars مع العلم ان في الشيت Fevrier-2015 كانت هذه الخلايا اي A41 A42 A43 موجودة و بها معادلات

السلام عليكم و رحمة الله و بركاته في الملف اسفله لدي كود يسمى newmonthsheet بحيث كلما ضغطت على زر ADDSHEET الموجود في الشيت المسمى Février-2015 يتم اضافة شيت Mars-2015 و يتم حذف الاسطر التي بها التواريخ المكررة في العمود A ولكن المشكل في الكود هو انه يقوم بحذف حتى الاسطر التي بها خلايا فارغة في العمود A بحيث ان في الشيت الناتج المسمى MARS-2015 التواريخ ما بعد 28Mars لاتظهر اتمنى من احد الاخوان الخبراء ان يتم حل هذا المشكل و الموجود في هذه الفقرة من الكود newmonthsheet : Lg = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row Application.ScreenUpdating = False For i = Lg To 2 Step -1 If WorksheetFunction.CountIf(Range("a:a"), Cells(i, 1)) > 1 Then Rows(i).Delete Next i بارك الله فيكم Suivi beton.zip

اخي KHMB ما اريده هو تعديل في الكود المسمى newmonthsheet بحيث كلما ضغطت على زر ADDSHEET الموجود في الشيت المسمى février-2015 ان يتم اضافة شيت mars-2015 وان يتم حذف الاسطر التي بها التواريخ المكررة في العمود A وان لا يتم حدف الاسطر التي بها الخلايا الفارغة في العمود A

السلام عليكم و رحمة الله و بركاته في الملف اسفله لدي شيت به كود يقوم باضافة شيت تدريجيا كل شهر وحذف التكرار الموجود في العمود A اريد تعديله لكي لا يقوم بحذف الاسطر التي تكون بها خلايا فارغة في العمود A بارك الله فيكم Suivi beton.zip

بارك الله فيك اخي العيدروس الان الكود يعمل 100%

اخي ياسر الخليل لما اضغط على حدف الشيت يتم بالفعل حذف السطر المراد حذفه و لكن المشكل ان اسماء الشيتات تختفي و لا تضهر الا عندما اضغط على ENTER في احد الخلايا الموجوده في العمود B

ممكن ان تجدوا لي الحل بارك الله فيكم

الكود لا يعمل اخي العيدروس

السلام عليكم و رحمة الله و بركاته في الملف اسفله لدي شيت به كود يقوم بحذف الورقة التي نختار حذفها من المربع و لدي كذالك العمود B الموجودة به اسماء الشيتات المطلوب هو تعديل الكود بحيث كلما قمت بحذف شيت ان يتم حذف السطر الموجود به اسم الشيت اوتوماتيكيا Class.zip

بارك الله فيك اخي عادل حنفي

ساعدوني بارك الله فيكم

ساعدوني بارك الله فيكم

ساعدوني بارك الله فيكم

السلام عليكم و رحمة الله وبركاته لدي طلب صغير اتمنى من الاخوان ان يجدوا لي الحل في الملف اسفله لدي كود بحيث كلما ضغطت زر ADD SHIT يقوم باضافة ورقة جديدة و لكن ما اريده هو بالاضافة الى ما يقوم به الكود اريد كلما اضفت ورقة جديدة ان تتقير الخلايا التالية وفق الجدول الموجودة في الشيت المسمى ECHANCIER بحيث : في الورقة الثانية المضافة اي SIT-2 الخلية C22 تاخد القيمة الموجودة في D15 في الشيت ECHANCIER و في الورقة الثالثة الخلية C22 تاخد القيمة D16 و هكذا دواليك وفي الورقة الثانية المضافة اي SIT-2 الخلية D34 تاخد القيمة الموجودة في F15 في الشيت ECHANCIER و في الورقة الثالثة الخلية D34 تاخد القيمة F16 و هكذا دواليك وفي الورقة الثانية المضافة اي SIT-2 الخلايا من E21 الى E42 تصبح هي الخالايا من D21 الى D42 الموجودة في الورقة الاولى اي SIT-01 بارك الله فيكم Situations CHB (Marché).zip

السلام عليكم و رحمة الله و بركاته الكود اسفله يقوم بحذف الاسطر التي بها تكرار في العمود A في النطاق A1 - A20 في الورقة FEUIL1 المطلوب هو تغيير الكود لكي يعمل على جميع الاوراق الموجودة و الاوراق التي ساقوم باضافتها مستقبلا و ليس فقط ورقة واحدة Classeur1.zip