ضياء 2 قام بنشر أغسطس 21, 2023 مشاركة قام بنشر أغسطس 21, 2023 السلام عليكم الاساتذة الكرام بالمنتدي فضلا من كرمكم " ما المشكلة في هذا الكود عند كتابة اسم صنف في TextBox1 تجلب اخر قيمة في عمود B من نطاق البيانات من الصف 15 حتى 26 كمثال اخر قيمة هي 8.41 وكذلك عند كتابة اسم صنف في TextBox1 تجلب اخر قيمة في عمود E هي 9 " wor.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبوأحـمـد قام بنشر أغسطس 21, 2023 أفضل إجابة مشاركة قام بنشر أغسطس 21, 2023 وعليكم السلام إن كنت فهم المطلوب فهذا الحل استبدل الكود بالتالي Private Sub CheckBox1_Click() If TextBox1.Text Like "*صنف*" Then For i = 26 To 15 Step -1 If Cells(i, 2) > 0 Then TextBox2.Value = Cells(i, 2): Exit For Next Else For i = 26 To 15 Step -1 If Cells(i, 5) > 0 Then TextBox2.Value = Cells(i, 5): Exit For Next End If End Sub 1 رابط هذا التعليق شارك More sharing options...
ضياء 2 قام بنشر أغسطس 21, 2023 الكاتب مشاركة قام بنشر أغسطس 21, 2023 تسلم ايدك استاذنا أبو أحـمـد هذا هو المطلوب والشكر موصول لك جزاك الله خيرا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان