مساعده في نقل بيانات معادلة

[asd2000]

مساء الخير

عندب معادله ولها نتيجه

ارغب في نقل الناتج للمعادله الي خليه اخري تلقائي

علما بانني ارفقت مستند صغير للتوضيح

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

المصنف1.xlsx

[عبدالفتاح في بي اكسيل]

اخي  هذه  محاولة مني  بالكود   عن  نفسي  افضل  الاكواد  ديناميكية  وسريعة  من  غير سحب  المعادلات  اذا  زادت البيانات

ملاحظة  اكتب  البيانات  في  العمود  a  فقط  وسيجلب  البيانات  الكود 

Sub tr()
Dim lr As Integer
Application.ScreenUpdating = False
 lr = Cells(Rows.Count, 1).End(xlUp).Row
 For i = 2 To lr
 Cells(i, 3) = Cells(i, 1)
 Next
Range("c:c").Copy Destination:=Range("E1")
Application.ScreenUpdating = True
End Sub

 

 

 

المصنف1.xlsm