hücrenin içerisindeki formül değişmeden yavarla fonksiyonunu kopyalamak

[bulentcigali]

iyi günler arkadaşlar,
ben bir hücrede =yuvarla(a2+sayfa1!a3;2) tanımlıyorum.diğer hücrelerdede bu gibi değişik formüller var ve bu formülleri değiştirmeden yuvarla fonksiyonunu kullanmak istiyorum ve tek tek hücrelere girip yuvarla fonksiyonunu yazıyorum buda fazla kayıt olması nedeniyle zaman alıyor.acaba kısa yoldan bu fonksiyonu tüm hücrelere uygulama imkanı varmı.bir örnekte ekledim saygılarımla teşekkür ederim

 

[umitumit]

ek'teki dosyayı bi incele bakalım

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Mouse ile formül uyguladığınız alanı seçip kodu çalıştırın.

Sub SEÇİLEN_ALANA_YUVARLA_FORMÜLÜNÜ_UYGULA()
    For Each ALAN In Selection
    If ALAN.HasFormula Then
    FORMÜL = Replace(ALAN.Formula, "=", "")
    If InStr(FORMÜL, "ROUND") = 0 Then
    ALAN.Formula = "=ROUND(" & FORMÜL & ",2)"
    End If
    End If
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[bulentcigali]

sayın umitumit teşekkür ederim ancak sizin yaptığınız formül değişmeden aynı formül ve yuvarla fonksiyonu kopyalanıyor.benim istediğim hücrelerde bulunan farklı formüllerin başına (yuvarla gibi) fonksiyonun kopyalanmasıydı

 

[bulentcigali]

sayın cost_control çok çok teşekkür ederim sağolun