Combine a Sub Worksheet_Change with Sub Worksheet_Calculate

I have two Subs that I need to incorporate. I can run one or the other, but not together? Any assistance gratefully acknowledged.

Private Sub Worksheet_Calculate()
Dim Lr As Integer, Cel As Range, Rng As Range
With ThisWorkbook.Sheets("Bet Angel")
Lr = Range("A65536").End(xlUp).Row
Set Rng = .Range("O9:O" & Lr)
Application.EnableEvents = False
For Each Cel In Rng
If Cel.Value = "PLACED" Or Cel.Value = "MARKET_SUSPENDED" Or Cel.Value = "ERROR" Then Cel.ClearContents
Next
If .Range("B69").Value <> 1 Then
    .Range("B70").Value = 0
End If
End With
Application.EnableEvents = True
End Sub
---------------------------------------------------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With ThisWorkbook
If .Sheets("Bet Angel").Range("B69").Value <> 1 Then
   .Sheets("Bet Angel").Range("B70").Value = 0
End If
If .Sheets("Bet Angel").Range("B69").Value = 1 And .Sheets("Bet Angel").Range("B70").Value <> 1 Then
    Copy_Race
   .Sheets("Bet Angel").Range("B70").Value = 1
End If
Application.EnableEvents = True
End With
End Sub

Re: Combine a Sub Worksheet_Change with Sub Worksheet_Calculate

Hi Roy, thanks for your reply. Bet Angel is software connected to a Betting Exchange (Betfair), so unless you are a subscriber , it won't work for you. The information from Betfair is relayed to a excel work sheet modified to suit (Bet Angel worksheet). I have an attached worksheet (Price Order) which, in the main, duplicates what the Bet Angel sheet displays, but has user defined functions to take that information and trigger a bet back to the BA sheet. The sheet I wish to copy though (the Change Sub) is the Price Order sheet and paste to Sheet 1. Copy_Race is the macro. I just can't understand why, if I put the Change code into the Price Order sheet, why it won't trigger? There are manual trigger buttons there to facilitate, but I need this to run Auto. I'm told the Change Sub has to reside in the Bet Angel sheet to work but there's a conflict with the Calculate Sub. Beyond me! Anyway, no one on the Bet Angel forum can resolve it for me, hence this post. I've attached the workbook anyway. The VB doesn't show the Change Sub that I had in my first post, only because it doesn't work with the Calculate Sub present. The Change sub is fired by a timer reaching 0 and cell Y5 on the Price Order sheet displays "YES". You can manually paste in "YES" to duplicate a Live connection. Good luck, but if too difficult, I understand Sorry....but how do you attach a file? Can't see any way?

Re: Combine a Sub Worksheet_Change with Sub Worksheet_Calculate

Found it

Re: Combine a Sub Worksheet_Change with Sub Worksheet_Calculate

No good Roy. Compile Error. Invalid or unqualified reference in the Sub W_Change. It just kills the Bet Angel worksheet unless you solve the Error, I guess?[ATTACH=CONFIG]64105[/ATTACH]

Re: Combine a Sub Worksheet_Change with Sub Worksheet_Calculate

Yes you're right Batman, but that code was a remnant from a past failed attempt and was defunct. I should remove it. Whether it's there or not, I don't believe it has a bearing on the case at hand. But you are being thorough to spot it, thanks......But thinking about past failed attempts, do you think that bit of code if corrected and time set at 00:00:00 could replace some of Roy's original code?

Re: Combine a Sub Worksheet_Change with Sub Worksheet_Calculate

Quote from royUK;738939

What is this?

Sub W_Change

Where have you pasted the code?

Attach the workbook that has the new code

Display More

Roy, there is NO new code. It was a remnant left in Module 1 of the file I previously sent.