معادلة /كود بحث عن بيانات بشرط

[اسامة القورتاوي]

اساتذتي واخواني الافاضل

السلام عليكم ورحمة الله وبركاته

مرفق ملف المطلوب البحث عن بيانات الشركة  اذا ادخلت اسم الشركة خلية G  او رقم السجل خلية F

شاكرين ومقدرين تعاونكم

اخوكم اسامة

Book3.xlsxFetching info...

[Ali Mohamed Ali]

وعليكم السلام-تفضل لك ما طلبت بمجرد اختيار رقم السجل من القائمة المنسدلة

 

 

Search.xlsxFetching info...

[حسين مامون]

و اتراء للموضوع وبعد اذن استاذي Ali Mohamed Ali 

جرب المرفق

Book3.xlsmFetching info...

[سليم حاصبيا]

جرب هذا الملف

 

Book3_salim.xlsmFetching info...

[اسامة القورتاوي]

الافاضل

 

لكم كل الشكر والتقدير جزاكم الله خير الجزاء

شكرا جزيلا

 

[اسامة القورتاوي]

السلام عليكم

 

تم تعديل الملف 

واسف على ازعاجكم

Book1.xlsxFetching info...

[سليم حاصبيا]

بالنسبة للــ  CommandButton1_Click انا أفضل هذا الكود البسيط

ولا لزوم لللتفتيش عن قيمته في كل الصفوف حيث ان دالة  Match  تعطينا اياه رأساً

Private Sub CommandButton1_Click()
Dim lr, i

With Sheets("11")
    If ComboBox2 = "" Then Exit Sub
      lr = Application.Match(ComboBox2, .Columns(6), 0)
        For i = 1 To 4
            Me.Controls("TextBox" & i) = _
           .Cells(lr, "b").Offset(, i - 1)
        Next
End With
End Sub