Keeping Formulas in the Formula Bar From Covering Up Data

[SonicBoomGolf]

I have some ginormous formulas in my sheet, and they spill out of the Formula Bar onto the spreadsheet, covering up some of the data. I remember reading about how to correct this, but can't remember the process. Any ideas?

 

[Zack Barresse]

Hi,

Hide the formula bar, or make your formula(s) smaller.

 

[barry houdini]

You can format the cells as hidden then protect the sheet, then you wouldn't see the formulas at all

 

[orbea_adam]

Record a macro to increase row height for Row 1. Assign that macro to a button and click when you need to edit formulas. Record another macro to decrease row height back to normal and assign that to another button. Or, instead of buttons use: CTRL + I for increase and CTRL + D for decrease.

 

[Zack Barresse]

Hmm, interesting. As far as a row/column increment goes, this may help with that ..


<font face=Tahoma New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN>

<SPAN style="color:#00007F">Sub</SPAN> ChangeRowSize(ChangePercent <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>)
    
    <SPAN style="color:#00007F">Dim</SPAN> r <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
    <SPAN style="color:#00007F">Dim</SPAN> iStart <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, iEnd <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
    
    Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN>
    
    iStart = Selection.Row
    iEnd = Selection.Rows.Count + iStart - 1
    
    <SPAN style="color:#00007F">For</SPAN> r = iStart <SPAN style="color:#00007F">To</SPAN> iEnd
        i = Rows(r).RowHeight
        Rows(r).RowHeight = i + i * (ChangePercent / 100)
    <SPAN style="color:#00007F">Next</SPAN> r
    
    Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN>
    
    MsgBox "Complete!" & vbNewLine & "Adjusted " & ChangePercent & "%"
    
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>

<SPAN style="color:#00007F">Sub</SPAN> ChangeColumnSize(ChangePercent <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>)
    
    <SPAN style="color:#00007F">Dim</SPAN> r <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
    <SPAN style="color:#00007F">Dim</SPAN> iStart <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, iEnd <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
    
    Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN>
    
    iStart = Selection.Column
    iEnd = Selection.Columns.Count + iStart - 1
    
    <SPAN style="color:#00007F">For</SPAN> r = iStart <SPAN style="color:#00007F">To</SPAN> iEnd
        i = Columns(r).ColumnWidth
        Columns(r).ColumnWidth = i + i * (ChangePercent / 100)
    <SPAN style="color:#00007F">Next</SPAN> r
    
    Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN>
    
    MsgBox "Complete!" & vbNewLine & "Adjusted " & ChangePercent & "%"
    
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>

<SPAN style="color:#00007F">Sub</SPAN> RunIt_Rows()
     <SPAN style="color:#007F00">'Figure will be used as a percentage increment/decrement</SPAN>
    ChangeRowSize 10
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>

<SPAN style="color:#00007F">Sub</SPAN> RunIt_Columns()
     <SPAN style="color:#007F00">'Figure will be used as a percentage increment/decrement</SPAN>
    ChangeColumnSize -10
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>