عبدالله المجرب

ان شاء الله سأحاول جهدي الى الغد بإذن الله

السلام عليكم جرب هذه المعادلة =IF(OR(A1="مدير";A1="ناظر");0;500)

السلام عليكم جرب هذا الكود على اساس ان الوقت في العمود E بهذا الفورمات hh:mm:ss Sub Delete333Rows() Dim LR As Long, a As Long Application.ScreenUpdating = False LR = Cells(Rows.Count, 5).End(xlUp).Row For a = LR To 1 Step -1 If Minute(Cells(a, 5)) = "15" Or Minute(Cells(a, 5)) = "30" Or Minute(Cells(a, 5)) = "45" Then Rows(a).Delete End If Next a Application.ScreenUpdating = True End Sub

السلام عليكم جرب المرفق انتهاء الملف.rar

السلام عليكم يمكن الجمع بين الدالتين هكذا =ROUNDUP(SUM(A1:D1);0)

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

السلام عليكم الاخوة الكرام شكراً لكم تمت الاجابة

حركة حلوة كل عام وانت بخير

اخي نور لا يوجد اي باسوور في الملف والا لما كتبت لك الكود

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

السلام عليكم الله الله عليك يا فارس الاكواد استاذ محمد يسعدني ان اكون اول من يرد على هذا الموضوع المميز

تم استخدام حدث التغيير ووضع هذا الكود به Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A2:A100")) Is Nothing Then Target.Offset(0, 1).Value = Format(Now(), "hh:mm:ss") End If End Sub جرب هذا المرفق الوقت.rar

شاهد الرابط http://www.officena.net/ib/index.php?showtopic=31250

السلام عليكم اخي سعيد قمت بالتعديل ان شاء الله يكون هو المطلوب الملف جميل لكن التفقيط حدثت به نقلات نوعية (بدل استخدام هذا الكم الهائل من الصفوف المخفية ) لتفقيط سطر واحدث دالة هي دالة العلامة خبور خير على هذا الرابط http://www.officena....showtopic=39447 ONLY.rar

لا ارفق ملف ليتم فهم ما تقصده

جرب هذا الكود Private Sub Workbook_Open() If Date > DateValue("2/1/2012") Then Application.Visible = False MsgBox "صلاحية هذا الملف انتهت " ThisWorkbook.Close End If End Sub سينتهي هذا الملف بتاريخ 3/1/2012

السلام عليكم اخي الفاضل جرب هذا الكود Private Sub Workbook_BeforeClose(Cancel As Boolean) Call Excel4Us End Sub ضعه في الحدث ThisWorkbook للعلم لن ينجح استدعاء الكودين (الخاصين بال Class1 و Class 2 ) مرة واحدة وذلك لان الكود الثاني سيمسح نتائج الكود الاول لذا وضعت لك كود لل Class1 للتجربة

السلام عليكم جرب هذا الكود لاخفاء الاعمداة ذات القيم الصفرية Sub Abu_Ahmed_Hide() For i = 2 To 16 If Cells(19, i).Value = 0 Then Cells(19, i).EntireColumn.Hidden = True Next End Sub وهذا لاظهار الاعمدة المخفية Sub Abu_Ahmed_ShwAll() [B1:Q1].EntireColumn.Hidden = False End Sub

اخي الانيس جرب المرفق كلام متحرك.rar

السلام عليكم اخي ابو انس جرب استبدل الكود في اليوزر فورم (الخاص بزر الدخول) بهذا Private Sub CommandButton1_Click() If TextBox1.Text = "" Then MsgBox "لم تدخل الرقم السري", vbOKOnly, "تنبيه": Exit Sub If TextBox1.Text = 123 Then Application.Visible = True ورقة1.Activate Me.Hide UserForm1.Hide MsgBox "مرحبا بيك فى برنامج جدول الضرب تصميم منتدى اوفسينا " Else MsgBox "ليس لديك صلاحيات لاستخدام هذا الامر" TextBox1.Text = "" Me.TextBox1.SetFocus End If End Sub

بارك الله فيك استاذ محمد (فارس الاكواد) تجميعية جمية جداً

اخي سك بابك المسالة ليست صعوبة او سهولة السؤال السوال هنا ماهو الوضع الذي تريده انت (لكي يعمل الكود) هل تريده قبل اغلاق الملف Main === في حالي للسوال الاول تم الاستعانة بحدث تفعيل الورقة ليتم تنفيذ الكود فما هو الحدث الذي تريد استخدامه بحكم ان الملفات منفصلة

بارك الله فيكم الحمدلله على سلامتة الاخ ياسر وبارك الله فيك استاذ نارت على السؤال

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

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