برجاء .. تعديل كود ليقرأ حروف وارقام معا

[خير الايمان]

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

اساتذتي .. كل عام وانتم بخير

 

هل من الممكن تعديل الكود لجعل ( textbox1 ) يقراء حروف وارقم معا مثل ( p458 ) او ( c777 )

بدلا من قراءة الارقام فقد بالخلايا A

وموضح بالمرفق

دمتم بحفظ الله وامنه

Book1.rar

تم تعديل يونيو 8, 2016 بواسطه خير الايمان

[عبدالسلام ابوالعوافي]

Private Sub TextBox1_Change()
    lr = WorksheetFunction.CountIf(Range("a1:b32"), TextBox1.Text)
        If TextBox1.Value <> "" And lr = 1 Then
            TextBox2.Value = WorksheetFunction.VLookup(TextBox1.Text, Range("a1:b32"), 2, 0)
        Else
            TextBox2.Value = ""
    End If
End Sub

 

[خير الايمان]

استاذي / عبد السلام ابو العوافي

كل عام وانت بكل الخير

ويعجز اللسان ان يوفي من شكر لسرعة الاستجابة وكفاءة العلم

دام الله عليك علمك ونفعك بما علمك 

دمت بحفظ الله وامنه

تقديري واحترامي