الأخ الكريمفايز فراج
هذا الصرح الشامخ هدفه الأساسى ان نتعلم كل يوم الجديد ونستفيد ونفيد .
عن النبي صلى الله عليه وسلم (من كتم علماً ألجم يوم القيامة بلجام من نار)
الأخ الكريمحسين22
السلام عليكم
جرب الماكرو التالى
Sub abo_abary()
With Selection
.Cut
.Offset(0, -1).Value = .Offset(0, 0).Value
.Offset(0, 0).Value = ""
.Offset(0, 1).Value = Date
End With
End Sub
لأخ الكريمnahfehh
السلام عليكم
يرجى الأطلاع على قواعد المنتدى بتغيير الأسم الى اللغة العربية
لست افهم ما المقصود بتعديل الأسم الرجاء ارفاق ملف كمثال فية طلبك مع بعض النتائج المطلوبة
الأخ الكريم ياسر سيد أبوستيت
السلام عليكم
لقد تم تنفيذ المطلوب رقم 1 وتم الترحيل على اساس العمود ( الحالة العامة )
وجارى العمل على باقى المطلوب نظرا لكثرتها
http://www.mediafire.com/download/pjksa6irtkn9cen/abo_abary_المدرسة_المصرية.rar
الأخ الكريمnahfehh
السلام عليكم
يرجى الأطلاع على قواعد المنتدى بتغيير الأسم الى اللغة العربية
جرب المرفق التالى لعلة يفى بالغرض .
abo_abary_ترحيل واستعلام.rar
اخى الكريم الشربيني123
اولا لم ترد على هل تم الترحيل فى شيت رصد الدور الثانى ام لا
ثانيا بعد شرح المطلوب بالتفصيل جرب المرفق التالى
ثالثا التنسيق الشرطى لمادة القرآن والتجويد باللونين ( الرصاصى فى حالة رسوب المجموع الكلى والأحمر فى حالة رسوب القصل الدراسى الثانى )
abo_abary_تصميم شيت1.rar
اخى الكريم الشربيني123
السلام عليكم جرب المرفق التالى تم فية ايضا تعديل التنسيق الشرطى لمادة اللغة العربية الى لونين ( الرصاصى فى حالة المجموع الكلى والأحمر فى حالة التحريرى )
abo_abary_2 ملف.rar
abo_abary_2 ملف.rar
الأخ الكريم
جرب هذا الكود
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("D2").Select
ActiveWindow.FreezePanes = True
End Sub
قم بتغيير عنوان الخلية التى تريد التجميد من عندها
abo_abary_تجميد الأجزاء.rar