Global g_HostSettleTime%
Sub Main
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System")
Set Sessions = System.Sessions
g_HostSettleTime = 0001
OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then...
Hello,
Was wondering if someone might be able to help with some EB code? My macro currently grabs 10 lines of data (For Y = 10 to 19) from 5 screens (For P = 1 to 5), PF8 forwards to the next page if there is more data. This runs in a loop using data in column B (X) until it is...
Thanks Skip...I don't think I communicated this very well..When the macro runs the first " MN = .range("B" & X) "
it may have 1 page,10 pages, or just a half page of data to gather. What I would like the code to do is not exit but move on to the next " MN = .range("B" & X) " once "Blank" data...
Global g_HostSettleTime%
Sub Main
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System")
Set Sessions = System.Sessions
g_HostSettleTime = 0100
OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then...
I have a macro that runs on a loop, it is getting data from the mainframe and populating it in and Excel spreadsheet. The one problem I am having is getting the macro to move on to the “Next X” if and when it comes to “Blank Data” in the mainframe. I have the code set to go through 10 pages...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.