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!

Recent content by Wire216

  1. Wire216

    XP Batch File

    I'm new to batch file scripting, and I was wondering if the following would be possible: I have many routers that I manage. I want to be able automatically telnet to each one and run the same set of commands. Each one has a different IP address and password, which I can store in a text file for...
  2. Wire216

    Access - Subtracting times in VBA

    Alright, I feel stupid now. :) Thanks a lot.
  3. Wire216

    Access - Subtracting times in VBA

    I'm trying to find the difference in minutes between two times, and store the result in an integer. For example: StartTime = 9:43:22 AM EndTime = 9:47:17 AM If I do EndTime - StartTime, I want to store the result (4) as an integer. When a user presses the "start" button on my form, I assign...
  4. Wire216

    Separating the contents of a textbox

    It's all working now. Thanks for the help CautionMP and PHV.
  5. Wire216

    Separating the contents of a textbox

    Looks great so far. How can I check to see how many elements there are in the array? I need to loop through and run some code for each one.
  6. Wire216

    Separating the contents of a textbox

    I have a textbox that is used to enter multiple 2-digit numbers, separated by commas. I want to assign each 2-digit number to a separate string variable (or array element). For example: If the textbox contains "22,25,29,31" I want to have variables like these: Str1 = "22" Str2 = "25" Str3...
  7. Wire216

    Finding matching rows on two worksheets

    I posted a sample of my workbook on Ozgrid. I also explained what I'm trying to do in a little more detail. Thanks.
  8. Wire216

    Finding matching rows on two worksheets

    I'm trying to compare rows on 2 worksheets. If there are matches then I want to take the rows off of the 1st worksheet and move it to a 3rd one. My 1st worksheet consists of "admin calls." Column A is the phone number, H is the date, and F is the start time. My 2nd worksheet consists of...
  9. Wire216

    Converting military times to numbers

    Works great, thanks.
  10. Wire216

    Converting military times to numbers

    I have a column that contains times in military format. I want to convert the times to numbers, with no formatting. For example: Right now the columns show the following: 0:01 0:23 2:14 13:32 19:54 Their actual values are: 12:01:00 AM 12:23:00 AM 2:14:00 AM 1:32:00 PM 7:54:00 PM I want it...
  11. Wire216

    Excel - Copy cell contents to next blank row

    I just got it. Instead of Paste:=xlPasteAll I used Paste:=xlValues. PHV, thanks a lot for all the help. I would have been stuck on this for quite awhile without you.
  12. Wire216

    Excel - Copy cell contents to next blank row

    When I tried to pastespecial, it altered the formula and put that value in instead. Here's the code: Range("J15").Copy Cells(lRow, 7).Select Selection.pastespecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False J15 contains the formula (J14-J5)...
  13. Wire216

    Excel - Copy cell contents to next blank row

    That works great, thanks! Here's what I have so far: lRow = ActiveSheet.Columns(1).Find(What:="*", _ SearchDirection:=xlPrevious, _ SearchOrder:=xlByRows).Row + 1 Range("J4").Copy Destination:=Cells(lRow, 1) Range("J7").Copy Destination:=Cells(lRow, 2) Range("J5").Copy...
  14. Wire216

    Excel - Copy cell contents to next blank row

    What am I missing here? 'This is the first cell I want to copy over to the first 'blank cell in column A Range("J4").Select Selection.Copy lRow = ActiveSheet.Columns(1).Find(What:="*", _ SearchDirection:=xlPrevious, _ SearchOrder:=xlByRows).Row + 1...
  15. Wire216

    Excel - Copy cell contents to next blank row

    I'm very new to VBA. I was trying to use something like this: Sub MIT() Dim lRow As Long ' Find the FIRST EMPTY row by adding 1 to the last row lRow = ActiveSheet.Cells.Find(What:="*", _ SearchDirection:=xlPrevious, _ SearchOrder:=xlByRows).Row + 1 'Paste the data...
See more

Part and Inventory Search

Back
Top