Formüllü Seçile Hücrelerin Yuvarlama Ekleme

[cmehmet]

arkadaşlar Seçilen hüclere(Formülle Hesaplanmış Hücreler örnek c1 hücresinde =A1+A2 )
Kaç tane hücre seçersem seçeyim Seçtikten sonra hücre formlülü şu hale getirmeli
yine C1 hücresinin içerisnideki formülü revize etmek
=yukarıyuvarla(A1+A2;0)
Yardımılarını için şimdiden teşekkürler

 

[Korhan Ayhan]

Alanı seçip aşağıdaki kodu 1 kez çalıştırın.

Sub FORMUL_GUNCELLE()
    Dim Alan As Range
    
    For Each Alan In Selection
        If Alan.HasFormula Then
            Alan.Formula = "=ROUNDUP(" & Replace(Alan.Formula, "=", "") & ",0)"
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[hamitcan]

Buda benden.

SuB FomulleriYuvarla()
    For Each Hcr In Selection.SpecialCells(xlCellTypeFormulas).Cells
            a = Right(Hcr.Formula, Len(Hcr.Formula) - 1)
            Hcr.Formula = "=round(" & a & ",0)"
    Next
End Sub

 

[cmehmet]

Hocam teşekkr ederim.Daha Deneyemedim ama kodu anladım en azından
Korhan Ayhan
hamitcan