كود بحث وجمع

[Ashraf Ehab]

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

انا اريد اضغط علي زر بحث يقوم بالبحث عن اسم المورد ويظهر 2 تكست بوكس 

بعدها يجمع كل بيانات المدفوع والمتبقي الي باسم المورد في ال2 تكست بوكس 

للتوضيح انا الي اريد عمله كالاتي ...اما اضغط اضافة في الفورم بضيف بيانات المورد فقط  ...وحين اضافة فاتورة شراء بيترحل بعمود اخر غير العمود المحدد للاضافة ..اما في حالة البحث... فالبحث هيكون باسم المورد فيقوم بجمع قيم المتبقي والمدفوع في التكست بوكس المخفي  ...وشكرا ...والله الموفق للجميع مرفق الملف 

مورد.xlsm

[Ashraf Ehab]

تم الحل  بهذا الكود في زر البحث 

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Me.ListBox1.ColumnWidths = "100,100,100"
ListBox1.RowSource = Empty
ListBox1.Clear
Sheets("suppliers").Select
For Each f In Range("a2:a" & Range("a10000").End(xlUp).Row)
If f Like textbo1 & "*" Then
listed = ListBox1.ListCount
ListBox1.AddItem
ListBox1.List(listed, 0) = f
ListBox1.List(listed, 2) = f.Offset(0, 2)
ListBox1.List(listed, 3) = f.Offset(0, 3)
End If
Next
Dim x As Double
For i = 0 To ListBox1.ListCount - 1
x = x + ListBox1.List(i, 3)

Next i
Me.Label9.Visible = True
Me.TextBox8.Visible = True
TextBox8.Value = x
Dim v As Double
For Z = 0 To ListBox1.ListCount - 1
v = v + ListBox1.List(Z, 2)
Next Z
Me.Label8.Visible = True
Me.TextBox7.Visible = True
TextBox7.Value = v
Application.ScreenUpdating = True
End Sub

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

شكرا

[أ / محمد صالح]

بارك الله فيك لحبك الخير للغير

ويمكن اختصار الحلقات التكرارية للحصول على المجموعين بهذين السطرين

Me.TextBox7.Value = WorksheetFunction.SumIf(suppliersSheet.Range("A:A"), Me.TextBox1.Value, suppliersSheet.Range("C:C"))
Me.TextBox8.Value = WorksheetFunction.SumIf(suppliersSheet.Range("A:A"), Me.TextBox1.Value, suppliersSheet.Range("D:D"))

بالتوفيق

[Ashraf Ehab]

شكرا لك