Sayfada kullanılan formülleri liste halinde görmek.

[x-line]

İyi akşamlar. Sayfanın muhtelif hücrelerinde bulunan bilumum
fonksiyon ve koşullu biçim formüllerini A sütununda listelemek
istiyorum.

Biraz araştırma yaptım lakin herhangi bir kaynağa ulaşamadım.
Şayet mümkün ise paylaşım yaparsanız sevinirim.

 

[sarpkayhan]

sorunuzu daha açık bir şekilde belirtir misiniz?

 

[x-line]

e10 hücresinde =c10+d10 formülü olsun.
aa20 hücresinde =y20+z20 formülü olsun.

A sütununa
"=" kısmını çıkartıp
c10+d10
y20+z20

şeklinde sıralayacağız.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Formulleri_Listele()
    Dim Alan As Range, Veri As Range, Satir As Integer
    
    On Error Resume Next
    Set Alan = Cells.SpecialCells(xlCellTypeFormulas)
    On Error GoTo 0
    Satir = 1
    Columns(1).Clear
    
    If Not Alan Is Nothing Then
    For Each Veri In Alan
        Cells(Satir, "A") = Replace(Veri.FormulaLocal, "=", "")
        Satir = Satir + 1
    Next
    End If
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[x-line]

Teşekkür ederim abi ellerine sağlık.

 

[Zeki Gürsoy]

Office 2007 veya 2010 versiyonda olup olmadığını hatırlamıyorum. 2013 versiyonda "Formüller" ribon sekmesinde, "Formülleri Göster" isminde yeni bir kontrol mevcuttur.

 

[x-line]

Aşağıdaki kodu deneyiniz.

Sub Formulleri_Listele()
    Dim Alan As Range, Veri As Range, Satir As Integer
    
    On Error Resume Next
    Set Alan = Cells.SpecialCells(xlCellTypeFormulas)
    On Error GoTo 0
    Satir = 1
    Columns(1).Clear
    
    If Not Alan Is Nothing Then
    For Each Veri In Alan
        Cells(Satir, "A") = Replace(Veri.FormulaLocal, "=", "")
        Satir = Satir + 1
    Next
    End If
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

Bu makroda nasıl bir değişiklik yapar isek koşullu biçim için kullanılan
formülleri de görebiliriz?
Tabii mümkünatı var ise.