Tarih Formüllerini değere çevir makrosu

[irfancantr]

Herkese iyi akşamlar,

"I" Sütununda I4:I644 aralığında

=EĞER(C4=0;"";($C$2-5))

bir formülüm var, lakin bu formülleri

For i1 = 4 To 644
Cells(i1, 9).Select
ActiveCell.FormulaR1C1 = "=IF(RC[-6]=0,"""",(R2C3-5))"

yöntemi hazırlayıp daha sonrasında

With [I4:I644]
.Formula = .Value
End With

formülleri ortadan kaldırmayı planladım ama olmadı yergök tarih oldu çıktı karşıma.

Bu sorunu nasıl aşabilirim acaba?

 

[Orion1]

Range("I4:I644").Value = Range("I4:I644").Value

 

[irfancantr]

Range("I4:I644").Value = Range("I4:I644").Value

Teknik budur

Elinize sağlık sayın Evren.

 

[Orion1]

Teknik budur

Elinize sağlık sayın Evren.

Rica ederim.
İyi çalışmalar.