أضافة عناصر ل ليست بوكس دون مسح النتائج القديمة

[نايف - م]

السلام عليكم 

لم أعرف كيف أنشأ ملف لأنه متغير النتائج

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

التكست بوكس لأدخال كود البحث و الليست بوكس لأضافة نتيجة البحث

كيف يمكن أن أضع كود بحث في التكست بوكس  و الحصول على النتيجة في الليست بوكس  ثم مسح كود البحث في التكست بوكس و أضافة كود آخر و الحصول على نتيجة جديدة تضاف للقديمة في الليست بوكس 

20231013 test.xlsm

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته

تفضل اخي 

Private Sub CommandButton1_Click()
    
With Sheets("main")
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For J = 2 To LastRow
        
 If TextBox1.Text = .Cells(J, 1) Then
 
    Me.ListBox1.AddItem Cells(J, 2)
 
 'Me.TextBox1 = Empty
 
 End If
 
Next

End With
End Sub
'*******************************
Private Sub CommandButton2_Click()
ligne = Me.ListBox1.ListIndex
  If ligne <> -1 Then Me.ListBox1.RemoveItem ligne
End Sub

 

20231013 test.xlsm

[نايف - م]

تمام .. مع الشكر الجزيل للأستاذ محمد هشام