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

  1. NWBeaver

    How do I improve speed when reading from Excel

    This appears to be part of an ASP application, if you haven't already done so you might want to post this in the ASP or ASP.net forum. From what I know about ASP, server scripts are surrounded by the delimiters <% and %>. Perhaps what you have posted is not your complete script, but the...
  2. NWBeaver

    Sliding Linear Scale

    ...if we plug in the numbers becomes (196.07-117.64)/(50-20)=(78.43/30) Using one of your data points, x=20, and y=117.64 we can solve for b... b= 117.64 - (78.43/30) * 20 = 65.353 So the equation is then... y = (78.43/30) * x + 65.353 where x is the percentage 20 to 50 and y is the payment .
  3. NWBeaver

    Sorting Data

    It sounds like you are developing an Active Server Page. While VBScript is used for ASP, you might want to post your question in the Tek-Tips ASP.NET forum too. I've also seen other websites that offer ASP tutorials and sample scripts for dealing with databases such as you describe. Perhaps...
  4. NWBeaver

    Sorting Data

    What type of data are you writing to the table and wanting to sort? Is it records from a database, or something like a list of files in a directory?
  5. NWBeaver

    Date file/Folder added to Server

    LogParser can also be run from a script, rather than having to open a command prompt and type in a long command string such as the one above. Make a new post in the VBScript Forum if you want to know more about that option, and I can give you an example script.
  6. NWBeaver

    Date file/Folder added to Server

    ...such as you are asking about. When you install and run it, it will bring up a command prompt, type a string such as this: LogParser -i:FS "SELECT * INTO report.csv From C:\*.* WHERE Attributes LIKE 'D%' ORDER BY CreationTime DESC" -o:CSV -recurse:0 This particular string will generate a...
  7. NWBeaver

    Date file/Folder added to Server

    The date a file or folder was created or modified is easy enough to get using a VBScript. If that is an option for you then please post this in the VBScript forum, and we can help you with it there. Are you just wanting to know when something was created, or are you trying to detect that...
  8. NWBeaver

    Close and Save a file if it is open

    Here is an example that you can use as a starting point. This code will find and close an open Excel workbook. Note that as is, although this code can handle multiple instances of Excel, the workbook you are looking for must be the active workbook in the particular instance of Excel in which it...
  9. NWBeaver

    visual basic program for fIBONACCI numbers?

    I made one up just for fun using Excel. Here is what I came up with. It just calculates the numbers in the series up to the limit you enter. Sub Fibonacci() Dim Fn() As Single 'Type Long required for a limit greater than 183 limit = 20 'Enter the series calculation limit here. ReDim Fn(0 To...
  10. NWBeaver

    Excel increment based on value in other cell

    As you were... that should read like this. Sub Find_DJJ() 'Set the range of cells to look in. Dim objRange As Range Set objRange = Sheet1.Range("A1", Range("A65536").End(xlUp)) 'Search for occurances of a string. strFind = "DJJ:" Count = 0 For Each objCell In objRange If objCell.Value =...
  11. NWBeaver

    Excel increment based on value in other cell

    If you insist on doing it with VBA code, it might look something like this: Sub Find_DJJ() 'Set the range of cells to look in. Dim objRange As Range Set objRange = Sheet1.Range("A1", Range("A65536").End(xlUp)) 'Search for decimal points in numeric values. strFind = "DJJ:" Count = 0 For Each...
  12. NWBeaver

    Record Specific Rows

    Here is a piece of code that I have used to do something similar. strName = "AreaID" 'Field name to look for. col = 1 Row = 2 'Start with row 2, Field names are in row 1. While Not rs.EOF While col <= rs.Fields.Count If rs(col - 1).Name = strName Then...
  13. NWBeaver

    Vbscript to zip files in a folder

    Has anyone actually tried using the zip file script that Mark has linked to above? It appears that it will create the zip file and copy files into it, but I am wondering if doing so will actually compresses the files at all?
  14. NWBeaver

    writing inputted data to closed excel spreadsheet

    Have you considered using a database table? You could write the data from Excel to a table without opening it.
  15. NWBeaver

    Excel: Statusbar control

    I believe Skip is referring to the example code, which I have pasted in a routine below: Sub statusbar_message() oldStatusBar = Application.DisplayStatusBar Application.DisplayStatusBar = True Application.StatusBar = "Please be patient..." Workbooks.Open Filename:="LARGE.XLS"...
  16. NWBeaver

    how to scroll spreadsheet while my userform is still on

    The userform mode can be set using VBA code. You control the mode through the .show method of the userform, such as in the following example: Sub OpenForm() modevalue = 0 'modeless=0, modal=1 frmUserForm.Show modevalue End Sub In the example above I have used a variable 'modevalue', so I can...
  17. NWBeaver

    how to scroll spreadsheet while my userform is still on

    In the properties dialog box for the userform, set the "ShowModal" property to false.
  18. NWBeaver

    ComboBox .AddItem Permission Denied

    What about protection? I know if you have a protected worksheet that you must use a line similar to this, for example: Sheet1.Protect Password:="1234", UserInterfaceOnly:=True This allows you to protect the sheet from the user while still allowing the Vb code to make changes. The password...
  19. NWBeaver

    Use wifi status change to launch script

    Here is a link to a script for checking the Wireless Adapter status: http://www.microsoft.com/technet/scriptcenter/resources/qanda/aug07/hey0820.mspx Perhaps if you can make the script work, you could set it up to run as a periodic task to check the status and initiate some action if needed...
  20. NWBeaver

    How to get the &quot;Find&quot; control to pop up in excel

    I have been experimenting with using a button to to popup the Find or Replace dialog boxes, and have discovered that using the button seems to disable using the Edit menu to open the Find or Replace dialog box, not just on the sheet with the button, but the entire workbook. When the workbook is...

Part and Inventory Search

Back
Top