احمد سعد etr

اولا متشكر لحضرتك جدااا بس للاسف الترتيب لما يتغير انا عايز عمود رقم " 9 " او عمود " i " هو اللى يرتب لوحده انا عملت اجتهاد شخصى كده ياريت لو حضرتك تشوفه بس للاسف بعد ما بيتم اداخال البيانات فى الخانه مش بيمسح ليا انى اعمل undo على الخانه تانى ومش عارف ليه الكود ده كتبته فى ال Worksheet للورقه الاولى Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False If Target.Column = 9 And Target.Row > 2 Then [A2:p2500].Sort [i1], xlAscending End If Application.ScreenUpdating = True End Sub اجمالي عماله العقاد الثالث نهائي.rar

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

متشكر جدا استاذ رجب و ربنا يبارك فيك الف الف الف شكر تحياتى لحضرتك

السلام عليكم و رحمه الله باختصار علشان مش اطول ازاى ممكن اكتب كود يظهر رساله تأكيد بعد ادخال بيانات اليوزفورم مثلا لو اليوزرفورم خاص باضافه عمال لما يتم الضغط على اضافه عامل مثلا يظهر رساله " تم اضافه عامل ..... او حاجه زيى كده مثلا انا شوفتها ف المنتدى هنا و للاسف مش فاكر فين و البحث عنها صعب شوية ياريت الافاده و متشكر جدا مقدما :)

انا جديد ف حكايه الاكواد و اليوزر فورم و اتعرفت عليهم من المنتدى هنا بس انا مش عارف طريقه ثابته اعرف بيها اكواد الترحيل و خصوصا انا شغلى على اكتر من شيت ومش ينفع انقل كل الاكواد لكل شيت انا مش عارف اازاى احدد الخليه اللى هبدأ فيها الترحيل و ازاى انقل بعد الانتهاء من السطر للسطر اللى بعده هل فيه طريقه محدده للخطوة دى ولا لازم نتعامل مع كل شيت لوحده وفيه كود انا مش عارف افهمه خالص لاقيته موجود ف احد المواضيع ف المنتدى فيه الكود ده _ (iRow = ws.Cells(Rows.Count, 1 .End(xlUp).Offset(1, 0).Row بصراحه انا مش فاهم حاجه و عايز بس اعرف ازاى احدد خليه الترحيل و الانتقال للسطر التالى عموما مش شرط يكون ف الشيت ففقط اللى رفعته يعنى هل فيه طريقه ثابته افهمها او اعرفها اتعامل بيها على طول اسف على الطاله بس زيى اللى هيشوف فى الشيت عدد العمال اللى موجودين ف الشيت فوق ال1600 عامل وطبعا اليورزفورم بالنسبه ليا رحمه جدااا ياريت اهل الخبره تساعدنى وانا متشكر جدا على كل حال اجمالي عماله العقاد الثالث نهائي.rar

انا فيه حاجه مش فاهما ف الكود و هى ازاى احدد الخليه اللى هبدا فيها الترحيل و بعد اضافه البيانات هنقل للسطر اللى تحته ازاى بالاخص الكود ده مش فاهم اتعمل ازاى _(iRow = ws.Cells(Rows.Count, 1 .End(xlUp).Offset(1, 0).Row وطبعا مجهود رائع جدااا و ربنا يبارلك لحضرتك على الافاده