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

هل تقصد المستخدمين الجدد

اخي الفاضل جمال دغيدي الرجاء زيارة هذا الرابط http://www.officena.net/ib/index.php?showtopic=43153

السلام عليكم هذه محاولة للرد على طلب الاستاذ جمال دغيدي هنا http://www.officena....33 الملف المرفق به فورم للدخول مع تحديد صلاحيات الدخول (الملف في وضع اخفاء عند التشغيل وتظهر الفورم فقط) المستخدم عبدالله المجرب رقم الباسوورد (111) يملك كافة الصلاحيات في ورقة العمل MyDate يوجد جدول بالمستخدمين كما يوجد اسماء الشيتات (يتم اسخراجها بواسطة الكود) مع امكانة ادراجها ضمن الصلاحيات بكتابة 1 اة استبعادها من الصلاحيات بكتابة الرقم 2 == جدول اسماء المستخدمين ملاحظة في حال المحاولة 3 مرات بشكل خاطئ يتم الخروج من البرنامج =============================== تم اضافة بعض المميزات للملف من هنا نموذج دخول بصلاحيات اوراق العمل.rar

الرجاء الالتزام بقواعد المشاركة

موضوع مخالف (مكرر ) تمت إلاجابة هنا http://www.officena.net/ib/index.php?showtopic=43091

اخي ابو الشرف شاهد هذا الرابط هل تقصد ان تكون طريقة الحفظ هكذا http://www.officena.net/ib/index.php?showtopic=41428&#entry235062

نور المنتدى بوجود الاستاذ عبدالفتاح (ابو عمر ولميس)

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

السلام عليكم هذه لعد الست سنوات =COUNTIF('الصف الأول 2012'!G4:G50;6) وهذه للخمس سنوات =COUNTIF('الصف الأول 2012'!G4:G50;5)

السلام عليكم ضع هذا في حدث الفورم Private Sub UserForm_Activate() Calendar = vbCalHijri If Application.CountA(Range("C6:C10000")) = 0 Then TextBox1 = Format(DateValue("01/01/1420"), "yyyy/mm/dd") TextBox2 = Format(DateValue("01/01/1450"), "yyyy/mm/dd") Exit Sub End If TextBox1 = Format(Application.Max(Range("C:C")), "yyyy/mm/dd") TextBox2 = Format(Application.Min(Range("C:C")), "yyyy/mm/dd") End Sub

بارك الله فيك اخي هاني وان شاء الله نرى فيك النشاط المعهود

السلام عليكم هذه محاولة على قد الحال عبدالله المجرب.rar

اتقدم بالاصالة عن نفسي ونيابة عن جميع الاعضاء بالتهنئة الى الاخ الكريم أ / هاني عدلي بمناسبة ترقيته الى عضو مميز وان شاء الله نرى فيه النشاط المعهود دائماً === سينقل الموضوع الى المنتدى الاجتماعي بعد فترة

السلام عليكم هذا موضوع مشابه http://www.officena.net/ib/index.php?showtopic=40930

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

السلام عليكم على ملف الاستاذ خبور تم اخفاء الازرار التي لا تريدها وتحديد عمود البحث برقم القيد فقط وبعد البحث يمكنك الضغط دبل كليك ليتم اختيار ما تريد من نتائج البحث مساعدة في LISTBOX (1).rar

السلام عليكم جرب هذا التعديل Sub Solaf() Dim LastRow As Long, i As Long, ii As Long Dim SText As String Dim SText1 As String Dim StDate As Date, EndDate As Date With Sheets("السلف") .Range("A7:L10000").ClearContents SText = .Range("B2") SText1 = .Range("C2") StDate = .Range("B3") EndDate = .Range("B4") End With ii = 7 With Sheets("yaomea") LastRow = .Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To LastRow If CStr(.Cells(i, "J")) = SText Then If SText1 = "" Then GoTo 1 If CStr(.Cells(i, "N")) = SText1 Then 1 Select Case .Cells(i, "d").Value2: Case StDate To EndDate Sheets("السلف").Cells(ii, "A").Resize(1, 12).Value = .Cells(i, "A").Resize(1, 12).Value ii = ii + 1 End Select End If End If Next End With End Sub

سلمت يمينك استاذنا الكريم عبدالله باقشير (ابو علي) وبالفعل كما قلت فالاكواد كثيرة

السلام عليكم بعد إذن اخي ابوحنين تم الاستغناء عن ال ComboBox2 وتم الاجابة عن التساؤل الثاني في الفورم (سيتم إضافة اي معلومة الى القائمة اوتوماتيكياً وبدون تكرار استخراج اكبر بالمعادلات والكود بعد الاجابة من النت.rar

سلمت يمينك ابا ادم على هذه الدرر الثمينة

السلام عليكم اخي ياسر نورت المنتدى وان شاء الله ان نسمع خبر انتصار الشعب السوري قريباً == بالنسبة للطلب ما جدوى الاختيار من قائمة منسدلة للرقم الذاتي فكيف سيكون الرقم غير موجود والاختيار يتم من قائمة منسدله

السلام عليكم ضع المرفق وبه الكود حتى يتسنى متابعة عمل الكود وتعديله

السلام عليكم اليك هذا التعديل للدالة Function Cont_Same(MyRng1 As Range, MyRng2 As Range, MyRng3 As Range, MyRng4 As Range, T As String) Dim cl As Range, cel As Range, R As Integer For Each cl In MyRng1 If Application.CountIf(MyRng2, cl) >= 1 And Sheets(MyRng1.Worksheet.Name).Cells(cl.Row, MyRng3.Column()) = T Then For Each cel In MyRng2 If cel = cl And Sheets(MyRng2.Worksheet.Name).Cells(cel.Row, MyRng4.Column()) = T Then R = R + 1 Next End If Next Cont_Same = R End Function المدى MyRng4 (هو مدى الفئة في الورقة الثانية ) * ملاحظة هامة يجب التأكد من تنسيق ومساواة الارقام في الورقتين

السلام عليكم بالاضافة لحل الاخ هاني هذا الحل باستخدام دالة SUMPRODUCT =SUMPRODUCT(--($B$4:$B$18="central")*($C$4:$C$18)) فقط إستبدل اسم المحافظة في الدالة

سيصبح الكود هكذا Sub ragab() on error resume next Dim sdate As Date, cl As Range sdate = InputBox("أدخل التاريخ الذى تريد تحديد الخلية المقابلة له") For Each cl In [A6:A25] If sdate = cl Then cl.Select: Exit For Else: MsgBox "لاتوجد نتائج لهذا البحث": Exit Sub Next End Sub