محمد الورفلي1

السلام عليكم عليك بتجزئة الملف لخطوات ..حتى يتم مساعدتك خطوة بخطوة

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

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

بارك الله فيكم استاذ محمد واستاذ هشام ....... كلتى الحلين تمام

السلام عليكم كيف جمع عدد خلاياء بها قيمة فقط متفرقة بدالة COUNTA جمع خلاياء.xlsx

شوف ممكن تستفيد منها

السلام عليكم ... شكراً استاذ كريم تم التوصل لحل تغيير بسيظ في الكود الاصلي .. تم وضعة للاستفادة If Val(Me.TextBox1.Value) > Val(Me.TextBox2.Value) Then MsgBox "احذر سعر البيع اقل من سعر الشراء": Exit Sub

للرفع السلام عليكم . المطلوب . في الملف ايقاف استمرار عملية البيع في حالة قيمة البيع في التكست اقل من قيمة الشراء

السلام عليكم ورحمة الله في هذا الملف اريد منع البيع في حالة كان سعر البيع اقل من سعر الشراء مشكورين فورم1.xls

السلام عليكم ارجوا شرح الكود بالتفصيل وشكرا Sub sajida2() Dim lr As Long: Dim i As Long Dim j As Long: Dim k As Long Dim rng As String: Dim rng1 As Date: Dim rng2 As Date rng = [K3]: rng1 = [K4]: rng2 = [K5] k = 7 lr = Cells(Rows.Count, 3).End(xlUp).Row For i = 3 To lr If Range("c" & i) = rng And Range("d" & i) >= rng1 And Range("d" & i) <= rng2 Then For j = 5 To 8 Cells(k, j + 8) = Cells(i, j) Next j k = k + 1 End If Next i End Sub بين تاريخين.xlsm

السلام عليكم اريد دمج الكودين في حدث الورفة الكود الاول : عبارة عن قفل الخلية بعد الكتابة Me.[R1] Then Exit Sub If Not Application.Intersect(Target, Range("D4:q39")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "ÎáíÉ ããÊáÆÉ" End If الكود الثاني تلوين الصف والعمود النشط Application.ScreenUpdating = False Range("IP1").Value = Target.Address Application.ScreenUpdating = True دمج.xls

شكراً تمام التمام

السلام عليكم كيف جعل التكسيت لا يقبل الا كلمة اعدادي او كلمة ثانوي تقييد تكست بوكس بكلمة.xls

لم تعمل علي 2003

شكرا لك ممكن علي اوفيس 2003