كود vlookup

[pop13]

السلام عليكم

أرجو من الاخوة الكرام ان يساعدوني في كود vlookup لهذا الفورم بحيث ان أضع الكود يظهر جميع البيانات الاخرا للموظف

السلف.rar

[يحيى حسين]

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

أخي في نفس لفورم أضف زر خروج ثم أضف الكود التالي

 


Private Sub TextBox1_AfterUpdate()

Dim MyT As Long, LR As Long

LR = Range("a" & Rows.Count).End(xlUp).Row

MyT = WorksheetFunction.Match(Val(TextBox1.Value), Range("a1:a" & LR), 0)

Debug.Print MyT

Label1.Caption = Range("b" & MyT).Value

Label2.Caption = Range("c" & MyT).Value

Label3.Caption = Range("d" & MyT).Value

Label4.Caption = Range("e" & MyT).Value

End Sub


 

دمت في حفظ الله

[pop13]

اشكرك أخ يحيي وجزاك الله خيرا

[pop13]

أرجو أضافة رسالة تحزير أذا كان الكود غير موجود وشكرا علي الكود

[عبدالله باقشير]

السلام عليكم

الشكر واصل للاخ الحبيب/ يحي

أرجو أضافة رسالة تحزير أذا كان الكود غير موجود وشكرا علي الكود

مارايك لو يمسح النتائج

احسن من الرسالة

تعديل بسيط في كود اخي يحي

المرفق اكسل 2003

السلف1.rar

[pop13]

السلام عليكم

اشكر كل من ساعدني في هذا الكود وادعو لكم بخير الجزاء من الله

وشكرا