excel deki butun formulleri gormeeee

[mavisim_03220]

arkadaşlar araçlar seçenekler görünüm-formulleri işraretledenizde butun formuller gorunurr

 

[nihatkr]

Gerçektenmi. Enteresan.

 

[mavisim_03220]

ya asıl benım anlatmak ıstedım yanı bırı sana bı excel sayfası gonderdı sende nasıl yaptını gormek ıcın butun formullerı goster dıyorsun

 

[tahsinanarat]

Sub ListFormulas()
Dim FormulaCells As Range, Cell As Range
Dim FormulaSheet As Worksheet
Dim Row As Integer

On Error Resume Next
Set FormulaCells = Range("A1").SpecialCells(xlFormulas, 23)

If FormulaCells Is Nothing Then
MsgBox "Formül yok yada sayfa korumalı."
Exit Sub
End If

Application.ScreenUpdating = False
Set FormulaSheet = ActiveWorkbook.Worksheets.Add
FormulaSheet.Name = "Gösterilen " & FormulaCells.Parent.Name

With FormulaSheet
Range("A1") = "Adres"
Range("B1") = "Formül"
Range("C1") = "Değer"
Range("A1:C1").Font.Bold = True
End With

Row = 2
For Each Cell In FormulaCells
Application.StatusBar = Format((Row - 1) / FormulaCells.Count, "0%")
With FormulaSheet
Cells(Row, 1) = Cell.Address _
(RowAbsolute:=False, ColumnAbsolute:=False)
Cells(Row, 2) = " " & Cell.Formula
Cells(Row, 3) = Cell.Value
Row = Row + 1
End With
Next Cell
FormulaSheet.Columns("A:C").AutoFit
Application.StatusBar = False
End Sub