pop13 قام بنشر مارس 19, 2011 مشاركة قام بنشر مارس 19, 2011 السلام عليكم أرجو من الاخوة الكرام ان يساعدوني في كود vlookup لهذا الفورم بحيث ان أضع الكود يظهر جميع البيانات الاخرا للموظف السلف.rar رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر مارس 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 دمت في حفظ الله رابط هذا التعليق شارك More sharing options...
pop13 قام بنشر مارس 19, 2011 الكاتب مشاركة قام بنشر مارس 19, 2011 اشكرك أخ يحيي وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
pop13 قام بنشر مارس 19, 2011 الكاتب مشاركة قام بنشر مارس 19, 2011 أرجو أضافة رسالة تحزير أذا كان الكود غير موجود وشكرا علي الكود رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مارس 19, 2011 مشاركة قام بنشر مارس 19, 2011 السلام عليكم الشكر واصل للاخ الحبيب/ يحي أرجو أضافة رسالة تحزير أذا كان الكود غير موجود وشكرا علي الكود مارايك لو يمسح النتائج احسن من الرسالة تعديل بسيط في كود اخي يحي المرفق اكسل 2003 السلف1.rar 1 رابط هذا التعليق شارك More sharing options...
pop13 قام بنشر مارس 19, 2011 الكاتب مشاركة قام بنشر مارس 19, 2011 السلام عليكم اشكر كل من ساعدني في هذا الكود وادعو لكم بخير الجزاء من الله وشكرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان