Macro Help

[mak]

I have some routines in order to place -1 at Q2 every 3 minutes

Is there a way to place at q2 -1 first and -3.1

My code is the following

Sub TheSub()
''''''''''''''''''''''''
Cells(2, 17).Value = -1

''''''''''''''''''''''''
StartTimer ' Reschedule the procedure
End Sub

if I just place the Cells(2, 17).Value = -3.1 it only places the -3.1

Sub TheSub()
''''''''''''''''''''''''
Cells(2, 17).Value = -1
Cells(2, 17).Value = -3.1
''''''''''''''''''''''''
StartTimer ' Reschedule the procedure
End Sub

thanks in advance

[waynethebrayn]

mak,

have you tried putting the values the other way round? i.e. refresh the list first and then use -1 to select the market.

or do the refresh once (perhaps manually) and then separately use VBA to just do the 3 minute -1 update.

I'm sure the experts here will have a better solution though.

[waynethebrayn]

mak,

also the code will be running very quickly so -1 may be added but is replaced by -3.1 faster than you can observe.

[mak]

I will try the -3.12 first but I am almost certain that it won't work.
Because right know it it is not gonig to next market at all.

[osknows]

I'm on a train without excel so haven't tested this but how about something along the lines of

Public timer_triggered as boolean

'===================

Sub TheSub()
''''''''''''''''''''''''
Cells(2, 17).Value = -1
timer_triggered = true
''''''''''''''''''''''''
StartTimer ' Reschedule the procedure
End Sub

'=======================

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False


if timer_triggered = true then
ThisWorkbook.Sheets(Target.Worksheet.Name).Cells(2, 17).Value = - 3.1
timer_triggered = false
end if

Application.EnableEvents = true
end sub

[mak]

Os hi
hope you are fine.
Thanks for your code it is working fine!