أبو حنــــين

ربما انك لم تحدد المجال : من القائمة : إدراج -------> ثم الاسم --------> تعريف و تكتب الكلمة : Plage ثم تذهي الى الاسفل تجد : يشير الى انسخ الدالة التالية هناك =OFFSET(accounts!$C$2;;;COUNTA(accounts!$C:$C)-1)

بعد التعديل البسيط الملف يعمل عندي جربه و اخبرني فورم لحفظ نسخة.rar

جرب المرفق اخي Book1.rar

قم بضغطه ببرنامج ضغط مثل WinRAR ثم اضغط على : خيارات اضافية للرد في اسفل الصفحة ثم حدد مسار الملف من : تصفح ثم اضغط على : ارفق هذا الملف ثم اضغط على : اضف رد

العفو اخي الحبيب عبد الله

او لحماية خلية تحتوي على معادلة يكفي ان نستعمل Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub

ان كنت اخي تقصد comboBox الموجود تحت جملة : اختار اسم المدرس من القائمة ادناه ـ 1 اضغط على comboBox ـ 2 اذهب الى خصائص و من الخاصية : TextAlign اختر قم 2 اي : 2 - fmTextAlignCenter

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

هل تقصد هكذا مثال توضيحى.rar

اخي المشكلة كانت في الخلية I29 التي كانت تحتوي على فراغ حدد الخلايا I27 و I28 و I29 و قم بمسحها و الله اعلم مثال توضيحى.rar

العفو اخي فهد

اخي اعتقد و الله اعلم انه يجب وضع المعادلة التالية في الخلية I6 =SUBTOTAL(9;I8:I501)

هذا مثال آخر انجزته لك و يحتوي على الكثير من الميزات يمكنك استغلاله 1.rar

راجع هذا الرابط http://www.officena.net/ib/index.php?showtopic=41782&hl=

يمكنك استعمال الكود Sheets(i).Protect Password:=x حيث x هي كلمة المرور و لفك الحماية Sheets(i).Unprotect Password:=x و i هو اسم الورقة

لم افهم هل تريد إضافة ورقة جديدة تكتب فيها البيانات ثم ترحل الى ورقة dailyd1ary

بهد اذن اخي الاستاذ طارق هذه الطريقة بالكود لكن بشرط ان تحافظ عل : ـ 1 ) التواريخ تكون مرتبة ترتيب تصاعدي مثل المرفق ـ 2 ) ان يبقى العمود C يحتوي على تسلسل الارقام 1 ، 2 ، 3 ، 4 ......... الى آخره الكشف اليدوي2.rar

اخي الكريم ahmd2505 عظم الله أجركم ورحم ميتكم و اسكنه فسيح جنانه و الهمكم الصبر و السلوان انا لله و انا اليه راجعون

معذرة اعتقد ان الكود يحتوي على خطأ ساصلحه و ارسله

غير الكود الموجود في الحالة الاولى بالكود التالي Private Sub CommandButton1_Click() With Application .ScreenUpdating = False .EnableEvents = False For s = 1 To 400 For t = 1 To 9 If Cells(s + 1, t + 2).Value = 0 And Cells(s + 1, 4).Value = 0 Then Cells(s + 1, t + 2).EntireRow.Hidden = True Else Cells(s + 1, t + 2).EntireRow.Hidden = False End If Next Next .ScreenUpdating = True .EnableEvents = True End With End Sub

صدقني اخي محمود و الله لم اجاملك ، انها الحقيقة و ما اكتسبناه في هذا المنتدي ليس الدوال و الاكواد بل الاخوة

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

السلام عليكم قمت بالتعديل و هو يعمل بصورة طبيعية فورم لحفظ نسخة تعديل.rar

هل تقصد الصفوف او الاعمدة ؟ هذه المحاولة لاخفاء الصفوف الفارغة الزر الاول يخفي الصفوف C و D عندما تكون فارغة الزر الثاني يخفي الصفوف C أو D عندما تكون فارغة الزر الثالث يرجع الصفوف مرئية يومية1.rar

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