المطلوب التعديل على اليوزر فورم

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

من خلال الملف المرفق استخدمت دالة vlookup حتى وصلت للنتيجة المطلوب يكون من خلال اليوزر فورم وليس من خلال المعادلة

تجربة 2.rar

[ابراهيم الحداد]

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

استبدل الكود المرفق بالملف بهذا الكود ( هو تعديل بسيط )

Private Sub CommandButton1_enter()
Sheets(1).Activate
lrow = Range("i" & Rows.Count).End(xlUp).Row
Range("i" & lrow + 1).Value = TextBox1.Value
Range("i" & lrow + 1).Offset(0, 1).Value = TextBox2.Value
For Each c In Range("B3:B1000")
If c.Value = Range("i" & lrow + 1) Then
c.Offset(0, 2) = Range("i" & lrow + 1).Offset(0, 1).Value
End If
Next
TextBox1.Value = ""
TextBox2.Value = ""
TextBox1.SetFocus
End Sub

 

تم تعديل أبريل 24, 2018 بواسطه زيزو العجوز

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

بارك الله فيك اخي زيزو هو المطلوب في ميزان حسناتك 

تقبل تحياتي