Disliked{quote} Try the code below to see if this works. -------------------------------- Private Sub Worksheet_Calculate() Dim X As Integer Set cmd = CreateObject("FXBlueLabs.ExcelCommand") For X = 3 To 30 If Cells(X, 4) = "Buy" And Cells(X, 6) = "You Can Trade" Then strResult = cmd.SendCommand(Cells(1, 2), "BUY", "s=" & Cells(X, 1) & "|v=1000", 5) End If If Cells(X, 4) = "Sell" And Cells(X, 6) = "You Can Trade" Then strResult = cmd.SendCommand(Cells(1, 2), "SELL", "s=" & Cells(X, 1) & "|v=1000", 5) End If Next X End SubIgnored
- Joined Feb 2015 | Status: Patience | 1,317 Posts
When you are successful perhaps give a thought to others ... Kiva dot org
- Joined Feb 2015 | Status: Patience | 1,317 Posts
When you are successful perhaps give a thought to others ... Kiva dot org