Comments on: Listing Formulas http://www.dailydoseofexcel.com/archives/2010/02/26/listing-formulas/ Daily posts of Excel tips…and other stuff Thu, 09 Feb 2012 18:06:07 +0000 hourly 1 http://wordpress.org/?v=3.2.1 By: Rick Rothstein (MVP - Excel) http://www.dailydoseofexcel.com/archives/2010/02/26/listing-formulas/#comment-44227 Rick Rothstein (MVP - Excel) Fri, 26 Feb 2010 18:49:00 +0000 http://www.dailydoseofexcel.com/?p=3603#comment-44227 <p>@Nick and Dick...</p> <p>I guess I should have included an "On Error" statement just to protect against the Selection having no formulas in any of its cells...</p> <div style="overflow: auto; white-space: nowrap;" class="codecolorer-container vb default"><div style="white-space: nowrap;" class="vb codecolorer"><span class="kw1">Sub</span> ListFormulas()<br>    <br>     <span class="kw1">Dim</span> rCell <span class="kw1">As</span> Range<br>     <br>     <span class="kw1">On</span> <span class="kw1">Error</span> <span class="kw1">Resume</span> <span class="kw1">Next</span><br>     <span class="kw1">If</span> TypeName(Selection) = <span class="st0">"Range"</span> <span class="kw1">Then</span><br>         <span class="kw1">For</span> <span class="kw1">Each</span> rCell <span class="kw1">In</span> Selection.SpecialCells(xlCellTypeFormulas)<br>             Debug.<span class="kw1">Print</span> Space(4) & rCell.Address(0, 0), rCell.Formula<br>         <span class="kw1">Next</span> rCell<br>     <span class="kw1">End</span> <span class="kw1">If</span><br>    <br> <span class="kw1">End</span> <span class="kw1">Sub</span></div></div> @Nick and Dick…

I guess I should have included an “On Error” statement just to protect against the Selection having no formulas in any of its cells…

Sub ListFormulas()
   
    Dim rCell As Range
   
    On Error Resume Next
    If TypeName(Selection) = “Range” Then
        For Each rCell In Selection.SpecialCells(xlCellTypeFormulas)
            Debug.Print Space(4) & rCell.Address(0, 0), rCell.Formula
        Next rCell
    End If
   
End Sub
]]> By: Rick Rothstein (MVP - Excel) http://www.dailydoseofexcel.com/archives/2010/02/26/listing-formulas/#comment-44224 Rick Rothstein (MVP - Excel) Fri, 26 Feb 2010 16:21:00 +0000 http://www.dailydoseofexcel.com/?p=3603#comment-44224 <p>@Nick and Dick...</p> <p>Here is another way to avoid cells that do not have formulas in them. This method has the advantage of not looping through, and testing, every cell in the selection as the SpecialCells method will only deliver a range of cells with formulas for the "For Each" statement to iterate through. Also note that I replaced the String function call with, in my opinion, the more apt Space function call.</p> <div style="overflow: auto; white-space: nowrap;" class="codecolorer-container vb default"><div style="white-space: nowrap;" class="vb codecolorer"><span class="kw1">Sub</span> ListFormulas()<br>    <br>     <span class="kw1">Dim</span> rCell <span class="kw1">As</span> Range<br>    <br>     <span class="kw1">If</span> TypeName(Selection) = <span class="st0">"Range"</span> <span class="kw1">Then</span><br>         <span class="kw1">For</span> <span class="kw1">Each</span> rCell <span class="kw1">In</span> Selection.SpecialCells(xlCellTypeFormulas)<br>             Debug.<span class="kw1">Print</span> Space(4) & rCell.Address(0, 0), rCell.Formula<br>         <span class="kw1">Next</span> rCell<br>     <span class="kw1">End</span> <span class="kw1">If</span><br>    <br> <span class="kw1">End</span> <span class="kw1">Sub</span></div></div> @Nick and Dick…

Here is another way to avoid cells that do not have formulas in them. This method has the advantage of not looping through, and testing, every cell in the selection as the SpecialCells method will only deliver a range of cells with formulas for the “For Each” statement to iterate through. Also note that I replaced the String function call with, in my opinion, the more apt Space function call.

Sub ListFormulas()
   
    Dim rCell As Range
   
    If TypeName(Selection) = “Range” Then
        For Each rCell In Selection.SpecialCells(xlCellTypeFormulas)
            Debug.Print Space(4) & rCell.Address(0, 0), rCell.Formula
        Next rCell
    End If
   
End Sub
]]> By: Nick Burns http://www.dailydoseofexcel.com/archives/2010/02/26/listing-formulas/#comment-44223 Nick Burns Fri, 26 Feb 2010 15:52:00 +0000 http://www.dailydoseofexcel.com/?p=3603#comment-44223 <p>Why not avoid those cells that do not have formulas:</p> <div style="overflow: auto; white-space: nowrap;" class="codecolorer-container vb default"><div style="white-space: nowrap;" class="vb codecolorer"><span class="kw1">Sub</span> ListFormulas()<br>    <br>     <span class="kw1">Dim</span> rCell <span class="kw1">As</span> Range<br>    <br>     <span class="kw1">If</span> TypeName(Selection) = <span class="st0">"Range"</span> <span class="kw1">Then</span><br>         <span class="kw1">For</span> <span class="kw1">Each</span> rCell <span class="kw1">In</span> Selection.Cells<br>             <span class="kw1">If</span> rCell.HasFormula <span class="kw1">Then</span><br>                 Debug.<span class="kw1">Print</span> <span class="kw1">String</span>(4, <span class="st0">" "</span>) & rCell.Address(0, 0), rCell.Formula<br>             <span class="kw1">End</span> <span class="kw1">If</span><br>         <span class="kw1">Next</span> rCell<br>     <span class="kw1">End</span> <span class="kw1">If</span><br>    <br> <span class="kw1">End</span> <span class="kw1">Sub</span></div></div> Why not avoid those cells that do not have formulas:

Sub ListFormulas()
   
    Dim rCell As Range
   
    If TypeName(Selection) = “Range” Then
        For Each rCell In Selection.Cells
            If rCell.HasFormula Then
                Debug.Print String(4, ” “) & rCell.Address(0, 0), rCell.Formula
            End If
        Next rCell
    End If
   
End Sub
]]>