الـعيدروس

املاء عمود B بالتواريخ المتسلسله اولا لان شرط المعادله لخليتين ورى بعض اذا تطابق رقم الشهر عشان كذا تحدث خطاء المعادله

هذا حل بالأكواد إن ناسب أو إنتظر حلول عباقرة المعادلات Data_V_1.rar

الحل الوحيد بنظري تغير التنسيق الى نص وبتظهر الأرقام كما كتبتها

حلول أكثر من رائعه جزاكم الله خير تقبلو مروري

أنا افضل 2007 صحيح بدأنا بالـ 2003 ولاكن 2007 افضل وأسرع

عنوان الموضوع مخالف لقواعد المشاركه حاول توضيح الطلب بالعنوان ليسهل البحث عنه والمواضيع المخالفه عادةً تغلق من قبل المشرفيين

السلام عليكم Public Sub AAA() [H10].Value = Val([H10]) + 3 End Sub

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

انسخ الكود التالي في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Value Case "": Case Else If Not Intersect(Target, [B:B]) Is Nothing Then Select Case WorksheetFunction.CountIf([B:B], Target) Case 1: Case Else My_Mtch = WorksheetFunction.Match(Target, [B:B], 0) My_Pro = " القيمة موجوده مسبقاً في الخليه للإستمرار نعم للإلغاء لا $B$" & My_Mtch If MsgBox(My_Pro & " : " & Target, vbYesNo, "تحقق تكرار") = vbNo Then Target.Clear: Exit Sub End Select End If End Select End Sub

بعد اذن اخي حماده عمر حسب فهمي للطلب حط الكود التالي في حدث الورقة Private Const Rw As Integer = 7 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$3" Then With Application .EnableEvents = 0 .ScreenUpdating = 0 .Calculation = xlCalculationManual Cells.EntireRow.Hidden = 0 Dim i i = Cells(Rows.Count, 3).End(xlUp).Offset(-3, 0).Row For R = i To Rw Step -1 If R - 6 = Target.Value Then Exit For Range("A" & R).EntireRow.EntireRow.Hidden = True Next .EnableEvents = 1 .ScreenUpdating = 1 .Calculation = xlCalculationAutomatic End With End If End Sub

لأي عمود تريد ظهور رسالة في حال أدخلت قيمة مكرره ؟؟

جرب هكذا حط المعادله في خلية " T9 " واسحب للأسفل =SUMPRODUCT(--($C$2:$C$32=$R$10);--($A$2:$A$32=$S9))

لماذا عند السحب بالامكان عمل ماتريد بكود Public Sub Ali_x() Dim S As Worksheet i = 19 For Each S In ThisWorkbook.Worksheets If Not S.Name = ActiveSheet.Name Then With S .Range(.Cells(1, 1), .Cells(1, 5)).Copy ActiveSheet.Range("A" & i).PasteSpecial xlPasteValues i = i + 1 End With Application.CutCopyMode = False End If Next End Sub

السلام عليكم تفضل Book5060.rar

جزاك الله خير اخي رجب جاويش تقبل مروري

شرط لم يسلم هو خليه فارغه "" ايتام_A.rar

السلام عليكم جرب المرفق بيان مجمع_A.rar

اوراق طلب اجازه وسند استلام هل تكون بها اكثر من مستند ام انه واحد فقط في كل ورقة

السموحه على هذه الخطاء اضفنا حلقة اخر جرب المرفق T_Ed1.rar

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

اخي الدهشوري طلبك غير واضح كيف يكون التنفيذ ماهو الشرط ومن اي خلية ؟

السلام عليكم جرب المرفق Ad_4.rar

جرب المرفق form_size_A2.rar

السلام عليكم اكتب الرقم الوظيفي في العمود C 1.rar

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