MT4 to Excel through Excel RTD (Finally!)

Quoting antariks

Disliked

{quote} Thanks a lot. I will also try to play with the code. A question....instead of putting a constant volume there, I will try to put a cell reference number and see what happenes. Can we make it more conditional? For ex, as in Excel, =IF(AND(R520>0, S520<0, S527=1),"Buy","Sell")

Ignored

Quoting mtharwat

Disliked

I spent long time trying to figure two things. One to create the clickable buy/sell buttons but Iam getting errors. Two to create an If/Then statement in VBA for buying or selling based on a condition but still getting errors.

Ignored

Quoting mtharwat

Disliked

I spent long time trying to figure two things. One to create the clickable buy/sell buttons but Iam getting errors. Two to create an If/Then statement in VBA for buying or selling based on a condition but still getting errors. I decided to learn more about VBA from scratch and get the basic stuff in my head first. BTW, @antariks: can you send me the sample excel sheet that has the VBA clickable buttons?

Ignored

Quoting antariks

Disliked

{quote} Sure. Here you go, mate. Thanks. https://www.jfdbank.com/documents/Ex...al_Ticket.xlsm (I was trying to attach but don't know why this type of file is not supported. Hope you can download it from the link)

Ignored

Quoting JibalaPasan

Disliked

{quote} Just add an ActiveX Controls CommandButton and add the VBA Macro to it. {image} {image} Private Sub CommandButton1_Click() Set cmd = CreateObject("FXBlueLabs.ExcelCommand") strResult = cmd.SendCommand(RTD!A1, "BUY", "s=EURUSD|v=1500", 5) End Sub Private Sub CommandButton2_Click() Set cmd = CreateObject("FXBlueLabs.ExcelCommand") strResult = cmd.SendCommand(RTD!A1, "SELL", "s=EURUSD|v=1500", 5) End Sub Best of luck and stay green always! Jibala

Ignored

Quoting antariks

Disliked

{quote} Ok, lets say this is my workstation. Every time the candle closes (15 min) I want to place a trade automatically. Ideally just 1 or 2 sec before the candle close. By using IF and THEN functions of excel, the BUY/SELL and the volume cells are being calculated in real time. How exactly the existing VBA code for that sheet will have to be ammended to achieve this? Hope your suggestion will be useful for mtharwat as well. Thanks. {image}

Ignored

Quoting mtharwat

Disliked

Does any know how to record with a dynamic timestamp in Excel? A VBA code perhaps that can help? I want to record the time when certain conditions are met in a column. I can assign a cell in Excel that will represent the conditions but do not know how to record a dynamic time stamp in a column. The timestamped cell should not be refreshed but rather a new cell will contain the new timestamp when the same conditions are met again.

Ignored

Quoting goodways100

Disliked

I need to ask a question about a Excel currency strength meter synced with Mt4: How to add Ger30 and gold below the last currency pair USDJPY, along with the remainder of the date in the adjacent columns. I cant attach the spread sheet below. Can some one help. Thanks and Regards.

Ignored

Quoting mtharwat

Disliked

{quote} Good News! I have found a VBA code that will do this and I will attach it here. The second step is I will add timestamps and reattach it here when I am done.

Ignored

Quoting mtharwat

Disliked

{quote}That is my understanding as it was mentioned in a previous post by Jib ala.

Ignored

Quoting mtharwat

Disliked

{quote} Ok, I am updating the sheet with a new column that records the time for every time the dynamic cell changes its value. If you can not open the attached sheet. Here is the IF function: =IF(D6<>"",IF(E6="",NOW(),E6),"") --------------------- You need to enable iterations in Excel because it is a circular formula. Go to File > Options > Formulas > Enable iterations > close There is a way around it with a VBA that is not included here. With the VBA, the iterations do not need to be checked/enabled. ---------------- A screenshot: {image} -----------...

Ignored

Quoting antariks

Disliked

{quote} Hi mtharwat Can it be done the other way round? I mean keeping the timestamps at a fixed interval, say 5 min, can the corresponding values be copied from a different sheet and pasted in the adjacent cells.

Ignored

Quoting antariks

Disliked

{quote} PS: In parallel, we can also develop the auto clicking on the "place trade" object to develop some kind of RTD-Expert advisor.

Ignored

Quoting mtharwat

Disliked

{quote} I will explain how you can implement this. The timestamp I shared is simply recording the time the "Referenced Cell" is changing its value. In other words, if the "Referenced Cell" is changing every X minute, then the time stamp will change every same X minutes. So what you need to do is to make sure the referenced cell is inputting its value every X minute. Remember in a previous post when I mentioned to you to assign the syntax interval to "Previous (1) Bar and not current (0) Bar? With regard to your Riskometer, it already updates every...

Ignored

Quoting JibalaPasan

Disliked

{quote} Please explain a bit more in detail and maybe show the VBA code so that we maybe can have a look at what you're doing wrong. Best of luck and stay green always! Jibala

Ignored

Quoting mtharwat

Disliked

{quote} Hi Jibala, Ok.. I still get an error. In the first screenshot, I am getting this error message. {image} When I click on Debug, I get this highlighted {image} My account number is in cell A1 Thanks,

Ignored

Private Sub CommandButton1_Click()
Set cmd = CreateObject("FXBlueLabs.ExcelCommand")
strResult = cmd.SendCommand(12345678, "BUY", "s=EURUSD|v=1500", 5)
End Sub
Private Sub CommandButton2_Click()
Set cmd = CreateObject("FXBlueLabs.ExcelCommand")
strResult = cmd.SendCommand(12345678, "SELL", "s=EURUSD|v=1500", 5)
End Sub

Quoting mtharwat

Disliked

{quote} Good News! I have found a VBA code that will do this and I will attach it here. The VBA code source is

Inserted Code

Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
Static xCount As Integer
Application.EnableEvents = False
If Target.Address = Range("C2").Address Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
Else
If xVal <> Range("C2").Value Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
End If
End If
Application.EnableEvents = True
End Sub
Private

...

Ignored