Ali Mohamed Ali

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

ممتاز استاذ مجدى جزاك الله خير الثواب

وعليكم السلام-يمكنك استخدام هذه المعادلة

=IF(AND($C2=DATE(2022,6,1),$A2="حلة",$B2="ثانية"),10000,5000)

جلب العمولة بشروط1.xlsx

أحسنت استاذ مجدى جزاك الله خير الثواب

بارك الله فيك بهذه الكلمات العطرة وجزاك الله خير الثواب -يمكنك بهذا التعديل ... وطبعاً نعم لابد من زيادة رقم 2 عند الإنتقال لعمود أخر وبالتوفيق ان شاء الله

=IF(VLOOKUP($B3,ورقة1!$B$3:$G$9,2,0)="ح","ح",INDEX(ورقة1!$I$3:$I$9,MATCH(ورقة1!C3,ورقة1!J$3:J$9,0)))

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

=IF(VLOOKUP($B3,ورقة1!$B$3:$G$9,MATCH(C$2,ورقة1!$B$2:$G$2,0),FALSE)="ح","ح",INDEX(ورقة1!$I$3:$I$9,MATCH(ورقة1!C3,ورقة1!J$3:J$9,0)))

المساعدة في تحويل الأرقام إلى أسماء 3 .xlsx

السلام عليكم -يمكنك استخدام هذه المعادلة

=IF(VLOOKUP($B14,$B$3:$G$9,2,0)="ح","ح",INDEX($I$3:$I$9,MATCH(C3,J$3:J$9,0)))

المساعدة في تحويل الأرقام إلى أسماء1 .xlsx

وعليكم السلام-تفضل على الرغم انك لم تقم برفع الملف .. قيمكنك اضافة هذا السطر بحدث Open

Sheets("الرئيسية").Select

همة مشكورة بارك الله فيك وزادك الله من فضله ..طبعاً رائع هدية مقبولة وموفق دائماَ

احسنت بارك الله فيك ووسع الله فى رزقك

بارك الله فيك وزادك الله من فضله

وعليكم السلام-يمكنك استخدام هذه المعادلة

=SUMPRODUCT(--(COUNTIFS(C3:G3,C3:G3,C3:G3,"<>"&"ح")>1))

عدد مرات تكرار الاسم في كل صف وكل عمود معدل1.xlsx

تفضل هذه بنواة 64 بت -بعد اذن جميع الأساتذة فالملف ليس به اى مشكلة فإن واجهتكم مشكلة فاعلم انها من عندك انت فلابد كما أخبرنا من تحميل الأداة والمكتبة الناقصة                                                       رابط تحميل السيلينيوم

https://github.com/florentbr/SeleniumBasic/releases/download/v2.0.9.0/SeleniumBasic-2.0.9.0.exe

رابط تحميل الدريفر الخاص بالسلينيوم

https://chromedriver.storage.googleapis.com/102.0.5005.27/chromedriver_win32.zip

الكروم درايفر لابد ان يكون اصداره مثل اصدار الكروم المصطب على جهازك 

نظام ادارة شؤون التلاميذ الاصدار 1.00.rar

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

فقط المشكلة كانت لديك فى تنسيق خلية الرقم القومى ةالرقم التأمينى لأنك قمت بعمل تنسيق لتلك الخلايا على أنها تاريخ وليس رقم وشكراً

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

وعليكم السلام-يمكنك استخدام هذه المعادلة لطلبك

=INDEX(القائمة!$C:$F,MATCH(C6,القائمة!$B:$B,0),MATCH(D5,القائمة!$C$6:$F$6,0))

المطلوب1.xlsx

وعليكم السلام-جرب هذه المعادلة

=IF(COUNTIF($B$1:$D$3,A8),A8," هذ الاسم غير موجود")

Search+Vlookup1.xlsx

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

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

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

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

وعليكم السلام-تفضل

Option Explicit
Private IsArrow As Boolean
Private Sub ComboBox1_Change()
    Dim i As Long
      If Not IsArrow Then
        With Me.ComboBox1
            .List = Worksheets("Sheet1").Range("A4", Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp)).Value
            .ListRows = Application.WorksheetFunction.Min(6, .ListCount)
            .DropDown
            If Len(.Text) Then
                For i = .ListCount - 1 To 0 Step -1
                    If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i
                Next
                .DropDown
            End If
                    End With
    End If
  End Sub
Private Sub ComboBox1_DropButtonClick()
    With Me.ComboBox1
        .List = Worksheets("Sheet1").Range("A4", Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp)).Value
        .ListRows = Application.WorksheetFunction.Min(6, .ListCount)
        .DropDown
    End With
End Sub
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Debug.Print Time; "KeyDown"; KeyCode; ComboBox1.ListIndex; ComboBox1.ListCount, ComboBox1.Value
          IsArrow = (KeyCode = vbKeyUp) Or (KeyCode = vbKeyDown)
      If KeyCode = vbKeyReturn Then
        Me.ComboBox1.List = Worksheets("Sheet1").Range("A4", Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp)).Value
    ElseIf KeyCode = vbKeyTab Then
                With Me.ComboBox1
            If .ListIndex = -1 Then
                .Value = .List(0)
            Else
                .Value = .List(.ListIndex)
            End If
        End With
        KeyCode = vbKeyReturn
    End If
  End Sub

القائمة بالكومبوبوكس1.xlsm

عمل رائع جزاك الله خير الثواب استاذ مجدى

أحسنت استاذ ماجد بارك الله فيك

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