hi,

Extra code is a version of BASIC.

Check out the FAQs for fundamentals.

Quote:

This also goes on for multiple screens - I don't know if I have to deal with that in the macro...

Use the SendKeys method.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

Hey thanks for the tip.  Spent a couple hours working on it today and it actually worked the first time it compiled, which blew me away.  

The one issue I'm having is what you actually mentioned -
getting extra to go to the next screen.

F8 goes to the next screen in extra, and in the help file it says to enclose function keys in braces like this: {F8}, but when I did that it just typed "{F8}" into extra instead of executing the command.

I read on here that you need to put pF8 or something, but that didn't work either.

Session.Screen.SendKeys Pf8

This is the whole macro right now...

Sub Main

    Dim TheUPC As Integer
    Dim CurrentUPC as Integer
    Dim CurrentRow as Integer
        Dim Session as Object
        Dim System as Object
        Dim Screen as Object
        Dim ExcelRow as Integer      
                
        Dim Excel As Object, ExcelWorkbook As Object
        Set Excel = GetObject(, "Excel.Application")
        With Excel.Worksheets("Sheet1")
                
        ExcelRow = 167
                
        Set System = CreateObject("EXTRA.System")   'sets all this screen shit up..like the endline macro
        Set Session = System.ActiveSession
        Set Screen = System.ActiveSession.Screen
        
    TheUPC = Session.Screen.GetString (4,35,5)     'set to current UPC being worked on

    CurrentUPC = TheUPC                      'store it in buffer variable

    while TheUPC = CurrentUPC

        For CurrentRow = 8 to 18 step 1   'go through all lines of the screen

            If Session.Screen.GetString (currentRow, 9, 3) = 850 then    
                              
                               PricePull = Screen.Getstring(currentRow, 41, 5)  'what do the options mean?
                               LvlPull = Screen.Getstring(currentRow, 16, 3)  'pull 111, 112, whatever
                                
                                For ExcelRow = 167 to 220 step 1
                                         
                            if LvlPull = .Cells(ExcelRow,"B").Value then
                                            .Cells(ExcelRow, "F").Value = PricePull  '**This will place information from Extra to Excel
                                        end if
                                next ExcelRow
            End If

        next CurrentRow           'looping of for loop
    
        Session.Screen.SendKeys Pf8   'go to next page...might not be right syntax
             CurrentUPC = Session.Screen.GetString (4,35,5)  'after next page - check UPC, ends the loop

    Wend 'end of while loop

    Msgbox "Macro Done." 'types this out to the user
        
        End With

End Sub
 

How do you know that there's MORE?
How do you know you are on the LAST screen?
 

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

Thanks for the reply.

That's already taken care of with the while loop.  Even if that particular UPC is only one page long there's always another UPC on the next page (the database is massive and all the UPC's are one after the other).  So the while loop condition just checks to see if the UPC at the top of the page matches the original UPC and cuts out of the loop if it doesn't.

The only issue I'm having is getting the screen to the next page (some UPC's span multiple pages) which just appears to be a syntax issue with F8 and Sendkeys.

I'll probably figure it out tomorrow, but if you happen to see this tonight and know the right syntax that'd save me a little time.

Thanks!

???  You did not read my post  ???

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}