تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة    جمع في الليست بوكس بفورم بحث أ / عبدالله باقشير
	 
	
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