اريد كود بحث متقاطع في الفورم

[ع_ حسام]

السلام عليكم

اريد كود بحث في الفورم بحث متقاطع وشرح في المرفق 

وشكرا لكم 

Classeur1.rar

 

[رجب جاويش]

أخى الفاضل

المرفق به مشكلة لا يمكن تحميله

برجاء رفعه مرة أخرى

 

[ع_ حسام]

تفضل

رجب.rar

[رجب جاويش]

تفضل أخى

Private Sub ComboBox1_Change()
ComboBox2_Change
End Sub

Private Sub ComboBox2_Change()
Dim c As Range
Dim cc As Range
Dim LR As Integer
If ComboBox1.Text = "" Or ComboBox2.Text = "" Then
TextBox1 = ""
TextBox2 = ""
End If
LR = Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range("A5:A" & LR)
For Each cc In Range("C4:O4")
If c = ComboBox1.Text And cc = ComboBox2.Text Then
TextBox1 = Cells(c.Row, 2)
TextBox2 = Cells(c.Row, cc.Column)
Exit For
End If
Next
Next
End Sub

 

رجب.rar

[ع_ حسام]

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

  مجرد التعين الصنف يعطي الحساب و عند تعينهما اي الصنف و ا لفرقة  معا يعطي الإستدلال 

[رجب جاويش]

تفضل أخى

 

رجب.rar

[ياسر خليل أبو البراء]

ملف رائع وكود جميل أستاذنا الكبير رجب

جزيت خيراً على هداياك الثمينة

 

[رجب جاويش]

ربنا يكرمك أخى الحبيب ياسر

جزاك الله كل خير على كلماتك الطيبة