البحث في الموقع
Showing results for tags 'تعديل البحث بالاسم وليس بالرقم'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله تعالي وبركاته ......... الاخوة الافاضل اساتذتي الكرام يوجد كود استدعاء بيانات من الشيت الى اليوزر فورم ولكن بيتم الاستدعاء برقم المسلسل اريد ان يكون الاستدعاء بالاسم وليس رقم المسلسل وعند تعديله للاسم بيحصل خطأ ارجو معرفة السبب الكود موجود اسفل الصورة ولكم منى تحياتى Private Sub ComboBox1_Change() Dim LR As Long Set ws = ThisWorkbook.Sheets("ورقة1") LR = Sheets("ورقة1").Cells(Cells.Rows.Count, "A").End(xlUp).Row Me.TextBox1.Value = Application.WorksheetFunction.VLookup(Val(ComboBox1.Value), ws.Range("a5:z" & LR), 2, 0) Me.TextBox2.Value = Application.WorksheetFunction.VLookup(Val(ComboBox1.Value), ws.Range("a5:z" & LR), 3, 0) Me.TextBox3.Value = Application.WorksheetFunction.VLookup(Val(ComboBox1.Value), ws.Range("a5:z" & LR), 4, 0) Me.TextBox4.Value = Application.WorksheetFunction.VLookup(Val(ComboBox1.Value), ws.Range("a5:z" & LR), 5, 0) End Sub مرفق ملف توضيحي اكثر ......... ولكم منى جزيل الشكر
