VBA If Statement Evaluating After True

CokeOrCrack

Board Regular
Joined
Dec 13, 2015
Messages
81
Hello:

My workbook has 2 sheets, "Numbers" and "General".

I have an If statement that runs at workbook close.

Code:
    If Sheets("Numbers").Range("BA2") = 0 Then        Sheets("Numbers").Range("BA3") = "Correct"
    ElseIf Sheets("Numbers").Range("BA2") <> 0 Then
        Sheets("General").Range("A13").ClearContents
    End If

When BA2 in sheet "Numbers" is 0, BA3 shows "Correct".

The issue is that I have a Worksheet_Change sub in the "General" sheet. This sub updates a timestamp in that sheet when it is in any way changed.

After running the If statement at workbook close, the timestamp is still updating, even when BA2 = 0.

I have tried removing the above If statement, and the timestamp does not update at close without it, which confirms that the above If statement is what is causing the timestamp to update.


Question:

Is there a way to end an If statement once it is true, but continue to evaluate if it is initially false?

Thanks

OJ
 

Excel Facts

Lock one reference in a formula
Need 1 part of a formula to always point to the same range? use $ signs: $V$2:$Z$99 will always point to V2:Z99, even after copying
The Part after the Then should be on the next line, but there is no need for ElseIf, because it is either 0 or it is not.
If Then Else should suffice:

Code:
Sub test()
If Sheets("Numbers").Range("BA2") = 0 Then
    Sheets("Numbers").Range("BA3") = "Correct"
Else
    Sheets("General").Range("A13").ClearContents
End If
End Sub
 
Last edited:
Upvote 0
Scott:

Thank you for looking into this. I forgot the "General" sheet had a Pivot Table in it to the far right that I needed to scroll to in order to see.

I moved the Pivot Table to the "Numbers" sheet and it now works perfect.

Thanks

OJ
 
Upvote 0
So basically if the first IF statement in the Workbook_Close event is true, you want to update the worksheet without invoking the Worksheet_Change event, is that correct?
 
Upvote 0

Forum statistics

Threads
1,214,601
Messages
6,120,467
Members
448,965
Latest member
grijken

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top