Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: tchad
  • Order by date
  1. tchad

    Reflection

    Anyone?
  2. tchad

    Reflection

    Hi, Just wondering if anyone here uses Reflection? We were updated today from Extra! to Reflections, and send keys, and how you reference the object are completely different. Hope someone can help me. Thanks, Chris.
  3. tchad

    Data from Excel to Extra and back

    I did, but the first lot of code below will run again if I abort the do. I need to keep looping but go to the next row. I did try it. With Worksheets("Multiple Store") For x = Rw To ActiveSheet.Rows.Count Keycode = .Cells(x, 1) Qty = .Cells(x, 2) Store = .Cells(x...
  4. tchad

    Data from Excel to Extra and back

    I don't want to exit the do though, as it will then repeat statements outside the do loop which I don't want repeated. I just need to go down to the next row within the loop, that's all.
  5. tchad

    Data from Excel to Extra and back

    If I exit do, I won't be able to copy the other rows of data in. I just want it to loop into the next row of data, but I can't put next x before loop...
  6. tchad

    Data from Excel to Extra and back

    Vzachin, Thanks for the info. I want it to go to the next row, but since the loop is placed first, all it does is loop forever. Is there a way to solve this?
  7. tchad

    Data from Excel to Extra and back

    Tried another code, basically I just want it to loop but it comes up with the error, "no for without next" Sub Newtest() Dim Sessions, System As Object, Sess0 As Object Set System = CreateObject("EXTRA.System") Set Sessions = System.Sessions Set Sess0 = System.ActiveSession g_HostSettleTime...
  8. tchad

    Data from Excel to Extra and back

    ...For r = 7 To 23 dd = 7 Keycode = Sess0.Screen.Area(r, dd, r, dd + 7, Page) Selection = Keycode If Keycode = "********" Then 'lasttime = 1 r = 23 s = 2 Else ActiveCell.Offset(0, 1).Select Store =...
  9. tchad

    Data from Excel to Extra and back

    ...Set Sess0 = System.ActiveSession With Worksheets("Input") Row = 2 Do Pull = .Cells(Row, "A").Value '**This will pull information from Excel Sess0.screen.putstring Pull, 2, 19 '**This will put information from Excel into Extra, use your own...
  10. tchad

    Data from Excel to Extra and back

    ...Press Enter. Tabs down. ( I'll use the moveto command for this) Sendkeys "S" Enter Pulls data from the next screen, loops until it hits **** then moves to 6,2 and types C1 Enter. May need to add in Enter if there if it needs to scroll down. Process repeats itself again, until column "A"...
  11. tchad

    Data from Excel to Extra and back

    ...Set Sess0 = System.ActiveSession With Worksheets("Input") Row = 2 Do Pull = .Cells(Row, "A").Value '**This will pull information from Excel Sess0.Screen.Putstring Pull, 2, 19 '**This will put information from Excel into Extra, use your own...
  12. tchad

    Data from Excel to Extra and back

    Hi, Thanks for that. I won't be pulling any data from Excel, just pulling it from Extra into Excel. So what loop can I use to terminate the sub once I've reached the point I want? Bear in mind, in my previous post it was ********
  13. tchad

    Data from Excel to Extra and back

    ...(g_HostSettleTime) Range("a2").Select Do r = 7 dd = 7 Do PO = Sess0.Screen.Area(6, 10, 6, 22, Page) If PO = "*************" Then r = 23 t = 2 Else Sess0.Screen.MoveTo 6, 2 Sess0.Screen.SendKeys ("S") Sess0.Screen.SendKeys ("<Enter>") keycode =...
  14. tchad

    warning messge

    Like a message box warning? Use the code below. MsgBox ("Make sure macro is in c:\test.xls")
  15. tchad

    Data from Excel to Extra and back

    Hi, Example below. 5555 1001 29 5555 1002 50 Column A's number will never change, so I only need to pull that once into the first screen. Column B numbers need to match what's on screen, but if there is no qty (Column C) against a store number on the screen, a 0 needs to be put there. Not...
  16. tchad

    Data from Excel to Extra and back

    I've got the below code to work. However, if I wanted to add more putstrings and getstrings, do I just add Example = (x,3) and so forth? Sub Main() Dim Sessions As Object Dim System As Object Set System = CreateObject("EXTRA.System") Set Sessions = System.Sessions Dim...
  17. tchad

    Data from Excel to Extra and back

    OK. Sorry, there should be 1 value, as it's only one cell going to Extra at a time. The cell goes into Extra, presses enter, and the result comes up just below where I put the cell of data in. The correct coords are at work, so that's no problem to add in once we have corrected the code. So...
  18. tchad

    Data from Excel to Extra and back

    Thanks for the reply. As I said, I'm only beginning with the copying of data to Extra, so please try to bear with me. I'm not sure where you are confused with what I've said. The GetString will always be from one place, so column and length are defined by myself when I check the coords in...
  19. tchad

    Data from Excel to Extra and back

    Hi, I do my coding in Excel VBA at work, I have only done extracting so far which I find easy enough, it's just the sending of data from Extra, then extracting then looping again which gets me. I have compiled the below code from what I have read tonight on the forums. I'll add the correct...
  20. tchad

    Data from Excel to Extra and back

    I won't have any code until I get back to work. I'm fine on extracting the data, it's just the part where I have to pull a cell from the Excel sheet, put it into Extra, and then loop the process again until no cells are left, which is what I need help with.

Part and Inventory Search

Back
Top