الـعيدروس

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

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

السلام عليكم ارفق مثال الله يوفقك

================================================ لحفظ حقوق الاخرين الملف الذي عطيتك من اعمال الاستاذ الكبير احمد حمور ابو عبدالله ================================================ كل اللي سويت فيه عدلت عليه واضافات بسيطه لاتذكر ============================ ارجو منك ارفاق الملف حط بيانات وهميه في كل ورقة جنسية مثل ماتفضلت 1500 اسم ونشوف وين المشكله علا وعسى نتوصل الى حل والاساتذه الكبار موجودين الله يحفظهم

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

السلام عليكم الاستاذ يحياوي اعمالك كله ابداع في ابداع ملف قيم بارك الله فيك

السلام عليكم ======================= فورم إدخال بيانات ======================= ترحيل الإدخال الجديد إلى الشيت المصنف في كومبوكس الجنسية هذا حسب طلبك =========================== التعديل برضه عند البحث عن موظف لتعديل بياناته تختار الورقة المراده ثم تبحث بألـ (الأسم حسب الاقامة) يعني البحث محدد على حقل B في كل الأوراق ========================== الحذف نفس الطريقة تبحث عن الاسم وتضغط عليه من الليست بوكس مرتين ويظهر لك صندوق حوار تحط رمز الحذف وهو (1234) لحذف الموظف من الشيت المحدد =========================== وعندك زر تقرير موظف نفس عملية فورم الإدخال ولاكن طباعة الفورم فقط (طباعة بيانات موظف ) =========================== الملف ربما فيه بعظ الأخطاء لاني لم اتأكد من عمله بالشكل المطلوب لانك على عجله من امرك عموماً أي ملاحظات او تعديل أو إضافه أنا موجود والعذر منك والسموحه على التأخير وفي الاخير مانرجوه منك غير دعوة بظهر الغيب والسلام عليكم alidroos_DATA_ADD.rar

السلام عليكم اضافة بسيطة لكود الاستاذ القدير يحياوي في حالة اذا كان الرقم اكبر من ====> 20 يظهر الصوت - ورسالة تنبيه - والغاء الرقم المدخل هكذا Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column <> 1 Then Exit Sub T = Target.Row If Cells(T, 1) > 20 Then Beep 800, 2000: MsgBox "تعد العدد 20", vbCritical, "تبنيـة !!!": Application.Undo End Sub

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

الحمد الله جزاك الله خير على كلماتك الطيبه

تفضل اكتب رقم اكبر من 20 في عمود A تنبيه.rar

السلام عليكم هذا الكود Sub ali_T() Dim i As Integer Dim T As Integer For i = 3 To ورقة4.Range("b1000").End(xlUp).Row For T = 4 To Range("b1000").End(xlUp).Row If ورقة4.Cells(i, "B").Value = Cells(T, "b").Value Then With ورقة4 .Cells(i, "B").Offset(0, 1) = ورقة1.Cells(T, "b").Offset(0, 3) End With End If Next Next End Sub تفضل المرفق مرتبات البنك.ali.rar

المعادلة تنتج خطاء لانها بتقرب الى الاعلى واما القيمه السالبه ربما بمعادلات اخرى

السلام عليكم اخي الفاضل هكذا ولاكن في حل ان النتيجة بالسالب ينتج من المعادلة خطاء حتى اتوصل الى حل سوف ارفقه تفضل =CEILING(I3-SUMPRODUCT(($B$5:$B$25000<>"الاجمالى")*($E$5:$H$25000));0.01)

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

السلام عليكم استاذ يحياوي عمل مميز جعله الله في ميزان حسناتك قمة الابداع

السلام عليكم اذا كانت مع دالة الجمع SUM مثلا a1+b1 هكذا =SUM(CEILING(A1+B1;0.01))

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

اود هكذا بتحدبد مدى يعمل الكود من السطر الثاني في العمود A Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column <> 1 Or Target.Row < 2 Then Exit Sub If Application.Intersect(Target, Range("a3:a100")) > 20 Then MsgBox "تعدا النقاط 20", vbCritical, "تنبيـة !!!" End Sub

السلام عليكم حط الكود فد حدث الصفحة مخصص التنبيه على عمود A Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column <> 1 Then Exit Sub T = Target.Row If Cells(T, 1) > 20 Then MsgBox "تعدا النقاط 20", vbCritical, "تنبيـة !!!" End Sub

جربت تغير الاوراق على مرفق الاستاذ ابو عبدالله اكسلجي وعمل 100 %

نقل رصيد اول المده النقل من وين من ورقة2 ام من تكست اول المده في الفورم

ماهو اول المده وماهو اخر المده مدين ودائن وتريد الرصيد كيف حاصل ماذا ضرب قسمه كي يحتفظ فيه مافهمته منك انك تريد عند الترحيل يقوم بنقل قيمة TextBox25 الى TextBox26 المبلغ نفسه المرحل ام ينقص هذا من هذا ويحط الحاصل في رصيد اخر المده اعذرني انا غشيم في الحسابات لحد الدلاخه

يوجد كود لعمل ذلك ولاكن الابد انت تكون جميع الملفات في فولدر واحد والله اعلم

السلام عليكم جزاك الله خيراستاذ عبدالله المجرب كود جميل وربما هكذا Sub copy_sh() Dim F_FOL As String Application.ScreenUpdating = False F_FOL = "C:\" FName = Sheets("Sheet4").Range("c3").Text & " " & Sheets("Sheet4").Range("d3").Text With ActiveWorkbook Sheets("sheet4").Copy ActiveWorkbook.SaveCopyAs Filename:=F_FOL & FName & ".xls" ActiveWorkbook.Close False .Activate End With Application.ScreenUpdating = True End Sub