اذهب الي المحتوي
أوفيسنا

حسونة حسين

أوفيسنا
  • Posts

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

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

  • Days Won

    32

كل منشورات العضو حسونة حسين

  1. السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل اخى Sub Transfer_Non_Adjacent_Columns() Dim WS As Worksheet, SH As Worksheet Dim LR As Long Set SH = ThisWorkbook.Worksheets("صفحة العمل") Set WS = ThisWorkbook.Worksheets("ترحيل الشراء") LR = WS.Cells(Rows.Count, 1).End(xlUp).Row + 1 With WS.Cells(LR, "A").Resize(4, 1) .Value = SH.Range("A12").Value .Offset(0, 2).Value = SH.Range("B11:B15").Value .Offset(0, 3) = SH.Range("J3:J7").Value .Offset(0, 4) = SH.Range("D3:D7").Value .Offset(0, 5) = SH.Range("I3:I7").Value .Offset(0, 6) = SH.Range("E11:E15").Value .Offset(0, 7) = SH.Range("F11").Value SH.Range("A12").Value = SH.Range("A12").Value + 1 End With
  2. لم ترد على سؤالى لانى مسحت البيانات وجربت الكود بعد التعديل الذي وضعته لك والكود ياتى بالبيانات في الشيت المطلوب ENTP-SH
  3. لم ترد على سؤالى لانى مسحت البيانات وجربت الكود بعد التعديل الذي وضعته لك والكود ياتى بالبيانات في الشيت المطلوب ENTP-SH
  4. وجزاكم مثله اخى وليد هذا رابط يشرح الخطا
  5. السلام عليكم ورحمه الله وبركاته وبها نبدأ تفضل اخى هاشم نموذج كنترول .xlsm
  6. وعليكم السلام ورحمه الله وبركاته جرب هذا التعديل اخى الكريم Sub Copie_sh() Application.EnableEvents = False Sheets("ENTP-SH").Range("E13:AI72").Value = Sheets("ENTP.EL AMINE G").Range("E13:AI72").Value Sheets("ENTP-SH").Range("E101:AI164").Value = Sheets("ENTP.EL AMINE G").Range("E101:AI164").Value Application.EnableEvents = True End Sub
  7. وعليكم السلام ورحمه الله وبركاته جرب هذا التعديل 2020شيت مدرستى - الصف الرابع-.zip
  8. وجزاكم مثله اخى الكريم الحمد لله الذي بنعمته تتم الصالحات
  9. وعليكم السلام اخى @محمد عدنان طلبك من البدايه كان ترحيل صف واحد وهو في الخليه b4 من شيت data وهذا ما تم عمله اختر افضل اجابه لسؤالك وافتح موضوع جديد بالطلب الجديد وان شاء الله تجد مطلبك سواء منى او من الاساتذه
  10. الحمد لله الذي بنعمته تتم الصالحات وفيك بارك اخى الكريم
  11. تفضل اخى محمد جرب هذا التعديل نسخة من دفتر علامات 2022.xlsm
  12. اخى محمد عدنان هذا الموضوع يمكنك الاستفادة منه
  13. وعليكم السلام ورحمة الله وبركاته تفضل اخى الكريم Me.TextBox3.Value = Me.TextBox1.Value & " " + Me.TextBox2.Value
  14. وعليكم السلام ورحمة الله وبركاته ممكن صورة للكود المستخدم وصورة لاسماء الشيتات في صفحه الكود
  15. اخى محمد عدنان اطلع على هذا الموضوع هل هو ما تريد فعله ام لا
  16. وعليكم السلام ورحمة الله وبركاته اخى محمد عدنان حضرتك عايز ترحل من الخليه رقم كام ؟ الى الخليه رقم كام ؟ ومن العامود رقم كام ؟ الى العامود رقم كود ؟ ممكن تعمل صورة لشكل النتائج التي تريدها يدوي ليفهم الاخوة ما تريد
  17. السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل اخى برنامج نمازج (1).xlsm
  18. الحمد لله الذي بنعمته تتم الصالحات
  19. كتبت لك معادله تكتب يوم الميلاد وشهر الميلاد وسنة الميلاد لو اليوم والشهر مظبوطين في المعادله في المعادله بلغنى عدد 291 موظف.xlsx
  20. ارفق ملفك الذي به مشكله التواريخ وياريت تظلل التواريخ اللي فيها مشكله بلون اصفر مثلا
  21. حدد عامود التاريخ كله ثم من قائمه data اختر text to columns سوف تظهر لك هذه الصورة اختر next ثم تظهر هذه الرساله اختر كما بالصورة date ثم finish
  22. الشكر لله الحمد لله الذي بنعمته تتم الصالحات
  23. آمين يارب العالمين وجميع المسلمين
  24. السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل اخى احمد مشكله ملفك ان التواريخ لم تكن بصيغه تواريخ تم التعديل في المرفق عدد 291 موظف.xlsx
  25. الحمد لله الذي بنعمته تتم الصالحات المشرف هو من يحذف المواضيع المكررة ان احتجت حاجه تانيه أعرض مشكلتك وستجد من يحلها لك ان شاء الله وجزاكم الله خيرا على دعائك الطيب
×
×
  • اضف...

Important Information