Update Balance

[Steve Voltage]

I would like to update the balance every time a bet is placed. I have tried using the following code to activate a macro when cell T1 changes. All works well if T1 is changed manually but not when connected to ba. Any ideas please?

Code: Select all

 Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then
     Macro2
End If

End Sub


[/code]

[Steve Voltage]

[quote="Arnold"]I would like to update the balance every time a bet is placed. I have tried using the following code to activate a macro when cell T1 changes. All works well if T1 is changed manually but not when connected to ba. Any ideas please?

Code: Select all

 Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then
     Macro2
End If

End Sub


why is there no edit button

Code: Select all

 Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$T$1" Then
     Macro2
End If

End Sub


[GaryRussell]

Cell T1 is never updated by BA therefore the target is never T1. Also the worksheet change event is only fired when the contents are overwritten by a write operation from BA or manual input. If you have a formula in T1 and you are expecting it to fire a worksheet change event if the formula produces a different value then this is not going to happen.

When it logs the bet refs after placement it updates columns T to W so you can use the following code.

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 20 And Target.Columns.Count = 4 Then
       Macro2
    End If
End Sub


[Steve Voltage]

Cell T1 is never updated by BA therefore the target is never T1. Also the worksheet change event is only fired when the contents are overwritten by a write operation from BA or manual input. If you have a formula in T1 and you are expecting it to fire a worksheet change event if the formula produces a different value then this is not going to happen.

When it logs the bet refs after placement it updates columns T to W so you can use the following code.

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 20 And Target.Columns.Count = 4 Then
       Macro2
    End If
End Sub


Thanks Gary works a treat. The only problem i have is that i keeping getting an error due to the existing code for that sheet

Code: Select all

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Columns.Count = 16 Then
        Application.EnableEvents = False
        If triggerQuickPickListReload(6) Then
            triggerQuickPickListReload(6) = False
            Range("Q2").Value = -3.1
            triggerFirstMarketSelect(6) = True
        Else
            If triggerFirstMarketSelect(6) Then
                triggerFirstMarketSelect(6) = False
                Range("Q2").Value = "=Q1"
            End If
        End If
        Application.EnableEvents = True
    End If
End Sub[code/]

Could somebody please show me the light on how to incorporate the two bits of code on one sheet. Obviously excel isn't really my strongest subject
   :oops: