أبومروان

بعد السلام عليكم ورحمه الله وبركاته اتفضل لعله المطلوب تظليل الاعمدة.xls

بعد اذن الاستاذ @ابوحبيبه كود اخر يكون ب اسم مستخدم وكلمه مرور ل إثراء الموضوع Sub Login() Dim username As String Dim password As String username = InputBox("Enter your username:") password = InputBox("Enter your password:") If username = "user1" And password = "password1" Then Worksheets("Sheet1").Visible = True Worksheets("Sheet1").Activate ElseIf username = "user2" And password = "password2" Then Worksheets("Sheet2").Visible = True Worksheets("Sheet2").Activate Else MsgBox "Invalid username or password" End If End Sub 7777 (2).xlsm

جزاك الله خيرا عمل اكثر من رائع

اتفضل ارجو ان يكون المطلوب منظومة-الشؤون-الادارية-لمكتب-البصمى.xlsm

ارفق الملف وفيه شرح المطلوب وان شاء الله تجد ما تريده

وعليكم السلام ورحمه الله وبركاته شوف الموضوع أدناه ⬇️

وعليكم السلام ورحمه الله كود اخفاء قاعده البيانات واظهار فورم1 Private Sub Workbook_Open() Worksheets("Dbsheet").Visible = False UserForm1.Show End Sub كود للترحيل Dim lr As Long lr = WorksheetFunction.CountA("DbSheet").Range("A:a") Sheets("DbSheet").Cells(lr + 1, 1).Value = TextBox1 Sheets("DbSheet").Cells(lr + 1, 2).Value = TextBox2 Sheets("DbSheet").Cells(lr + 1, 3).Value = TextBox13 Sheets("DbSheet").Cells(lr + 1, 4).Value = TextBox4 Sheets("DbSheet").Cells(lr + 1, 5).Value = TextBox5 Sheets("DbSheet").Cells(lr + 1, 6).Value = TextBox6

اتفضل حل اخر بدون عمود مساعد =IF(COUNTIFS($A$2:$A$18,A2,$I$2:$I$18,I2,$J$2:$J$18,J2)>1,"تعارض","") conflict.xls

السلام عليكم ورحمه الله وبركاته ايه رائيك تشوف الموضوع ادناه قد يفيدك قائمة منسدلة مفلترة2.rar

وعليكم السلام ورحمه الله وبركاته اتفضل لعله المطلوب تم عمل عمود مساعد =IF(COUNTIF($L$2:$L$18,L2)>1,"تعارض","") conflict.xls

وعليكم السلام ورحمه الله وبركاته اتفضل شوف الرابط ادناه

تثبيت.xlsx

وممكن ايضا الاستفاده بالمرفق عدل عليه حسب ما تريد المصنف.xlsx

وعليكم السلام ورحمه الله وبركاته اتفضل لعله المطلوب علي قدر المستطاع جدول الاجتماعات.xlsx

اتفضل لعله المطلوب تثبيت.xlsx تثبيت.xlsx

وعليكم السلام ورحمه الله وبركاته يمكنك استخدام هذاه ان شاءالله يكون المطلوب وتفي الغرض اختر ما تشاء =IFS(IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100)>1000,1000,IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100)<1000,IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100)) او =IF((C3-A6+D3)*11/100>1000, 1000, IF((C3-A6<0), D3*11%, (C3-A6+D3)*11/100)) او =MIN(MAX(IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100),0),1000) =MIN(MAX(IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100),0),1000) =IFS(IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100)>1000,1000,IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100)<1000,IF(C3-A6<0,D3*11%,(C3-A6+D3)*11/100))

وعليكم السلام ورحمه الله جرب المرفق لعله المطلوب التجربة 1.xlsx

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

جزاكم الله خيرا يدفعنى الاندهاش الى المعرفة ، فيشعرنى بجهلى

جزاكم الله خير الجزاء .. فما أجمل أن يكون الإنسان شمعة تُنير دروب الحائرين.

جزاك الله خير وعمل اكثر من رائع

وعليكم السلام ورحمه الله وبركاته اتفضل شاهد الرابط أدناه ⬇️ لعله تجد ما تريده

وعليكم السلام معادله مقدار الدرجات =IF(F4="","",VLOOKUP(F4,'بيانات المعلمين'!$A$2:$K$212,10,0)) =IF(F5="","",VLOOKUP(F5,'بيانات المعلمين'!$A$2:$K$212,10,0)) معادله الملاحظات =IF(F4="","",VLOOKUP(F4,'بيانات المعلمين'!$A$2:$K$212,9,0)) =IF(F5="","",VLOOKUP(F5,'بيانات المعلمين'!$A$2:$K$212,9,0)) تجربة 1.xls

السلام عليكم راجع الموضوع ادناه لعله يفيد

الـحَمْدُ للـهِ الَّذِي بِنِعْمَتهِ تَتِمُّ الصَّالِـحَاتُ . مشكور لكلماتك الطيبه .كلنا بنساعد بعض . لم اعلم سبب الكود لم يعمل تلقائي لدليك انتظر ربما نجد من يساعدنا ويعلمنا لنصل الي حل افضل من احد عملاقه المنتدي الكبير