رجب جاويش

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

أخى الفاضل / مهند شكرا جزيلا أخى الفاضل على الاستجابة السريعة وجزاك الله كل خير الرجاء المزيد من التوضيح حتى يتمكن الإخوة من المساعدة وعمل اللازم ما هى الصفحة المطلوب فيها الفورم وما هى الصفحات المراد الترحيل اليها وهكذا

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

أخى الفاضل / الأستاذ : محمد يوسف محمد شرفنى جدا مرورك العطر وكلماتك الطيبة فجزاك الله كل خير

أستاذى الحبيب / عبد الله باقشير لمسات سحرية بارك الله فيك

أخى الفاضل الكود مظبوط ولكن هناك اختلاف فى البيانات بين الصفتحين حيث توجد أسماء فى الصفحة الثانية ( هيئة النقل ) غير موجودة فى الصفحة الأولى ( معلومات )

السلام عليكم تفضل أخى 2.rar

أخى الفاضل / الأستاذ : خالد القدس شرفنى جدا مرورك العطر وكلماتك الطيبة فجزاك الله كل خير

أخى الفاضل / صباح الجابري شكرا جزيلا أخى الفاضل على الاستجابة السريعة وجزاك الله كل خير تم تحميل الملف وجارى عمل اللازم ان شاء الله

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

أستاذى الحبيب / عبد الله باقشير سلمت يمينك وبعد اذن أستاذى الحبيب ولاثراء الموضوع هذا حل عن طريق كود فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub For i = 3 To 600 Step 10 If Not Intersect(Target, Cells(i, "H")) Is Nothing Then Range(Cells(i, "H"), Cells(i + 9, "H")) = Target Range("B3:B12").Copy Range(Cells(i, "G"), Cells(i + 9, "G")).PasteSpecial xlPasteValues End If Next Application.CutCopyMode = False End Sub نسخ _متكرر.rar

أخى الفاضل / الأستاذ : خالد الشاعر شرفنى جدا مرورك العطر وكلماتك الطيبة فجزاك الله كل خير

أخى الحبيب / الأستاذ : محمد أبو البراء شرفنى جدا مرورك العطر وكلماتك الطيبة فجزاك الله كل خير

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

أخى الفاضل / عادل شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير

أخى الفاضل / الأستاذ : جلال شرفنى جدا مرورك العطر وكلماتك الطيبة فجزاك الله كل خير

أخى الحبيب / الأستاذ : ضاحي الغريب شرفنى جدا مرورك العطر وكلماتك الطيبة فجزاك الله كل خير

أخى الفاضل / الأستاذ : الشهابي شرفنى جدا مرورك العطر وكلماتك الطيبة فجزاك الله كل خير

أخى الفاضل / الأستاذ : سفاري شرفنى جدا مرورك العطر وكلماتك الطيبة فجزاك الله كل خير

أخى الفاضل / حمادة باشا جزاك الله كل خير على كلماتك الطيبة

تفضل أخى مع تعديل بسيط فى الملف بفصل تاريخ الدرجة فى خانة منفصلة تسطيرة جديدة1.rar

أخى الفاضل / الأستاذ : الشيباني1 جزاك الله كل خير

أخى الفاضل / الأستاذ : الجزيرة شرفنى جدا مرورك العطر وكلماتك الطيبة فجزاك الله كل خير وإن شاء الله أحاول تنفيذ فكرتك

أخى الفاضل / الأستاذ : سفاري شرفنى جدا مرورك العطر وكلماتك الطيبة فجزاك الله كل خير وبالنسبة لنقل الفورم من ملف الى ملف آخر اليك التوضيح بالصور وهو من شرح الأستاذ الكبير / عبد الله باقشير شرح لكيفية نقل فورم من ملف الى ملف.rar

أخى الفاضل يمكنك وضع المعادلة الآتية فى التحقق من الصحة =OR(A2<50;A2="غ") كما فى المثال التالى تحقق من الصحة.rar