formülün şeklini değiştirme

[modoste]

merhaba sayın hocalarım
bir arkadaşım bir tablo gönderdi bende size sormak istedim istediğini yapamadım
istediği şu
kendisi formüller kullanmış formülde iki sayıyı çarptırmış ve buna benzer 100 hücrede formül var
bu formüllerin hepsi birden YUVARLA(A3*B3;2) haline hepsi birden dönüştürülür mü. En Genel anlamda belirli bir aralıkta kullanılmış formül ne olursa olsun onu (YUVARLA(formül);2) haline dönüştürmek

=+$J$5*$E20
=+$J$5*$E22
=+$J$5*$E24
böyle devam eden 100 den fazla farklı satır ve sütundaki hücrede formül var. tablonun tümüne baktığımda bazı hücreler 2 sayının çarpımı bazıları 4 verinin çarpımı gibi karışık bir düzende

ekli tablomda çok uzun listenin ilk 3 verisini keserek ekledim aşağıya doğru devam ediyor.

 

[modoste]

dosyanın tamamını gönderiyorum

 

[modoste]

https://drive.google.com/file/d/0B9GZL6DIeyZCdTVwOWdkZ0c5MlU/edit?usp=sharing

 

[Korhan Ayhan]

Alan seçip makroyu çalıştırın.

Sub YUVARLA_UYGULA()
    Dim Veri As Range, Formul As String
    
    For Each Veri In Selection
        If Veri.HasFormula Then
            Formul = Veri.FormulaLocal
            Veri.FormulaLocal = "=YUVARLA(" & Mid(Formul, 2, Len(Formul) - 1) & ";2)"
        End If
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[modoste]

Korhan Hocam çok teşekkür ederim