Yuvarlamalar iptal

[Leoncio]

Merhabalar;
Çalışma kitabımda daha önce yapmış olduğum yuvarlama formüllerinin tümünü makro ile iptal etmek istiyorum. Formüller örnek olarak aşağıdaki şekilde. Nasıl bir kod kullanmalıyım?

YUVARLA(ETOPLA(Mizan!A:A;10;Mizan!G:G)/1000;2)
Aşağıdaki şekle sokmak istiyorum.
ETOPLA(Mizan!A:A;10;Mizan!G:G)
Formüldeki GG kolonu bazı yerlerde HH oluyor.

 

[Korhan Ayhan]

Merhaba,

Şöyle deneyiniz.

Formüllü alanı seçiniz.
CTRL+H (ilk kutucuk = ikinci kutucuk '= yazıp tümünü değiştir yapınız.)
Bu işlemden sonra formüller METİN gibi görünecektir.
Sonrasında ilk kutucuğa YUVARLA( ikinci kutucuğu boş bırakıp tümünü değiştir yapınız.)
Sonrasında ilk kutucuğa ;2) ikinci kutucuğu boş bırakıp tümünü değiştir yapınız.)
Sonrasında ilk kutucuk '= ikinci kutucuk = yazıp tümünü değiştir yapınız.)

Bunlar zor gelirse CTRL+H dedikten sonra ilk kutucuğa ;2) ikinci kutucuğa ;15) yazıp tümünü değiştir derseniz yuvarlamanın duyarlılığını azaltmış olursunuz. Bu da işinize yarayabilir.

 

[Leoncio]

Teşekkür ediyorum. Bunu makro ile yapabilirmiyiz.

 

[Korhan Ayhan]

Önerdiğim işlemlere başlamadan önce MAKRO KAYDET işlemini başlatırsanız ilgili kodları elde edebilirsiniz.

Sonrasında birazcık kodlara çekidüzen vererek kullanabilirsiniz.

 

[Leoncio]

CTRL + H ile en son
Sonrasında ilk kutucuk '= ikinci kutucuk = yazıp tümünü değiştir yapınız.)
Bunu yaptıramadım. "Değiştirilecek hiç bir şey bulamadık" mesajı verdi.

 

[Leoncio]

Arkadaşlar konu güncel. Formül içinde bulunan yuvarlamaları iptal etmek istiyorum. Yardımlarınızı bekliyorum.
YUVARLA(ETOPLA(Mizan!A:A;10;Mizan!G:G)/1000;2)

Aşağıdaki şekle sokmak istiyorum.
ETOPLA(Mizan!A:A;10;Mizan!G:G)
Formüldeki GG kolonu bazı yerlerde HH oluyor.

 

[Ömer]

Merhaba,

Yuvarlama için kullanılan tüm formüller yukarıda yazdığınız etopla için mi kullanıldı.

 

[Leoncio]

Evet Ömer bey.

 

[Ömer]

Deneyiniz.

Sub test()
    
    Dim hcr As Range, d As String
    
    With Application
        .ScreenUpdating = False
        .Calculation = xlManual
    
        For Each hcr In Cells.SpecialCells(xlCellTypeFormulas, 23)
            d = Replace(Replace(hcr.FormulaLocal, "YUVARLA(", ""), ";2)", "")
            hcr.FormulaLocal = d
        Next
    
        .Calculation = xlAutomatic
        .ScreenUpdating = True
    End With
    
End Sub

 

[Leoncio]

Ömer bey,
Örneğe uygun taslak dosya ekte. Kodları kullandım aşağıdaki hatayı verdi.
hcr.FormulaLocal = d

 

[Leoncio]

Örnek dosya ekledim. Konu ile ilgili yardımlarınızı bekliyorum hocalarım.
Daha önce yuvarlama ile oluşturduğum bir çok çalışmam var. Bunları makro ile kaldıramazmıyım?