عبدالسلام علي قام بنشر أبريل 23, 2018 مشاركة قام بنشر أبريل 23, 2018 من خلال الملف المرفق استخدمت دالة vlookup حتى وصلت للنتيجة المطلوب يكون من خلال اليوزر فورم وليس من خلال المعادلة تجربة 2.rar رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أبريل 24, 2018 مشاركة قام بنشر أبريل 24, 2018 (معدل) السلام عليكم ورحمة الله استبدل الكود المرفق بالملف بهذا الكود ( هو تعديل بسيط ) 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 بواسطه زيزو العجوز رابط هذا التعليق شارك More sharing options...
عبدالسلام علي قام بنشر أبريل 24, 2018 الكاتب مشاركة قام بنشر أبريل 24, 2018 بارك الله فيك اخي زيزو هو المطلوب في ميزان حسناتك تقبل تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.