One click trading - free program coming soon

[GaryRussell]

Originally posted by: The Gambling Monkey
George,
That Macro you wrote for me works perfectly for the "activesheet".
If I want to run it on a selection of sheets what do I replace "activesheet" with?
Cheers

[GaryRussell]

Originally posted by: The Gambling Monkey
LayItYouMug,
How do I close an open market tab? Right clicking doesn't work on my computer.
Thanks

[GaryRussell]

Originally posted by: smh
Right click a bit lower

[GaryRussell]

Originally posted by: The Gambling Monkey
Thought you were taking the p1ss there for a minute lol!
but thanks for that it worked!!

[GaryRussell]

Originally posted by: Gaseous
Monkey - never tried it, but i think that will take some major recoding - probably need a selection box listing all the open sheets that you can then select and the macro would then go through each sheet in turn.

Just tried a few different things - not sure it is going to work.

As the macro is trying to look through multiple sheets, it can only do 1 at a time before moving to the next to check the time etc, but as this process takes about 1 sec, the macro is being called before it finishes checking so does not allow the data on the screen to update. If you are only checking one time say on sheet1 and want all the other sheets updated at the same time, then it will be possible, but checking miltiple sheets within that time restraint i can't see how to do it.

sorry - maybe if you post it on mrexcel.com they'll be able to come up with something.
George

[GaryRussell]

Originally posted by: The Gambling Monkey
Cheers George,
If that's the case then that would do, they don't all have to be checked simultaneously just so long as there are all done one ofter the other within a couple of minutes.
I've checked mrexcel as you've suggested and found it very helpful indeed. Thanks a lot for your help.

[GaryRussell]

Originally posted by: russ8s
can we have a "next horse race" button please

[GaryRussell]

Originally posted by: Handy Andy
Is anyone havng problems with the odds freezing today?

[GaryRussell]

Originally posted by: The Gambling Monkey
No, but I don't refresh every second.

[GaryRussell]

Originally posted by: Handy Andy
I refresh every 5 secs, it is still happening. Never did this before the C version.

[GaryRussell]

Originally posted by: PillHead
Gaseous

I Have been unable to get the code you provided to make a beep - I will settle for a beep and do wav sounds later.

Any suggestions?. I am using Excel 2000.
In the IF line is the value in quotes I5 or 15?

Any help would be appreciated.

Reagrds

[GaryRussell]

Originally posted by: Alexandru
Addict: scimd@yahoo.com

[GaryRussell]

Originally posted by: The Gambling Monkey
George are you around?

I've been going quietly mad. I looked at Mrexcel and have adapted your code as follows:

Sub TestAverageDataAt13PM()

Dim WS_Count As Integer
Dim X As Integer

WS_Count = ActiveWorkbook.Worksheets.Count

For X = 1 To WS_Count

ActiveWorkbook.Worksheets(X).Select

If Range("D2") < Range("A4") Then Application.OnTime Now() + TimeValue("00:00:01"), "TestAverageDataAt13PM"

If Range("D2") >= Range("A4") Then

maxfield = ActiveSheet.Range("b65536").End(xlUp).Row

For I = 5 To maxfield

Range("A" & I).Value = Application.WorksheetFunction.Sum(Range("I" & I)) - Application.WorksheetFunction.Sum(Range("G" & I))
Range("A" & I).Value = Range("A" & I).Value / 2 + Application.WorksheetFunction.Sum(Range("G" & I))

Next I

End If

Next X

End Sub

It does what I want it to do but after that it just doesn't stop and I can't see why!!!
Thanks for your help.

[GaryRussell]

Originally posted by: Gaseous
Pillhead

Unfortunately, i can't get it to beep either - at work and my computer doesn't have a sound card so that may be why. Have a look at this article from the newsgroups. You may be better off trying one of those wav files.

<a href="http://groups.google.co.uk/group/microsoft.public.excel.programming/browse_frm/thread/3af3179fd8b4c359/2b4a419d0bd36520?lnk=st&q=excel+sub+%22beep%22+internal&rnum=1&hl=en#2b4a419d0bd36520" target="_blank">http://groups.google.co.uk/group/microsoft.public.excel.programming/browse_frm/thread/3af3179fd8b4c359/2b4a419d0bd36520?lnk=st&q=excel+sub+%22beep%22+internal&rnum=1&hl=en#2b4a419d0bd36520</a>

[GaryRussell]

Originally posted by: Gaseous
Monkey

Can't check this as i'm at work, but you might try If Range("A5") <> "" then exit sub
after you have selected the sheet.

When you say it doesn't stop, do you mean the values in A5 down keep changing, or does the screen seem to flicker with a white part going up the screen?