Help with excel

[Shaun]

Hi,

I have been working on a new angle and need some halp, i am using this macro to record bets in a text docoment for uploading to the tote.

The problem i have is at the point when selections are made according to price and a LAY bet is triggered there is an amount of time between the LAY bet submission and the actual time the bet is placed.

I have set it up so it will only accept three LAY bets, once they are placed it triggers the macro to place a bet on the tote, but it is possible for the price and selection to change, what i need is to record the current selection at that point in time, i have a macro that was sent to me that would record prices at different times but because i don't really understand macros i can't alter it for my use.



This is my macro i am using


Private Sub Worksheet_Calculate()
If Range("R6").Value = Range("d5").Value Then Exit Sub
txt = Join([transpose(transpose(y7:ah7))], "") & vbCrLf & Join([transpose(transpose(y8:ah8))], "")
Open "C:\Duets\Bets\" & Sheets("Duets").Range("F1").Text & ".txt" For Output As #1
Print #1, txt
Close #1
'Shell ("c:\Duets\Autobet.exe")
End Sub


I need to record the information in x1:x24 of my sheet and place it in y1:y24 of my sheet, hope some one understands this enought to help.

I would like to be able to place the information needed at the begining of the macro before it starts to record


Private Sub Worksheet_Calculate()
If Range("R6").Value = Range("d5").Value Then Exit Sub



Place new recording macro here



txt = Join([transpose(transpose(y7:ah7))], "") & vbCrLf & Join([transpose(transpose(y8:ah8))], "")
Open "C:\Duets\Bets\" & Sheets("Duets").Range("F1").Text & ".txt" For Output As #1
Print #1, txt
Close #1
'Shell ("c:\Duets\Autobet.exe")
End Sub