اضافة اكواد يوزرفورم بحث برقم الفاتورة وعرض النتائج فى ليست بوكس وزر حذف البيانات المحددة

[هشام جمال الدين]

12131313.xlsm

السلام عليكم .. محتاج اضافة اكواد يوزر فروم بحث برقم الفاتورة وعرض النتائج فى ليست بوكس وزر حذف البيانات المحددة

[سليم حاصبيا]

جرب هذا الملف

1- اكتب ما تريد في الــ   TextBox1  واضغط Enter

2 -لحذف صنف قم بتضليله في  الــ   ListBox1  واضغط الزر المناسب

الكود

Private Sub DeL_It_Click()
 Dim FND As Range
 Dim lr%, Ro1%, Ro2%, i%
 Dim t%
 Dim my_rg As Range
 Dim Sh As Worksheet
   t = Me.ListBox1.ListIndex
   If t <= 0 Then Exit Sub

   Set Sh = Sheets("ارشيف العمليات")
   lr = Sh.Cells(Rows.Count, 1).End(3).Row
  
   With Me.ListBox1
   

  Set FND = Sh.Range("D1:D" & lr).Find(Me.ListBox1.List(t, 3), lookat:=1)
  If FND Is Nothing Then Exit Sub
   Ro1 = FND.Row: Ro2 = Ro1
   End With
   Do
    If my_rg Is Nothing Then
     Set my_rg = Sh.Range("A" & Ro2).Resize(, 7)
     Else
      Set my_rg = Union(my_rg, Sh.Range("A" & Ro2).Resize(, 7))
    End If
   
   Set FND = Sh.Range("D1:D" & lr).FindNext(FND)
    Ro2 = FND.Row
    If Ro1 = Ro2 Then Exit Do
    Loop
  my_rg.Delete xlUp
   lr = Sh.Cells(Rows.Count, 1).End(3).Row
   Me.ListBox1.Clear
   Me.ListBox1.RowSource = Range("A2:G" & lr).Address
End Sub
'+++++++++++++++++++++++++++++++++++++++
Private Sub TextBox1_AfterUpdate()
 Dim FND As Range
 Dim lr%, Ro1%, Ro2%, i%
 Dim Sh As Worksheet
 
 Set Sh = Sheets("ارشيف العمليات")
 lr = Sh.Cells(Rows.Count, 1).End(3).Row
 Me.ListBox1.Clear
 Set FND = Sh.Range("A1:A" & lr).Find(Me.TextBox1, lookat:=1)
  If FND Is Nothing Then Exit Sub
  Ro1 = FND.Row: Ro2 = Ro1
Do
    With Me.ListBox1
      .AddItem
        For i = 0 To .ColumnCount - 1
         .List(.ListCount - 1, i) = _
         Sh.Cells(Ro2, 1).Offset(, i).Text
        Next
    End With
    Set FND = Sh.Range("A1:A" & lr).FindNext(FND)
    Ro2 = FND.Row
    If Ro1 = Ro2 Then Exit Do
    Loop
End Sub

الملف مرفق

Hisham_Jamal.xlsm

[هشام جمال الدين]

جزاكم الله خيرا اخى الفاضل 

لكن .. بعد البحث عن فاتورة وحذفها تاتى جميع الفواتير ثم قمت باختيار فاتورة من الفواتير التى ظهرث وحذفتها ايضا ياتى error فى الاكواد .

هل يمكن انشاء زر للبحث وتنشيط الليست بوكس بحيث عند كتابة اول رقم تاتى الارقام المشابهة فى الليست بوكس 

وكل عام وانتم بخير 

 

[سليم حاصبيا]

في سؤالك الاول كنت نريد ان تحذف منتج والان فاتورة حدد ما تريد اذ لا وقت لاضاعته

[هشام جمال الدين]

عذرا اريد بحث برقم الفاتورة ثم عمل سيليكت ثم حذف وجزاكم الله خيرا