نصر الإيمان

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

تسلم استاذ زيزو من كل سوء لكن يوجد ملاحظه : عند عندم وجود اللون الأحمر لا يتم عمل الكود ( هل ينفع التعديل بدون وجود اللون الأحمر) كما بالصورة مع وجود صف فارغ بين كل 3 صفوف (مع عدم تأثير تسلسل الأرقام بهذا الصف الفارغ)

جزاك الله خيرا لكن الأرقام أريدها كاملـــه(1 -2 3) فراغ (4 -5 - 6) "مع وجود صف فارغ بين كل ثلاثة ارقام" حضرتك عملتها ( 1 - 2 -3) فراغ ( 5 -6 - 7)

طب حضرتك لو عاوز الترحيل " كل ثلاثة صفوف يتم ترك صف" وهو الذي باللون الأحمر كما بالصورة أنا آسف تعبت حضرتك معايا ترحيل مماثل1.xlsm

بارك الله فيك استاذي!!! عاجز عن شكرك

جزاك الله خيرا استاذ زيزو العجوز عاجز عن شكرك طيب معلشي لو عاوز ارحل عمود واحد فقط وليكن الثالث ( الإسم) ماذا سيكون الكود

السلام عليكم أريد ترحيل البيانات الموجوده بالملف ولكن دون حذفها عند الترحيل من الورقه الأساسيه ترحيل مماثل.xlsm

جزاك الله خيرا تسلم من كل سوء ولكن عند فتح الفورم -- والضغط على زر (shift) يعطي رسالة خطآ!!!!!

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

السلام عليكم ورحمة الله وبركاته ،،، هذا الشيت يعلم الله حاولت ان انجزه ولكن لم استطع فهل من مساعده فالملف خاص بتيسير المواد بعدرصدالدرجات،، والمطلوب موجود بالملف... جزاكم الله خيرا cood1.rar

السلام عليكم ورحمة الله وبركاته،،، يوجد بالملف المرفق ورقتان( DATA ،،،التفريغ ))) في صفحة التفريغ وقي العمود الخاص ب ( المشرف) ...عند تحديد المجموعه الأولى والثانية فقط وسحبها لأسفل لنهاية المجموعة الثالثة... فإنها تعطي في خلية المجموعة الثالثة إسم مشرف المجموعه الأولى مرة أخرى الذي إسمه ( حسام)!!!! مع إنها المفترض تعطي اسم المشرف الخاص بالمجموعه الثالثة الذي اسمه (علي). فهل هناك من حل؟؟؟ خاصة وان كان عدد الخلايا كبير جداااااااااااااا... فإنه مرهق جدا أن أقوم بكتابة أول كل مجموعه وسحبها لأسفل..وهكذا في كل مجموعه)))) جهد كبير. سحب خلايا المشرفين لأسفل.rar

جزاك الله خيرا.....حرف (O).... انا قبل كدا قمت بتعديله بس عدلت حرف r معاه... شاكر فضلك وكرمك وسعة صدرك أستاذ ياسر

الملف الجديد تعديل1.rar

السلام عليكم ورحمة الله وبركاته ممكن شرح لهذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$P$1" Then Dim s As Worksheet Dim t As Worksheet Dim v As Variant Dim r As Long Set s = Sheets("تسجيل البيانات") Set t = Sheets("الكشوف النهائية") v = t.Range("P1").Value If Not IsNumeric(v) Or IsEmpty(v) Then t.Range("B14").Resize(6, 4).ClearContents: Exit Sub r = (v * 6) + 5 t.Range("B14").Resize(6, 4).Value = s.Range("A" & r).Resize(6, 4).Value End If End Sub ملحوظه : هذا الكود قد تم رفعه لأخي الفاضل الأستاذ ياسر خليل في هذا الملف جلب بيانات3.rar لأني أريد أن تكون بيانات الجدول في الصفحة الأولى في وسط الصفحه وليس من بدايتها وجزاكم الله خيرا

جزاك الله خيرا اخي انا في حرج منك... من كثرة الأسئله.. قمت بربط الأداة بالخلية... والعمل تمام... والأرقام تتصاعد وتتنازل معي....لكن لابد من ادخال رقم الخليه يدوي حتي يتم احضار البيانات في الجدول...لا اعرف لماذا ؟؟؟ جلب بيانات3.rar