شكرا اخي ياسر مرة اخري على محاولاتك ومساعدتك لي في اكثر من موضوع حت تعم للجميع الفائدة لقد حصلت على الكود من احدى المواقع الاجنبية وبصراحة من السيد دانتي امور لا بد من دكر هذا الشخص لطالما قام لي بحل مسائل كثيرة في برمجة الاكسيل
آلية عمل الكود عند الدخول لليوزرفورم وتعبئة بيانات بعد النقر على الانتر تظهر الرسالة ويمكنك في كل مرة اختيار الصنف التي تريده وسيعطيك الكمية المتوقرة لهذا الصنف في حالة الكمية التي ادخلتها اكبر من الموجودة في ورقة العمل عدرا على الاطالة تفضلوا الكود والملف
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim f As Range
If TextBox2.Value = "" Then
MsgBox "Enter Brand"
TextBox2.SetFocus
Exit Sub
End If
If TextBox3.Value = "" Then Exit Sub
If TextBox3.Value <= 0 Or Not IsNumeric(TextBox3.Value) Then
Cancel = True
MsgBox "Enter a valid value"
Exit Sub
End If
Set f = Sheets("ورقة1").Range("B:B").Find(TextBox2, , xlValues, xlWhole)
If Not f Is Nothing Then
If f.Offset(, 1) < Val(TextBox3) Then
MsgBox "Available is : " & f.Offset(, 1)
Cancel = True
Else
MsgBox "ok"
End If
Else