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

احمد سعد etr

عضو جديد 01
  • Posts

    6
  • تاريخ الانضمام

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

مشاركات المكتوبه بواسطه احمد سعد etr

  1. اولا متشكر لحضرتك جدااا 
    بس للاسف  الترتيب لما يتغير 
    انا عايز عمود رقم " 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

  2. السلام عليكم و رحمه الله

    الموضوع باختصار شديد 

    انا عايز ارتب عود  " Id الموظف " ترتيب تلقائى من الاصغر للاكبر مع بناء على متغيرات العمود 
    يعنى كل ما يتم ادخال عامل فى العمود يتم ترتيبه تلقائى بدون فلتره او فرز  و ده نظرا لضخامه عدد العمال فى الملف 

    اجمالي عماله العقاد الثالث نهائي.rar
    انا شوفت كود بيعمل كده بس مش بالظبط كان تقريبا لترتيب طلاب بناء على مجموعه درجات 

    ومتشكر جداااااااااا مقدما 
    وياريت بعد اذنكوا لو يتم شرح اللى حصل 

     

  3. السلام عليكم و رحمه الله

    باختصار علشان مش اطول 

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

    انا شوفتها ف المنتدى هنا و للاسف مش فاكر فين و البحث عنها صعب شوية 
    ياريت الافاده و متشكر جدا مقدما  :)

  4. انا جديد ف حكايه الاكواد و اليوزر فورم و اتعرفت عليهم من المنتدى هنا 
    بس انا مش عارف طريقه ثابته اعرف بيها اكواد الترحيل و خصوصا انا شغلى على اكتر من شيت ومش ينفع انقل كل الاكواد لكل شيت 

    انا مش عارف اازاى احدد الخليه اللى هبدأ فيها الترحيل و ازاى انقل بعد الانتهاء من السطر للسطر اللى بعده 

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

    وفيه كود انا مش عارف افهمه خالص  لاقيته موجود ف احد المواضيع ف المنتدى فيه الكود ده 

    _ (iRow = ws.Cells(Rows.Count, 1
    .End(xlUp).Offset(1, 0).Row

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

    يعنى هل فيه طريقه ثابته افهمها او اعرفها اتعامل بيها على طول 

    اسف على الطاله 

    بس زيى اللى هيشوف فى الشيت عدد العمال اللى موجودين ف الشيت فوق ال1600 عامل وطبعا اليورزفورم بالنسبه ليا رحمه جدااا 


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

    اجمالي عماله العقاد الثالث نهائي.rar

  5. انا فيه حاجه مش فاهما ف الكود و هى ازاى احدد الخليه اللى هبدا فيها الترحيل و بعد اضافه البيانات هنقل للسطر اللى تحته ازاى 

    بالاخص الكود ده مش فاهم اتعمل ازاى 


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

Important Information