pop13 قام بنشر مارس 19, 2011 قام بنشر مارس 19, 2011 السلام عليكم أرجو من الاخوة الكرام ان يساعدوني في كود vlookup لهذا الفورم بحيث ان أضع الكود يظهر جميع البيانات الاخرا للموظف السلف.rar
يحيى حسين قام بنشر مارس 19, 2011 قام بنشر مارس 19, 2011 السلام عليكم و رحمة الله أخي في نفس لفورم أضف زر خروج ثم أضف الكود التالي 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 قام بنشر مارس 19, 2011 الكاتب قام بنشر مارس 19, 2011 أرجو أضافة رسالة تحزير أذا كان الكود غير موجود وشكرا علي الكود
عبدالله باقشير قام بنشر مارس 19, 2011 قام بنشر مارس 19, 2011 السلام عليكم الشكر واصل للاخ الحبيب/ يحي أرجو أضافة رسالة تحزير أذا كان الكود غير موجود وشكرا علي الكود مارايك لو يمسح النتائج احسن من الرسالة تعديل بسيط في كود اخي يحي المرفق اكسل 2003 السلف1.rar 1
pop13 قام بنشر مارس 19, 2011 الكاتب قام بنشر مارس 19, 2011 السلام عليكم اشكر كل من ساعدني في هذا الكود وادعو لكم بخير الجزاء من الله وشكرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.