code will not trigger

[SWV]

Any reason as to why please?

Code: Select all

Option Explicit

Dim currentMarket As String
Private Sub worksheet_change(ByVal Target As Range)
Worksheets("Comp.").Calculate
 If Target.Columns.Count = 16 Then
    Application.EnableEvents = False
                                             
               
                      If Range("Q5") = "Back-IP" Then
                      Call LogSelection1
                                                                                       
                          If Range("Q6") = "Back-IP" Then
                      Call LogSelection2
                     
                       If Range("Q7") = "Back-IP" Then
                      Call LogSelection2
               
    End If
   Application.EnableEvents = True
End Sub



[GaryRussell]

Since triggers are case sensitive when Betting Assistant reads them I assume you are passing the correct triggers to Betting Assistant. Therefore you have BACK-IP in the trigger column, but your VBA code is checking for Back-IP. This will not evaluate to equal. Your VBA code needs to check for BACK-IP, eg.

Code: Select all

If Range("Q5") = "BACK-IP" Then

[SWV]

Since triggers are case sensitive when Betting Assistant reads them I assume you are passing the correct triggers to Betting Assistant. Therefore you have BACK-IP in the trigger column, but your VBA code is checking for Back-IP. This will not evaluate to equal. Your VBA code needs to check for BACK-IP, eg.

Code: Select all

If Range("Q5") = "BACK-IP" Then

Ok thanks Gary.

For some reason when Q5 = BACK-IP it does not call LogSelection1macro.