طلب كود - عمل دالة على على يورز فورم VBA

[بن خليفه]

المطلوب كود VBA يقوم بعمل الدالة 
IFERROR(IF(ISERROR(MATCH($E$2,$C:$C,0)),INDEX($C:$C,MATCH("*"&$E$2&"*",$B:$B,0)),INDEX($B:$B,MATCH($E$2,$C:$C,0)))," ") 

المدخل في الخلية E5 من العمود B ما يقابله العمود C والعكس مع العلم أنه يمكن كتابة جزء من العمود B يعطي الناتج الصحيح في العمود C
ويمكن كتابته حروف كبيرة أو صغيرة

Match.rar

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

الكود المطلوب

Sub My_formula()
Range("e3").FormulaR1C1 = "=IFERROR(IF(ISERROR(MATCH(R2C5,C3,0)),INDEX(C3,MATCH(""*""&R2C5&""*"",C2,0)),INDEX(C2,MATCH(R2C5,C3,0))),"" "")"
End Sub

 

[بن خليفه]

38 دقائق مضت, سليم حاصبيا said:

الكود المطلوب

Sub My_formula()
Range("e3").FormulaR1C1 = "=IFERROR(IF(ISERROR(MATCH(R2C5,C3,0)),INDEX(C3,MATCH(""*""&R2C5&""*"",C2,0)),INDEX(C2,MATCH(R2C5,C3,0))),"" "")"
End Sub

 

العمل لدي في أكثر من شيت .. على أكثر من عمل في اليوزر ..

أنا هنا كيف أحدد الشيت ؟؟

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

37 دقائق مضت, بن خليفه said:

العمل لدي في أكثر من شيت .. على أكثر من عمل في اليوزر ..

أنا هنا كيف أحدد الشيت ؟؟

ضع الكود بهذا الشكل

Sub My_formula()
For i = 1 To Sheets.Count
Sheets(i).Range("e3").FormulaR1C1 = "=IFERROR(IF(ISERROR(MATCH(R2C5,C3,0)),INDEX(C3,MATCH(""*""&R2C5&""*"",C2,0)),INDEX(C2,MATCH(R2C5,C3,0))),"" "")"
Next
End Sub

 

[بن خليفه]

48 دقائق مضت, سليم حاصبيا said:

ضع الكود بهذا الشكل

Sub My_formula()
For i = 1 To Sheets.Count
Sheets(i).Range("e3").FormulaR1C1 = "=IFERROR(IF(ISERROR(MATCH(R2C5,C3,0)),INDEX(C3,MATCH(""*""&R2C5&""*"",C2,0)),INDEX(C2,MATCH(R2C5,C3,0))),"" "")"
Next
End Sub

 

أشكرك لكن مو هذا اللي أقصده ..

الي أحتاجه موجود في المرفق واللي أحتاجه في يوزرفورم ياخذ البيانات من شيت معين ويطبق العملية على اليوزر فورم 

[ياسر العربى]

تفضل اخي الكريم لعله المطلوب اختر البحث بمعلومية الB or C

 

 

 

 

Match.rar

[ياسر العربى]

او هذا المرفق البحث بمعلومية الاتنين في وقت واحد

 

Match.rar

[بن خليفه]

22 ساعات مضت, ياسر العربى said:

تفضل اخي الكريم لعله المطلوب اختر البحث بمعلومية الB or C

 

 

 

 

Match.rar

أشكرك يا عسل 

ومنكم نتعلم 

[بن خليفه]

في 4/12/2016 at 12:08, ياسر العربى said:

تفضل اخي الكريم لعله المطلوب اختر البحث بمعلومية الB or C

 

وين أحط اسم الشيت في كود اليوزرفورم  إذا كنت أستخدم أكثر من شيت

 

 

Match.rar

 

[ياسر العربى]

تفضل شوف المرفق دا

Match.rar

[بن خليفه]

في 4/15/2016 at 20:35, ياسر العربى said:

تفضل شوف المرفق دا

Match.rar

عزيزي وأستاذي ياسر ..

أنا أبغا كود بدون ما أظهره في اليوزر فورم

يعني أحدد الداتا من شيت 3 مثلا وأحدد الرينج 

[ياسر العربى]

تفضل اخي الكريم هذا الكود ضعه مكان الكود الاخر

Private Sub TextBox1_Change()
    On Error Resume Next
    TextBox2.Text = Application.WorksheetFunction.Index(ZZZ.Range("c2:c11"), Application.WorksheetFunction.Match("*" & TextBox1.Text & "*", ZZZ.Range("b2:b11"), 0), 1)
    On Error Resume Next
    TextBox2.Text = Application.WorksheetFunction.Index(ZZZ.Range("b2:b11"), Application.WorksheetFunction.Match(Val(TextBox1.Text), ZZZ.Range("c2:c11"), 0), 1)
End Sub

تستطيع تغيير الحروف ZZZ بالكود  الى الشيت الذي تريد البحث فيه لعله المطلوب