VBA help with auto update quicklist

[markg]

Hi all,

I've recently been delving into the world of VBA and have tried to combine an adapted version of the Place_Bets sheet from here:

http://www.gruss-software.co.uk/forum/v ... php?t=3557

and the autoreloadquicklist macros from here:

http://www.gruss-software.co.uk/forum/v ... php?t=3558

However for some reason I can't get the macro to work - it appears to show no errors in running it but never actually ends up changing Q2 to the required numbers to run the quick list refresh. I've taken almost exactly the code from the macro example sheet (I think the only change I made was changing the time to 6am). The sheet I've made so far can be found here:

http://www.mediafire.com/?kxunoa4lbo5ng7o

Can anyone give me any tips as to what I need to do to the code/how to run gruss such that it will refresh the list daily?

Thanks very much for any help

Mark

[osknows]

Hi Mark,

I can't see anything obvious but what could be happening is possibly if you leave your worksheet overnight with the 'Selections' sheet activated then Q2 could be being written to the wrong sheet

try this instead in the Market Sheet and let us know if it works

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Columns.Count = 16 Then
        Application.EnableEvents = False
        With Sheets(Target.Worksheet.Name)
            If triggerQuickPickListReload Then
                triggerQuickPickListReload = False
                .Range("Q2").Value = -3
                triggerFirstMarketSelect = True
            Else
                If triggerFirstMarketSelect Then
                    triggerFirstMarketSelect = False
                    .Range("Q2").Value = -5
                End If
            End If
        End With
        Application.EnableEvents = True
    End If
End Sub


[markg]

Oh yes - it was that simple, I had the code in the wrong sheet! Put it in the other one and it worked perfectly, thanks!