How to put another condition for B1 in the mentioned code

[omega0010]

Dim OldValue

Private Sub Worksheet_Calculate()
If [A1] <> OldValue Then
Application.EnableEvents = False
[B1] = [B1] + 1
OldValue = [A1]
Application.EnableEvents = True
End If
End Sub


How can we put another condition that if B1> (5) Then [B1] = [B1] + 1

[xladept]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

Like this:

Please Login or Register  to view this content.

[omega0010]

Thanks a lot I will try it.... Just one more thing...... instead of "OR" can we use "AND" if necessary?

[xladept]

Yes, both AND and XOR can be used when appropriate