Home |
Search |
Today's Posts |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Printing Formulas | Excel Discussion (Misc queries) | |||
Printing Formulas | Excel Discussion (Misc queries) | |||
printing without zeros showing in a cell with formulas | Excel Worksheet Functions | |||
printing formulas | Excel Discussion (Misc queries) | |||
Printing formulas | Excel Discussion (Misc queries) |