Makro ile Formüle Git-Kopyala-Değer Yapıştır

[sekozzy]

Arkadaşlar merhaba, başlıkta da belirttiğim üzere amacım formül olan hücreleri değere döbüştürmek. Manuel olarak Git menüsünden Formüle git'e tıklayıp formül olan hücreleri seçiyorum fakat kopyala dediğimde galiyle çoklu seçim olduğu için kopyalama işlemini yapamıyorum. Formül olan hücreleri değere dönüştürmenin makro ile kolay bir yöntemi var mıdır? Yardımcı olursanız çok sevinirim. Hepinize iyi çalışmalar.

 

[Haluk]

Makro kaydet yöntemiyle elde edilen koda yapılan bir ilave, işinizi görür sanırım ...

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    
    For Each Rng In Selection
        Rng.Value = Rng.Value
    Next
End Sub

.

 

[sekozzy]

Makro kaydet yöntemiyle elde edilen koda yapılan bir ilave, işinizi görür sanırım ...

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
   
    For Each Rng In Selection
        Rng.Value = Rng.Value
    Next
End Sub

.

Haluk bey teşekkür ederim. Makro kaydet yöntemini denemiştim ama for döngüsünü oluşturmayı bilmediğim için istemiş olduğum işlemi gerçekleştiremiyordum. Vermiş olduğunuz kod işimi gördü. Son bir sorum olacak. Bu kodu excel dosyasında bulunan tüm sayfalar için çalıştırmak istediğimde nasıl yapmalıyım?

 

[Haluk]

Sub Macro1()
'
' Macro1 Macro
'

'
    For i = 1 To Sheets.Count
        Sheets(i).Activate
        Selection.SpecialCells(xlCellTypeFormulas, 23).Select
        
        For Each Rng In Selection
            Rng.Value = Rng.Value
        Next
    Next
End Sub

.

 

[sekozzy]

Sub Macro1()
'
' Macro1 Macro
'

'
    For i = 1 To Sheets.Count
        Sheets(i).Activate
        Selection.SpecialCells(xlCellTypeFormulas, 23).Select
       
        For Each Rng In Selection
            Rng.Value = Rng.Value
        Next
    Next
End Sub

.

Haluk bey bu vermiş olduğunuz kod da ufak bir sorun dışında işe yaradı. Formül içermeyen sayfalarda hata veriyor ve bu sebeple kod duruyor. Bunu nasıl atlatabiliriz acaba?

 

[sekozzy]

Kodu çalıştırınca formül içeren hücreleri aradığı için formül içermeyen bir sayfa denk geldiğinde aşağıdaki uyarıyı veriyor ve kod bu uyarıyı atlayıp işlemine devam edemiyor. Bu uyarıyı nasıl atlatabiliriz?

 

[Haluk]

Kodun başına;

on error resume next

satırını ilave edin ....

.

 

[sekozzy]

Kodun başına;

on error resume next

satırını ilave edin ....

.

Sub Formul_Deger()
    For i = 1 To Sheets.Count
        Sheets(i).Activate
    On Error Resume Next
        Selection.SpecialCells(xlCellTypeFormulas, 23).Select
        
        For Each Rng In Selection
            Rng.Value = Rng.Value
        Next
        Range("A1").Select
    Next
    MsgBox "Formülleri dönüştürme işlemi tamamlandı.", vbInformation, "İŞLEM TAMAMLANDI"
End Sub

Kodları bu şekilde düzenleyince sorun çözüldü. Elinize emeğinize sağlık Haluk bey, çok teşekkür ederim. İyi çalışmalar.