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 SkipVought 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: *

  1. jcrater

    Team-Building Exercises

    My company has done many of these suggestions (bowling, lunch, bar, etc), but in reality they don't do much for team building. What usually happens is that the teams are always the same: People naturally team up with those that they work closest with, so no intermingling occurs. I don't like...
  2. jcrater

    Disable Text Entry

    Not sure what version of Excel you're using, but try Data->Validation (use a list of allowed values)
  3. jcrater

    order worksheets based on name

    Put shorter text values or even numbers in the sheet code names and sort on those.
  4. jcrater

    Directory listing

    at the system prompt: DIR c:\my folder > dirlist.txt there are several switches you can use with the DIR command to control the format of the output.
  5. jcrater

    Pause my application for 20 mins

    What OS are you using? With Windows 2000, if you use the scheduled task wizard you cannot set the frequency to a more granular level than once/day until you click the finish tab. Once you do that, you'll have access to an "advanced" button on the Scheduled section of the form. From there you...
  6. jcrater

    Date Time Stamp Data Entry

    I don't think you put the code into a new module; add the code to the worksheet_change event.
  7. jcrater

    Writing to file and recognizing a CR/LF!!!

    Remove the semicolon in your Print statement. You might want to open your file and leave it open until all records are written to it.
  8. jcrater

    Real-Time Counter

    Can we see some code? What are you counting and how is it started and stopped by your application?
  9. jcrater

    generate random 4 digit number in range between 0000 and 9999

    from Excel help: To produce random integers in a given range, use this formula: Int((upperbound - lowerbound + 1) * Rnd + lowerbound) Here, upperbound is the highest number in the range, and lowerbound is the lowest number in the range. if you want a 4-digit number, wrap the result with the...
  10. jcrater

    Determine if values are contained within Range

    You can use named ranges and macro code, or it might be simpler just to use conditional formatting. If you want to go the macro route, here's the high-level logic: For each cell in range if cell.value = "ABC" then <change text font color> end if next cell
  11. jcrater

    Timer

    1) Use the Sleep API function, or 2) something like: Dim dtmNow As Date dtmNow = Now() Do Until DateDiff("s", dtmNow, Now()) > 1 Loop
  12. jcrater

    Copy File service - sorry &quot;Search&quot; is down :(

    Why not compile your code as an EXE and create a scheduled task to execute it?
  13. jcrater

    UPDATE query

    Try removing the semicolon. I know that MS Access always appends one to the end of each command in a query window, but I've never used it with DAO.
  14. jcrater

    listitem error

    The "set" statement worked fine for me. I'm assuming that your listview is named correctly. I did get an imagelist error on the last statement.
  15. jcrater

    Excel - Message box stating date and user

    Oops. Forgot about the saved time: ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
  16. jcrater

    Excel - Message box stating date and user

    Use the Workbook_Open event of the "This Workbook" object: MsgBox "This workbook last saved by " & ActiveWorkbook.BuiltinDocumentProperties("Last Author")
  17. jcrater

    Excel 2K - Len & Left

    If you just want the length of the left portion, how about: Len(Int(A1))?
  18. jcrater

    Concatenation Problem

    I don't understand the question. If you want to replace the value in the active cell, do Activecell.Value = Activecell.Value & NEG
  19. jcrater

    Concatenation Problem

    Const NEG as string = "-" Dim a as String Dim b as String a = activecell.value b = a & NEG

Part and Inventory Search

Back
Top