أبومروان

وعليكم السلام ورحمه الله اولاً الصوره المرفقه مش وضحه ولكن جرب الكود التالي On Error Resume Next Dim last As Long last = Sheet1.Range("B90").End(xlUp).Row + 1 Sheet1.Cells(last, "B").Value = Me.TextBox2.Value ' الرقم التعريفي Sheet1.Cells(last, "C").Value = Me.TextBox15.Value 'الرقم التسجيل Sheet1.Cells(last, "E").Value = Me.TextBox8.Value ' اللقب Sheet1.Cells(last, "D").Value = Me.TextBox16.Value 'الاسم Sheet1.Cells(last, "G").Value = Me.TextBox10.Value 'مكان الميلاد Sheet1.Cells(last, "F").Value = Me.TextBox11.Value 'تاريخ الميلاد Sheet1.Cells(last, "AE").Value = Me.TextBox9.Value 'اللقب بالاتننية Sheet1.Cells(last, "AF").Value = Me.TextBox17.Value 'الاسم بالاتننية Sheet1.Cells(last, "AG").Value = Me.TextBox18.Value 'مكان الميلاد بالاتننية Sheet1.Cells(last, "AH").Value = Me.TextBox19.Value 'ولاية Sheet1.Cells(last, "AC").Value = Me.TextBox12.Value 'تخصص Sheet1.Cells(last, "AD").Value = Me.TextBox20.Value 'تخصص بالاتننية Sheet1.Cells(last, "AL").Value = Me.TextBox13.Value ' رقم الوسيط Sheet1.Cells(last, "AJ").Value = Me.TextBox21.Value ' رقم هاتف MsgBox "تم ترحيل البيانات بنجاح", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "تأكيد" Me.TextBox2.Value = "" Me.TextBox15.Value = "" Me.TextBox16.Value = "" Me.TextBox8.Value = "" Me.TextBox10.Value = "" Me.TextBox11.Value = "" Me.TextBox9.Value = "" Me.TextBox17.Value = "" Me.TextBox18.Value = "" Me.TextBox19.Value = "" Me.TextBox12.Value = "" Me.TextBox20.Value = "" Me.TextBox13.Value = "" Me.TextBox21.Value = "" ThisWorkbook.Save

السلام عليكم يمكنك استخدام هذه المعادله لعله المطلوب =IF(I21>1,$I$19,IF(H21>1,$H$19,IF(J21>1,$J$19,""))) داله.xlsx

وعليكم السلام جرب هذا يمكنك استخدام الكود التالي في VBA لمنع ظهور النموذج form1 عندما يتم النقر فوق مفتاح معين، على سبيل المثال Ctrl أو Shift: يمكنك استخدام الكود التالي في VBA لمنع ظهور النموذج form1 عندما يتم النقر فوق مفتاح معين، على سبيل المثال Ctrl أو Shift: ``` Private Sub Workbook_Open() UserForm1.Hide End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) UserForm1.Hide End Sub Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window) UserForm1.Hide End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) UserForm1.Hide End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) UserForm1.Hide End Sub Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window) UserForm1.Hide End Sub Private Sub Workbook_WindowScroll(ByVal Wn As Excel.Window) UserForm1.Hide End Sub Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) UserForm1.Hide End Sub Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) UserForm1.Hide End Sub Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) UserForm1.Hide End Sub Private Sub Workbook_SheetCalculate(ByVal Sh As Object) UserForm1.Hide End Sub ```

وعليكم السلام ورحمه الله يمكنك استخدام التالي لتحويل أي نص من الأحرف (الإنجليزية على سبيل المثال) إلى أحرف عربية: Function ConvertNumbersToArabic(ByVal strInput As String) As String Dim ch As String Dim Result As String Dim i As Integer Result = "" For i = 1 To Len(strInput) ch = Mid$(strInput, i, 1) Select Case ch Case "0" Result = Result & "٠" Case "1" Result = Result & "١" Case "2" Result = Result & "٢" Case "3" Result = Result & "٣" Case "4" Result = Result & "٤" Case "5" Result = Result & "٥" Case "6" Result = Result & "٦" Case "7" Result = Result & "٧" Case "8" Result = Result & "٨" Case "9" Result = Result & "٩" Case Else Result = Result & ch End Select Next i ConvertNumbersToArabic = Result End Function يمكنك استدعاء هذه الدالة على سبيل المثال على النحو التالي TextBox1.Value = ConvertNumbersToArabic(TextBox1.Value)

وعليكم السلام ورحمه وبركاته جرب الكود التالي عدله حسب ما تريد Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" And Target.Value = "0" Then Rows("15:200").EntireRow.Hidden = True End If End Sub

السلام عليكم ورحمه الله

الشكر لله وحده. الحمد لله الذي بنعمته تتم الصالحات، وبفضله تتنزل الخيرات والبركات وبتوفيقه تتحقق المقاصد والغايات

يمكنك استخدام الكود التالي Application.Visible = False 'إخفاء الاكسل Application.Visible = True 'إظهار الاكسل

للمعلومة .. فما أجمل أن يكون الإنسان شمعة تُنير دروب الحائرين. يدفعنى الاندهاش الى المعرفة ، فيشعرنى بجهلى. جزاكم الله خيرا علي كل هذه الأعمال الرائعة @ابوحبيبه @Mohamed Hicham 🌹🌹

مستخدم 3 لديه فتح جميع الملفات 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 ElseIf username = "user3" And password = "password3" Then Worksheets("Sheet2").Visible = True Worksheets("Sheet3").Visible = True Worksheets("Sheet1").Visible = True Worksheets("Sheet2").Activate MsgBox "Invalid username or password" End If End Sub

ممكن اضافه سطر ل اظهار ورقه العمل Worksheets("Sheet1").Visible = True معني هذا أظهر شيت 1 كرر هذا السطر مع تغير اسم الشيت زي ما تحب

الشكر لله وحده ارفق الملف وان شاء الله نجدو اين الخطا او الخلل حول استخدم معادله countifs لو بشرط لوالقيمه اكبر من 1 يكون في تعارض او استخدم اعمده مساعده للسهوله ومن ثم عدل برحتك واختصر المعادله

بعد السلام عليكم ورحمه الله وبركاته اتفضل لعله المطلوب تظليل الاعمدة.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