How to use onEvent

[nodochau]

Hello ALl,
I am try to create a script that monitor a cell in the spreadsheet. When the operator enter a bad value then a warning popup window will occur. When excel is opened and I enter the value into that cell, nothing happen if the value is out of Specification.
But the code does not work. I appreciate your help
Here is my code:

Code: Select all

XLOpen>C:\Users\Documents\Template\149405.xlsx,1,xl
Wait>3
Let>row=15
Let>col=6
XLGetCell>xl,ProcessSheet,row,4,upper_val
XLGetCell>xl,ProcessSheet,row,5,lower_val
Let>warning=FALSE

//**BREAKPOINT**

OnEvent>CUSTOM,CheckCells,warning,PopupWindow

Label>start
SRT>CheckCells
    XLGetCell>xl,ProcessSheet,row,col,val
    If>val<>
      If>{(%val%>%upper_val%)OR(%val%<%lower_val%)}
        Let>warning=TRUE
      Endif
    Endif
END>CheckCells
Goto>start

SRT>PopupWindow
  MDL>Value is out of Spec
  Let>warning=FALSE
END>PopupWindow

[Jiyahana]

Hey try this code.

Code: Select all

XLOpen>C:\Users\Documents\Template\149405.xlsx,1,xl
Wait>3
Let>row=15
Let>col=6
XLGetCell>xl,ProcessSheet,row,4,upper_val
XLGetCell>xl,ProcessSheet,row,5,lower_val
Let>warning=FALSE

//**BREAKPOINT**

OnEvent>CUSTOM,"CheckCells",,warning,"PopupWindow"

Label>start
SRT>CheckCells
    XLGetCell>xl,ProcessSheet,row,col,val
    If>val<>""
      If>{(%val%>%upper_val%) OR (%val%<%lower_val%)}
        Let>warning=TRUE
        RaiseEvent>CUSTOM,"CheckCells"
      Endif
    Endif
END>CheckCells
Goto>start

SRT>PopupWindow
  MDL>Value is out of Spec
  Let>warning=FALSE
END>PopupWindow

[nodochau]

Thanks a lot for your response. I have some questions.
Why do you use the double quotes for subroutine?
And codes don't work.
I added some delay time and it worked but sometime it did not work I don't know. Below is my revised code:

Code: Select all

XLOpen>C:\Users\Documents\149405.xlsx,1,xl
Wait>3
Let>row=15
Let>col=6
XLGetCell>xl,ProcessSheet,row,4,upper_val
XLGetCell>xl,ProcessSheet,row,5,lower_val

OnEvent>CUSTOM,CheckCells,warning,PopupWindow

Label>start
SRT>CheckCells
    Wait>1
    SetFocus>149405 - Excel
    Wait>2
    XLGetCell>xl,ProcessSheet,row,col,val
    If>val<>
      If>{(%val%>%upper_val%)OR(%val%<%lower_val%)}
        Let>warning=TRUE
      Endif
    Endif
END>CheckCells

Goto>start

SRT>PopupWindow

  MDL>Value %val% at row: %row% and column %col% %crlf% is out of Spec
  Let>empty_cell=
  XLSetCell>xl,ProcessSheet,row,col,empty_cell,
  Let>warning=FALSE
  
END>PopupWindow

[Jiyahana]

I think I forget to add double quote but you added and you solved this.