Makro Tarih Kaydetme

[denksal]

Arkadaşlar makro öğrenmeye çalışıyorum--Aşağıdaki makroları önce formülle yazıp sonra makro kaydet ile yaptım böyle hazırladı.Ama eksik tabikine aşağıdaki soruları yanıtlayacak arkadaşlarıma şimdiden teşekkürler

* Makro otomotik kendi çalışmıyor (kod bölümündeki Run sub yeşil üçgene basınca hesaplıyor.
*Förmülle hazırladığım için , makro yapılan hücrelerde förmül gözüküyor
*Bu förmülleri aşağıdaki hücreler için 20.000 civarında nasıl hepsine tanıtırım ?

Sub Tarih()
'
' Tarih Makro
'

' ActiveCell.FormulaR1C1 = "=IFERROR(IF(RC[-4]="""","""",(RC[-4]+160)),RC[-4])"
Range("L2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF(RC[-5]="""","""",(RC[-1]-TODAY())),RC[-5])"
ActiveCell.FormulaR1C1 = "=IFERROR(IF(RC[-4]="""","""",(RC[-4]+160)),RC[-4])"
Range("M2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF(RC[-5]="""","""",(RC[-1]-TODAY())),RC[-5])"
Range("N2").Select
ActiveCell.FormulaR1C1 = "=IFERROR(IF(RC[-5]="""","""",(RC[-5]+335)),RC[-5])"
Range("O2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(IF(RC[-6]="""","""",(RC[-1]-TODAY())),RC[-6])"
Range("P2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-6]="""","""",(RC[-6]+45))"
Range("Q2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-6]="""","""",(RC[-6]+335))"
Range("R2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-7]="""","""",RC[-1]-TODAY())"
Range("R3").Select
End Sub

 

[denksal]

formülü Makroya çevirebilirmiyiz

 

[Korhan Ayhan]

Linki inceleyiniz.

https://www.excel.web.tr/threads/formuelleri-makro-ile-degere-cevirme-uygulamasi.118352/

 

[denksal]

Hata!
Bu sayfaya erişim veya bu işlemi gerçekleştirme izniniz yok.

 

[Korhan Ayhan]

Erişim için sanırım Altın Üyelik gerekiyor.