تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة جمع في الليست بوكس بفورم بحث أ / عبدالله باقشير
With Me.ListFind
For Counter = 0 To .ListCount - 1
SumResult = SumResult + .Column(3, Counter)
Next Counter
End With
TextBox1.Value = SumResult
مع امكانية تغيير العمود المراد جمعه
تم ارفاق كود الحل من الفاضل _ أ / ياسر خليل أبو البراء
و لا تنسونا من صالح الدعاء
Search UserForm Magic.rar