انا عندى شيت كبير فيه معادلات كتير فعرفت انى ممكن اعمل معادله فى الvbaيسهل عليا ويظهر النتيجه علطول بس لما طبقتها مااشتغلتش وده نص المعادله
 
	Sub formula() 
	Range("a140:a2000").Formula = "=VLOOKUP(D140,Sheet5!A:E,5,0)"
 
	Range("a140:a2000") = Range("a140:a2000").Value
 
	الرجاء المساعده