sayfadaki formülleri kaydetme

Katılım
24 Mart 2017
Mesajlar
148
Excel Vers. ve Dili
ofis 2013
arkadaşlar merhaba hücrelerde bulunan tüm formülleri kaydetmek istiyorum bunu nasıl yapaibiliriz. makro kaydet yaparak hücreleri tek tek şu şekil yapıyorum ama bazı sayfalarda satır çok olduğu için yapmasi uzun sürüyor bunun farklı bir yolu var mi acaba?
teşekkürler
Kod:
 Range("C3").Select
    ActiveCell.FormulaR1C1 = "=MAXA('verile'!R[19]C[5]:R[19]C[22])"
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "=MIN('verile'!R[18]C[5]:R[18]C[22])"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(dönem!R18C2/(dönem!R39C3),"""")"
 
Üst