تعديل وضبط كود الفورم

[هانى محمد]

السلام عليكم اهل المنتدى الكرام أرجو من حضراتكم التكرم على مساعدتى فى تعديل كود هذ ا الفورم

بحيث عند البحث وكتابة الإسم تظهر النتائج والبيانات فى الليست بوكس وبعد ذلك جمع عمود الدين الداخلى والدين الخارجى فى التكست البوكس اللى اسفل الليست بوكس كل على حده

بارك الله فيكم جميعا

 

Listbox.xlsm

[هانى محمد]

للرفع من فضلكم

[ابراهيم الحداد]

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

ضع هذا الكود فى حدث الفورم

Private Sub TextBox1_Change()
Dim Arr As Variant, Temp As Variant
Dim i As Integer, j As Integer, p As Integer
Dim x, y As Integer
Arr = Range("A2:E12").Value
ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
For i = 1 To UBound(Arr, 1)
If Arr(i, 1) = Me.TextBox1.Value Then
p = p + 1
For j = 1 To UBound(Arr, 2)
Temp(p, j) = Arr(i, j)
Next
x = x + Temp(p, 3)
y = y + Temp(p, 4)
End If
Next
Me.ListBox1.List = Temp
Me.TextBox2 = x
Me.TextBox3 = y
End Sub

 

[هانى محمد]

بارك الله فيك أستاذنا -رائع وأحسنت

جعله الله فى ميزان حسناتك