Delay Calculation of A Cell

  • Thread starter Thread starter Rob52
  • Start date Start date
R

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.
 
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 said:
Sorry Rob that should have read:
Click to expand...
VBA Code:
Click to expand...
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:
Click to expand...
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]
Click to expand...
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

.
Click to expand...
 
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 said:
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 said:
Sorry Rob that should have read:
Click to expand...
VBA Code:
Click to expand...
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:
Click to expand...
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]
Click to expand...
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

.
Click to expand...
Click to expand...
 
Back
Top