مساعدة فى كود بسيط vba

[mustafa.aboul-eneen]

السلام عليكم 

دلوقتى لما بستخدم الكود ده

[H2]=[J2]&"Done"

ده علشان ينسخ الخلية ويضيف عليها كلمة done

طيب انا عايز يطبق ده من H2 to H20

تتكتب ازاى من فضلكم

[سليم حاصبيا]

اليك الكود لهذا الامر

Option Explicit
Sub My_formula()
Range("h2:h" & Cells(Rows.Count, "j").End(3).Row).Formula = _
"=J2 " & "& "" Done"""
End Sub

او هذا

Sub My_formula1()
Range("h2:h" & Cells(Rows.Count, "j").End(3).Row).FormulaArray = _
"=(j2:J" & Cells(Rows.Count, "j").End(3).Row & ")" & "& "" Done"""
End Sub