Formülleri gerektiği kadar kopyalayacak bir makro

[bedri41]

A sutunundaki son veriye kadar formülleri kopyalayacak bir makro ihtiyacım var. yardımcı olacak arkadaşlara teşekkür ederim

 

[hamitcan]

Sub Makro1()
    Range("D1:E1").AutoFill Destination:=Range("D1:E" & [A65536].End(3).Row), Type:=xlFillDefault
End Sub

 

[alfaoz]

mrb ben biraz makrolarda acemniyim ama bi şeyler yapmaya çalıştım yanlız butona program atamayı bilmiyorum o yuzden kısayol atadım ctrl + a kombinasyonu ile makroyu başlatabilirsiniz

umarım yardımcı olabilmişimdir.
BUTONA ATADIM MAKROYU ÇOK KOLAYMIŞ MEĞERSE ))

 

[bedri41]

Sn. Hamitcan, çok teşekkür ederim emeğinize sağlık