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!

  • Congratulations strongm 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: link99sbc
  • Content: Threads
  • Order by date
  1. link99sbc

    sort by matching column

    I have a spreedsheet with data in 7500 Rows and columns A-M I want to sort it by matching col C and D. In other words if C and D match move the row to the top. If they don't match, move the row to the bottom.
  2. link99sbc

    Can screen scraping be done on a web screen?

    We are linked to another departments terminal to retrieve data. They are going to a new web based system. I don't know if macros can work on a web site. Any ideas?
  3. link99sbc

    Compile error on End Sub

    What would cause a compile error on End Sub??????
  4. link99sbc

    IF Statements help

    I have no experience with If Statements. But I think I need one to accomplish this task unless there is another way to do it. I have a specific screen that has "Morbiles" which is a > that is underlined. Placing the cursor on it and typing "M" and press enter brings up another screen that I...
  5. link99sbc

    Need help with Case Structure

    I can't get the Case structure right. Tried several different ways. It works with 07 and 09 but not 08. lRowCount = InputBox("How many rows to process?") ActiveCell.Offset(0, 0).Activate If lRowCount > 0 Then Do While lOff <= lRowCount...
  6. link99sbc

    error getting the value from excel

    trying to loop through worksheet. value of colA in one location and value of colB goes in another location in extra. I'm not getting the syntax correct. Dim xlApp As Object, xlSheet As Object, MyRange As Object Set xlApp = CreateObject("excel.application")...
  7. link99sbc

    how do i skip to next message box

    I have this part of my code setup to respond to user input. there are 4 periods possible but if the user has less than 4 how do i skip to the next msgbox. MsgBox"ENTER THE PERIODS" Do While sess0.Screen.OIA.Xstatus <> 0 DoEvents Loop Sess0.Screen.WaitForCursor...
  8. link99sbc

    Trouble getting Macro to Loop

    I'm trying to get this macro to loop a specified number of times. I tried some examples in Excel help but none worked. I have over 40,000 rows on the spreadsheet. I want it to loop 25 or 50 or maybe 100 times starting on the ActiveCell. This code works fine (1 row at a time) Sub Check()...
  9. link99sbc

    google search doesn't work

    Trying to copy a line in attachmate and paste in the google search line. Sometimes it works sometimes it don't. anybody have a better way? [] Sub Main() Dim Sys As Object, Sess As Object, MyScreen As Object, MyArea As Object Set Sys = CreateObject("EXTRA.System") Set Sess =...
  10. link99sbc

    Macro Compiles but doesn't work

    I'm trying to scrape a little data from extra to excel. The macro compiles but no data appears in excel. I don't get any error messages. [] ' Global variable declarations Global g_HostSettleTime% Global g_szPassword$ Sub Main()...
  11. link99sbc

    Add Comments in Excel from Clipboard

    A few tips on Comments. []'Formats all comments on the sheet Sub FormatAllComments() For Each x In ActiveSheet.Comments With x.Shape.TextFrame.Characters.Font .Name = "System" 'font .Size = 10 .Bold = True End With Next x End Sub...
  12. link99sbc

    Making Comments in Excel

    A few tips on Comments. [] Sub FormatAllComments() 'Formats all comments on the sheet For Each x In ActiveSheet.Comments With x.Shape.TextFrame.Characters.Font .Name = "System" 'font .Size = 10 .Bold = True End With Next x End Sub...
  13. link99sbc

    Toggle the Productivity Pane in Extra X-treme

    This macro will toggle the productivity pane on and off in Extra 9 since attachmate failed to include one. '-------------------------------------------------------------------------------- ' Date: Friday, May 15, 2009 07:22:56 ' User: ' Toggle Productivity Pane...
  14. link99sbc

    How do you Pause 3 seconds?

    I'm trying to pause my excel macro in attachmate. Excel has no pause feature like attachmate. I've tried to use Sessions settletime but excel just slows down. I've tried to pause in attachmate sendkeys but Excel doesn't compile it. I need to pause at a screen for 3 seconds. I'm using...
  15. link99sbc

    How do I fix this code to start and stop at each cell

    This code gets the each cell down colA (Numbers) and puts the data where I want it but it keeps going. My field looks like a countdown timer. How do I make it stop after each cell until I'm ready for the next cell. I need time to research each number before it puts the next cell of numbers...
  16. link99sbc

    HOW WOULD YOU CHANGE THE CODE TO REFERENCE

    HOW WOULD YOU CHANGE THE CODE TO REFERENCE A FILE THAT'S ALREADY OPEN INSTEAD OF OPENING A NEW INSTANCE EVERYTIME YOU RUN THE MACRO. SAMPLE Sub Main() '-------------------------------------------------------------------------------- ' Get the main system object Dim Sessions As Object...
  17. link99sbc

    Startup Multiple Sessions

    Find Session1 or whatever your session names are, usually in C:\Program Files\Attachmate\Sessions\Session1.edp Right Click on it and choose Send to - then Desktop, which creates a shortcut on the desktop if you don't already have one. I drag the shortcut from the desktop to my windows tool...
  18. link99sbc

    Need Putstring help as paste doesn't work coping activecell.

    ' Global variable declarations Global g_HostSettleTime% Global g_szPassword$ Sub Main() '-------------------------------------------------------------------------------- ' Get the main system object Dim Sessions As Object Dim System As Object Set System =...
  19. link99sbc

    Having trouble with paste in Extra Extreme.

    ' Global variable declarations Global g_HostSettleTime% Global g_szPassword$ Sub Main() '-------------------------------------------------------------------------------- ' Get the main system object Dim Sessions As Object Dim System As Object Set System = CreateObject("EXTRA.System") ' Gets...

Part and Inventory Search

Back
Top