الحسامي

السلام عليكم ما شاء الله عليكم اخي الحبيب عادل رايق وفنان وصحيح الخطأ الذي ذكره الاخ ناتج عن الاظهار والاخفاء بارك الله فيك

اخي العزيز اعتقد ان المشكلة لديك ناتجة عن وجود خلايا مدمجة فمثل هذه الاكواد التي تقوم بفحص الخلايا قد تنتج عنها اخطاء نتيجة دمج هذه الخلايا .. وكما وصف احد الاعظاء عملية دمج الخلايا بأنها العدو الاول للاكواد وهذا الصحيح ويمكنك تفادي هذه الاخطاء باستخدام الكود التالي في بداية الماكرو On Error Resume Next اما الخطأ (400) الناتج فالذي اعلمه بأن هذا الخطأ ينتج عند استخدام الفورم وعملية اضهاره واخفاءه وعند استخدام الامر Visible ... والله أعلم

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

السلام عليكم ما شاء الله عليك اخي عادل مبدع وفكرة الكود اكثر من رائعة -------------------------------------------- اخي ابو عاصم هذه الاشكال تعامل معاملة الخلايا اي قم بربطها بالخلية بواسطة شريط المعادلات واستخدام اشارة اليساوي = وهنا المرفق ربط الرسم بالمعادلات.rar

السلام عليكم اخي الكريم ما المطلوب انت ارفقت الملف بدون تحديد ما تريد ارجو تحديد المطلوب وستجد الكثيرين سيساعدون

السلام عليكم ما شاء الله عليك اخي كيماس مبدع وبحق فكرة الكود اقل مايمكن ان يقال عنها انها اكثر من رائعة ومن بعد اذنك اود مشاركتكم بهذا الحل ترحيل بيانات2.rar

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

المجموعة الخامسة المجموعة الخامسة.rar

المجموعة الرابعة المجموعة الرابعة.rar

المجموعة الثالثة المجموعة الثالثة.rar

المجموعة الثانية المجموعة الثانية.rar

السلام عليكم ورحمة الله وبركاته هنا بعض الايقونات والازرار قد يستفيد منها البعض وهي خمسة مجموعات سترسل تباعا المجموعة الاولى.rar

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

السلام عليكم ورحمة الله وبركاته ما شاء الله عليك اخي عادل وفعلا المشكلة في اعدادات الجهاز والله اعلم ومن بعد اذنك ولاثراء الموضوع هنا حل اخر Date.rar

السلام عليكم كم افتقدت وجودي بينكم في الفترة السابقة ولكن قدر الله وما شاء فعل عموما هنا هدية العودة برنامج دخول للمستخدمين مع صلاحيات محددة لدخول الصفحات وقد تم اضهار صفحة الصلاحيات بشكل مؤقت وهي بالاساس يجب ان تكون مخفية وتم عمل البرنامج باسلوب جديد وباستخدام فورم واحد فقط ... وسارفق في اقرب فرصة ملف اخر باسلوب اقل بساطة باسورد الدخول : 1111 صفحة صلاحيات ديناميكية.rar

ما شاء الله عليك اخي كيماس بارك الله فيك

السلام عليكم اخي احمد بارك الله فيك لا حدود للاكسل وهو بحر كبير لا ينضب ونعم جوابك كان بالنسبة للكود بعينه ولا اخفبك عجزت في تعديله حتى يتقبل اكثر من 10 اسطر ولكني لم افلح ولكن اجزم ان هناك حل لذلك على العموم كان الفورم للبحث فقط في عمود الاسم وهنا مرفق معدل للبحث في الجلوس واسم المدرسة واسم الطالب ويمكنك تعديله باكثر من هذه البنود مع العلم كودك المستخدم اخي احمد اكثر فاعلية واقل تشعبا هنا المرفق الطلبة1.rar

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

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

السلام عليكم اخي سعد شاهد المرفق لكن يجب ادخال رقم العميل قبل ادخال رقم الصنف حتى يتم احتساب السعر ... تذكر ذلك كشف حساب.rar

السلام عليكم يمكنك كذلك استخدام الكودين التالين For Each sh In ThisWorkbook.Worksheets sh.Visible = True If sh.Name <> "Welcom" Then sh.Visible = False Next sh For Each sh In ThisWorkbook.Worksheets sh.Visible = True Next sh Worksheets("Welcom").Visible = False

السلام عليكم اخي الكريم هنا يجب عليك استخدام كودين الاول عند فتح البرنامج لاخفاء الازرار ومسح الخلية استخدم الكود التالي في الحدث Workbook_Open Private Sub Workbook_Open() Feuil1.Range("b3").ClearContents For i = 2 To 5 Feuil1.Shapes("CommandButton" & i).Visible = False Next i End Sub والكود التالي في حدث التغيير للصفحة Worksheet_Change لاضهار الازرار عند ادخال كلمة السر Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b3")) Is Nothing Then If Target = 123 Then For i = 2 To 5 Shapes("CommandButton" & i).Visible = True Next i End If End If End Sub كامة السر 123 وهنا مرفق Cache123.rar

السلام عليكم اخي جمال اما ان يكون سؤالك بسيط او ان يكون مبهم ف listbox لا حدود لها في عدد الاعمدة وتستطيع اضافة اكثر من عشرة اعمدة من خلال خاصية columnCount ضع عدد الاعمدة المراد للقائمة احتوائها من اعمدة ويجب التحكم بعرض هذه الاعمدة من خلال خاصية ColumnWidths

السلام عليكم عمل اكثر من رائع كما هي جميع اعمالك وكما قلت انت فانها بداية لعمل اشياء اخرى لذا سننتظر منك المزيد -------------------------------- مجرد مداخلة ( وحتى لا يتم فهمي بشكل خاطئ ) ليس الموضوع هنا سؤال وايجاد حل له ولكن الموضوع هو عمل دالة بالكود وآلية عملها وكما قال اخي عادل هي بداية لشئ اكبر من هذه الدالة والله من وراء القصد

السلام عليكم جزاكم الله خيرا واذا تسمحوا للمشاركة معكم ولائراء الموضوع وتنشيط الذهن هنا حل اخر بالكود وكما قال اخي عادل ان لن تنفع فلن تضر TTA1.rar