Formülü Bir Alt Satıra Kopyala Buton İle

[mustafakoker]

Buna Benzer sorular var forumda ama buton yardımı ile olan yok

yapmak istediğim E12 deki formulu buton yardımıyla 1 alt satıra kopyalamak

Yani butonu tıkladığımda formülü bir alt satıra kopyalaması tekrar kayıt yaptığımda tekrar bir alt satıra kopyalaması satır açarak değil sadece formülü alt satıra kopyalayacak makro ile olursa daha iyi olur amma onunda kodlarını bilmiyorum hem dosya büyümez
satır seçip işaretlemede dosya büyüyor onun için her kayıt dediğimde formulu alt satıra kopyalasın istiyorum

 

[Orion1]

Buyurun.

Sub formul_kopyala()
Dim sat As Long
sat = Cells(Rows.Count, "E").End(xlUp).Row
Range("E" & sat).Copy Range("E" & sat + 1)
End Sub

 

[mustafakoker]

Çok Teşekkür ederim Evren Hocam harikasınız her zamanki gibi