Delay Calculation of A Cell

[Rob52]

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

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 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 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/showthread.php?t=180015

Microsoft Office Help

.

 

[Rob52]

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

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

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 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 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/showthread.php?t=180015

Microsoft Office Help

.