اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by أبوأحـمـد,

الردود الموصى بها

السلام عليكم الاساتذة الكرام بالمنتدي فضلا من كرمكم "  ما المشكلة في هذا الكود عند كتابة  اسم صنف في  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

 

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information