تعديل في كود جلب اخر قيمة

[ضياء 2]

السلام عليكم الاساتذة الكرام بالمنتدي فضلا من كرمكم "  ما المشكلة في هذا الكود عند كتابة  اسم صنف في  TextBox1  تجلب اخر قيمة في عمود B من  نطاق البيانات من الصف 15 حتى 26 كمثال اخر قيمة هي 8.41 وكذلك عند كتابة  اسم صنف في  TextBox1  تجلب اخر قيمة في عمود E  هي 9  "

wor.xlsm

[أبوأحـمـد]

وعليكم السلام

إن كنت فهم المطلوب فهذا الحل

استبدل الكود بالتالي

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

 

[ضياء 2]

تسلم ايدك استاذنا أبو أحـمـد هذا هو المطلوب والشكر موصول لك جزاك الله خيرا