westconn
i am sorry grabing value from screen Attachmate

worksheet funciton is not working from teh screen value
it works only with ranges. the value store it in one cell. only
this is the code
---------------------------------------
//For j = 1 To 14
prev = Trim(MyScreen.GetString(1, 19, 8))
MyScreen.Moveto 2, 15
MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "STARTED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row
myStart1 = Trim(MyScreen.GetString(MyRw, 2, 5))
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyScreen.Moveto 2, 15
MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "ENDED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row

myEnd1 = Trim(MyScreen.GetString(MyRw, 2, 5))

MyScre en.SendKeys ("<PF3>")

New1=Trim(MyScreen.GetString(1, 19, 8))
If New1 <> prev Then


MyScreen.WaitHostQuiet (g_HostSettleTimE1)

MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "STARTED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row
myStart2 = Trim(MyScreen.GetString(MyRw, 2, 5))
If myStart1 = myStart2 Then
myStart1 = myStart3
ElseIf myStart1 < myStart2 Then
myStart1 = myStart3
ElseIf myStart2 < myStart1 Then
myStart2 = myStart3
End If
End If
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyScreen.Moveto 2, 15

MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "ENDED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row

myEnd2 = Trim(MyScreen.GetString(MyRw, 2, 5))
If myEnd = myEnd2 Then
myEnd = myEnd3
ElseIf myEnd > myEnd2 Then
myEnd = myEnd3
ElseIf myEnd < myEnd2 Then
myEnd2 = myEnd3
End If

' End If
End If

Next j
MyScreen.SendKeys ("<pf3>")
If Cells(i, "B").Value = "s" Then
Cells(i, Mycol).NumberFormat = "h:mm"
Cells(i, Mycol) = TimeSerial(Left(myStart3, 2), Right(myStart3, 2), 0)
ElseIf Cells(i, "B").Value = "f" Then
Cells(i, Mycol).NumberFormat = "h:mm"
Cells(i, Mycol + 1) = TimeSerial(Left(myEnd3, 2), Right(myEnd3, 2), 0)
End If

//