View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Paul B[_7_] Paul B[_7_] is offline
external usenet poster
 
Posts: 73
Default Printing Cell Formulas

Teresa, try this macro by John Walkenbach
It will list formulas , cell address, and valves in a new worksheet for the
sheet you are on.

Sub ListFormulas()
'from John Walkenbach
Dim FormulaCells As Range, Cell As Range
Dim FormulaSheet As Worksheet
Dim Row As Integer

' Create a Range object for all formula cells
On Error Resume Next
Set FormulaCells = Range("A1").SpecialCells(xlFormulas, 23)

' Exit if no formulas are found
If FormulaCells Is Nothing Then
MsgBox "No Formulas or the sheet is protected."
Exit Sub
End If

' Add a new worksheet
Application.ScreenUpdating = False
Set FormulaSheet = ActiveWorkbook.Worksheets.Add
FormulaSheet.Name = "Formulas in " & FormulaCells.Parent.Name

' Set up the column headings
With FormulaSheet
Range("A1") = "Address"
Range("B1") = "Formula"
Range("C1") = "Value"
Range("A1:C1").Font.Bold = True
End With

' Process each formula
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
' Adjust column widths
FormulaSheet.Columns("A:C").AutoFit
Application.StatusBar = False
End Sub

--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **

"Teresa Hoffman" wrote in message
...
I am attempting to write a macro that will display the cell formulas in

the
Active Sheet and then print this sheet. I would like to have the printed
sheet display one cell formula per line rather than display the worksheet

as
is (in row/column form) with cell formulas displayed. The macro in our
Quattro Pro spreadsheets prints out one cell formula per line but I don't
know if this is possible in Excel.

A related issue regarding the printing of cell formulas is that cells that
contain large formulas do not display the entire formula. It only

displays
the portion within the default width of the column. I need to display the
entire formula, whether it is one formula per line or not.

I welcome any suggestions on how to accomplish this objective. Thank you!