ibn_egypt

من تخطيط الصفحة Page Layout نختار طباعة العناوين Print titles نقف على الصفوف المكررة في الاعلى rows repeated at top نحدد الصفين الاول والثانى ونضغط موافق تحياتى

أخى الفاضل أ.عادل اسف بجد لم الاحظ انك اجريت تعديل على المشاركة الأخيرة وطلبت ان تكون Option Buttons بدلا من ال Check Boxes الا بعد رسالتك تفضل مرفق ملف به المطلوب تحياتي List_Options.rar

أخى الفاضل الجموعي الحمد لله ان تحقق هدفك، وضعتها في الترحيل حتى يتم اعادة الترقيم بعد الترحيل مع ان المفترض وضعها في الحذف وسيعاد الترقيم سواء في الحذف او الترحيل تخاريف اخر الاسبوع،ههههههه تحياتى

أخى الفاضل الجموعي لعل الملف المرفق هو المطلوب تحياتي تعديل على زر حذف.rar

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

أخى الفاضل أ.عادل دائما افكارك مبدعة، الموضوع بسيط ان شاء الله من قائمة المطور Developer قم بإدراج Check Box في الشيت ... تمام واضغط عليه Right-Click واختار تعيين ماكرو Assign Macro .. اختار الماكرو الذي تريده ... ثم اذهب وعدل الماكرو باضافة شرط فقط كما في الكود التالى Sub المتعاملين_في_النقدية() If ActiveSheet.CheckBoxes("Check Box 8") = xlOn Then Application.ScreenUpdating = False Set sh = Sheets("المتعاملين_في_النقدية") Ln = sh.[c9999].End(xlUp).Row Dim v For Each v In Array("خروج نقديه", "دخول نقديه") With Sheets(v) Set deb = .Range("G4:G" & .Range("G" & .Rows.Count).End(xlUp).Row) For i = 1 To deb.Rows.Count If deb(i, 1) <> "" Then If InStr(raj & ",", "," & deb(i, 1) & ",") = 0 Then raj = raj & "," & deb(i, 1) End If Next i End With Next v roy = Split(Mid(raj, 2), ",") sh.Range("c4").Resize(UBound(roy) + 1) = Application.Transpose(roy) Application.ScreenUpdating = True Else ActiveSheet.Range("C4:C100").ClearContents End If End Sub طبق هذا الأمر على الباقي بتغيير اسماء ال Check Boxes فقط" مرفق ملف به مثال واحد وطبق أنت الباقي.. تمام تحياتي قائمة بالاسماء من عمودين بشيتين فى عمود واحد بشيت مختلف.rar

اخي الفاضل ليس بالضرورة عمل بحث او استخدام اى دالة .. ممكن استخدام خاصية التصفية التلقائية AutoFilter .. جرب الملف المرفق لربما يفي بالغرص المطلوب .. لو تريد بيانات مدرسة معينة اكتب اى جزء من اسم المدرسة في C2 واضغط انتر، واذا كنت تريد بيانات مدرسين اكتب اى جزء من الاسم الثلاثي في F2 واضغط انتر واذا كنت تريدهم معا اكتب هنا وهنا واضغط انتر تحياتي اسماء مدرسين.rar

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

اخي الفاضل السلام عليكم ورحمة الله وبركاته راجع هذا الموضوع للأستاذ القدير حمادة عمر طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة تحياتي

اخي الفاضل السلام عليكم ورحمة الله وبركاته مرفق ملف به المطلوب .. تستطيع الوقوف على اى خلية في نطاق التنسيق الشرطي واختيار تنسيق شرطى ثم إدارة القواعد لترى المعادلة المكتوبة تحياتي Booook1.rar

أخى الفاضل بعد إذن أخى الكريم أبا الحسن والحسين، ولإثراء الموضوع مرفق ملف به ما تريد تحياتي اختر العام.rar

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

مجهود كبير ورائع من استاذ قدير، أدعوا الله ان يجعل عملك في ميزان حسناتك وان ينفع بك الاسلام والمسلمين تحياتى أخي وأستاذي الفاضل وابن بلدى الغالي ​على كل ما تقدمه أ.ياسر

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

أخى الفاضل تفضل التعديل المطلوب، جرب الكود التالي وغير الدرجات كما تريد Private Sub cmd_mark1_Click() Dim mark As Integer If Me.TextBox1.Value <> "" Then mark = Me.TextBox1.Value Select Case mark Case 0 To 7 MsgBox ("ضعيف") Case 8 To 10 MsgBox ("متوسط") Case 11 To 12 MsgBox ("جيد") Case 13 To 14 MsgBox ("جيد جدا") Case 15 To 18 MsgBox ("ممتاز") Case Is > 18 MsgBox "الدرجة العظمي 18", vbOKOnly + vbInformation, "تنبيه" Me.TextBox1.Value = "" Me.TextBox1.SetFocus GoTo 1 Case Else MsgBox ("توبيخ") End Select Else MsgBox ("من فضلك أدخل العلامة أولاً") GoTo 1 End If 1 End Sub تحياتي

اخى الفاضل بعد إذن أخى الحبيب ياسر، جرب هذا الكود Private Sub cmd_mark1_Click() Dim mark As Integer If Me.TextBox1 <> "" Then mark = Me.TextBox1.Value Select Case mark Case Is > 100 MsgBox ("علامة خاطئة") Me.TextBox1.Value = "" Me.TextBox1.SetFocus Case Is >= 18 MsgBox ("ممتاز") Case Is >= 15 MsgBox ("جيد جدا") Case Is >= 12 MsgBox ("جيد") Case Is >= 10 MsgBox ("متوسط") Case Is >= 7 MsgBox ("ضعيف") Case Is < 7 MsgBox ("توبيخ") End Select Else MsgBox ("ادخل العلامة أولاً") GoTo 1 End If 1 End Sub تحياتي

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

أخى الحبيب أ.عادل الكود ليس به اى مشكلة على الإطلاق واعتقد ان الخطأ ناتج انك تعمل على اصدار اوفيس 2003 وهذا الإصدار لايدعم الدالة Remove Duplicate ... مرفق اخى الحبيب ملف تم تعديل الكود به ليناسب اصدار 2003 جرب وابلغنى بالنتيجة تحياتي قائمة واحدة من الاسماء بعد دمج اسماء موجوده بعمودين فى شيتين.rar

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

أخي الفاضل أ.عادل جرب الملف المرفق تحياتي قائمة واحدة من الاسماء بعد دمج اسماء موجوده بعمودين فى شيتين.rar

محذوفة بمعرفتى للتعديل

اخى الفاضل أ.عادل السلام عليكم ورحمة الله وبركاته وبعد إذن أخى الفاضل سليم، من باب التنوع جرب الملف المرفق بالكود وليس المعادلات تحياتي قائمة واحدة من الاسماء بعد دمج اسماء موجوده بعمودين فى شيتين.rar

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

أخى الفاضل ايهاب تأكد عندما لا تجد رد ان الموضوع غير واضح بالنسبة للاخوة الاعضاء، او الشيت غير منظم، وبالامانة عند فتح الملف الخاص بك لا اعلم لماذا تجعل كل الفروع في نفس الشيت طب ما تجعل كل فرع في شيت مستقل لو الفروع عدد قليل ... او على الاقل اجعل عمود اسمه الفرع بجانب التاريخ ومن الممكن عمل Subtotal على اساس الفرع لمعرفة الاجماليات الخاصة بكل فرع على حدة .. واجعل المسحوبات في شيت منفصل نظم الملف الخاص بك اخى حتى تسهل على نفسك العمل وعلى اخوانك المطلوب تحياتى

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