formulu değere çevirme

[irfancantr]

Sub Form2Deger()
For Each c In Selection.C ells
c.Formula=c.Value
Next c
End Sub

Burada seçili hücreye işlem yapıyoruz, ama ben devamlı olarak sabit olan hücrelerimi daha önceden belirlediğim hücreleri değiştirmek istiyorum mesela a1 c8 d7 gibi onun için bu kodu nasıl değiştirebilirim????

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Hücre adreslerini kendinize göre değiştiriniz.

Sub DEĞERE_ÇEVİR()
    With [A2,C8,D7]
    .Formula = .Value
    End With
End Sub

 

[irfancantr]

süpersin çok teşekkür ediyorum sana
bilmemek ayıp değil öğrenmemek ayıpmış.
Öğrettiğin için çok teşekkür ederim COST_CONTROL