I have a cell with the following calculation

=IF(AND(C62-C56>0,C70-C66>0),"Yes - Loan Should be
Approved",IF(AND(C62-C56<0,C70-C66<0),"No - Speak to your Advisor.","Possible
- Depending on Detailed Application, speak to your Banker"))

Now it works ok but I want to stop it calculating until the "user" requests
an answer.

The second part is how do i tell the spreadsheet to remove all data in
"unprotected cells"?

The idea the user opens the spreadsheet completes a series of cells then
selects answer to display then closes out without saving the data so the the
spreadsheet is blank on reopening.
--
Rob52

Thank you for the code.

The equation I gave you sits in cell C76. I have a series of questions that
the user answers. I want them to answer the questions and once finished,
somehow have the answer displayed (but not before) perhaps click a button.
These are other calculations that are made during the course of answering the
questions - auto calculation of these is okay.

Perhaps hiding the cell or row until we click a button?

In regards to the second part of my question we can leave that out for now.


--
Rob52


"Simon Lloyd" wrote:

>
> Sorry Rob that should have read:
>
>

> VBA Code:
> --------------------
>
>

> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Me.Range("A1").Value = "No" Then
> Application.Calculation = xlCalculationManual
> Else
> Application.Calculation = xlCalculationAutomatic
> End If
> End Sub

> --------------------
>
>
>
>
>
>
Simon Lloyd;645896 Wrote:
> >
> Perhaps something along these lines but i need more information from
> you:
>
>
>
>

> VBA Code:
> --------------------
> >
>
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Me.Range("A1").Value = "No" Then
> Application.Calculation = xlCalculationManual
> Else
> Application.Calculation = xlCalculationManual
> End If
> End Sub

> --------------------
> >
>
>
>
>
> > HOW TO SAVE A WORKSHEET EVENT MACRO[/B]
> 1. *COPY* THE MACRO ABOVE PLACING THE CURSOR TO THE LEFT OF THE CODE
> BOX HOLD THE *CTRL & LEFT CLICK,* THEN *RIGHT CLICK* SELECTED CODE AND
> *COPY.*
> 2. OPEN YOUR WORKBOOK AND *RIGHT CLICK* ON THE *WORKSHEET'S NAME TAB*
> FOR THE WORKSHEET THE MACRO WILL RUN ON.
> 3. *LEFT CLICK* ON *VIEW CODE* IN THE POP UP MENU.
> 4. *PASTE* THE MACRO CODE USING *CTRL+V*
> 5. MAKE ANY CUSTOM CHANGES TO THE MACRO IF NEEDED AT THIS TIME.
> 6. *SAVE* THE MACRO IN YOUR WORKBOOK USING [B]CTRL+Sr
>
>
> --
> Simon Lloyd
>
> Regards,
> Simon Lloyd
> 'Microsoft Office Help' (http://www.thecodecage.com)
> ------------------------------------------------------------------------
> Simon Lloyd's Profile: 1
> View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=180015
>
> Microsoft Office Help
>
> .
>

I have now created a check box to hide row 70. The code was gleamed from
previous posting to this area.

Private Sub CheckBox1_Click()

If CheckBox1 = True Then
ActiveSheet.Cells.EntireRow("70").Hidden = False
Else
ActiveSheet.Cells.EntireRow("70").Hidden = True
End If

End Sub

This should work. Thanks for your help.


--
Rob52


"Rob52" wrote:

> Thank you for the code.
>
> The equation I gave you sits in cell C76. I have a series of questions that
> the user answers. I want them to answer the questions and once finished,
> somehow have the answer displayed (but not before) perhaps click a button.
> These are other calculations that are made during the course of answering the
> questions - auto calculation of these is okay.
>
> Perhaps hiding the cell or row until we click a button?
>
> In regards to the second part of my question we can leave that out for now.
>
>
> --
> Rob52
>
>
> "Simon Lloyd" wrote:
>
> >
> > Sorry Rob that should have read:
> >
> >
>
> > VBA Code:
> > --------------------
> >
> >
>
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > If Me.Range("A1").Value = "No" Then
> > Application.Calculation = xlCalculationManual
> > Else
> > Application.Calculation = xlCalculationAutomatic
> > End If
> > End Sub
>
> > --------------------
> >
> >
> >
> >
> >
> >
> Simon Lloyd;645896 Wrote:
> > >
> > Perhaps something along these lines but i need more information from
> > you:
> >
> >
> >
> >
>
> > VBA Code:
> > --------------------
> > >
> >
> >
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > If Me.Range("A1").Value = "No" Then
> > Application.Calculation = xlCalculationManual
> > Else
> > Application.Calculation = xlCalculationManual
> > End If
> > End Sub
>
> > --------------------
> > >
> >
> >
> >
> >
> > > HOW TO SAVE A WORKSHEET EVENT MACRO[/B]
> > 1. *COPY* THE MACRO ABOVE PLACING THE CURSOR TO THE LEFT OF THE CODE
> > BOX HOLD THE *CTRL & LEFT CLICK,* THEN *RIGHT CLICK* SELECTED CODE AND
> > *COPY.*
> > 2. OPEN YOUR WORKBOOK AND *RIGHT CLICK* ON THE *WORKSHEET'S NAME TAB*
> > FOR THE WORKSHEET THE MACRO WILL RUN ON.
> > 3. *LEFT CLICK* ON *VIEW CODE* IN THE POP UP MENU.
> > 4. *PASTE* THE MACRO CODE USING *CTRL+V*
> > 5. MAKE ANY CUSTOM CHANGES TO THE MACRO IF NEEDED AT THIS TIME.
> > 6. *SAVE* THE MACRO IN YOUR WORKBOOK USING [B]CTRL+Sr
> >
> >
> > --
> > Simon Lloyd
> >
> > Regards,
> > Simon Lloyd
> > 'Microsoft Office Help' (http://www.thecodecage.com)
> > ------------------------------------------------------------------------
> > Simon Lloyd's Profile: 1
> > View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=180015
> >
> > Microsoft Office Help
> >
> > .
> >