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 Rhinorhino 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 Bowers74

  1. Bowers74

    Vlookup

    I don't come here often, but when I do I am amazed to see how much more I need to learn before I can know as much as I thought I already knew (if that even makes sense). Kodos 2 u both!! and *'s all around!!! Peace!! [americanflag] [peace] [americanflag] Mike Didn't get the answers that...
  2. Bowers74

    Progress Bar Question

    I have always liked John Walkenbach's approach to progress indicators because it uses tools that are available on everyones's PC (with MS Office installed), like Labels, Frames and TextBoxes: J-Walk Progress Bars P.S. This Thread should be in the VBA Forum P.S.S. NewGuy100 . . . Your...
  3. Bowers74

    Combine files into one Workbook - Different tabs

    As I said . . . Creating a VBA procedure is also a possibility, but I would advise going that route only if this is something that is done often or if you have multiple workbooks (50 or higher for a one time deal). Peace!! [americanflag] [peace] [americanflag] Mike Didn't get the answers...
  4. Bowers74

    Combine files into one Workbook - Different tabs

    With both workbooks open (TO" and "FROM"), in the from workbook, right click on the worksheet tab you want to copy and select "Move or Copy..." In the pop-up window, select the "TO" workbook from the first drop-down list. Select where in the "TO" workbook the "FROM" worksheet is to go. Check...
  5. Bowers74

    Counting Cells which Contain Specific Text Strings

    Or you could try a non-array formula using the SUMPRODUCT function: ;-) =SUMPRODUCT((NOT(ISERROR(FIND("SVBL",A2:A7000)>0)))*1) Peace!! [americanflag] [peace] [americanflag] Mike Didn't get the answers that you wanted? Then . . . Click Here
  6. Bowers74

    Find blank cells containing spaces

    If this is an excersize in data validation, why not use it: 1. Select all pertaining cells in column A 2. Select Data->Validation... 3. Insert under Allow: Custom 4. Enter under Formula: "=ISNUMBER(A3)" This way you can eliminate the B column altogether! If you want to keep the B column...
  7. Bowers74

    Result should be the number of weekdays only

    You should also check out my FAQ on Excel's date functions: What are some of Excel's date functions? faq68-4037 Peace!! [americanflag] [peace] [americanflag] Mike Didn't get the answers that you wanted? Then . . . Click Here
  8. Bowers74

    Result should be the number of weekdays only

    Check out the NETWORKDAYS() function. It handles only weekdays (i.e. no Saturdays or Sundays) and can handle optional predefined holidays as well. You will need to install the Analysis Tool Pack (under Tools->Add-Ins) to have this function available. Peace!! [americanflag] [peace]...
  9. Bowers74

    Find blank cells containing spaces

    oops, there should be a space between the quotes: =IF(A1=" "),dosomething,donothing Peace!! [americanflag] [peace] [americanflag] Mike Didn't get the answers that you wanted? Then . . . Click Here
  10. Bowers74

    Find blank cells containing spaces

    try =IF(A1=""),dosomething,donothing Peace!! [americanflag] [peace] [americanflag] Mike Didn't get the answers that you wanted? Then . . . Click Here
  11. Bowers74

    Inserting Text (Sorry for the Newb Question)

    You will need to test whether or not the workbook you are trying to write to is opened and then reference it. Although there is also a way using XLM Macros to write a value to a closed workbook. Is your workbook open? Will it always be open? Will this macro be running only on your computer? How...
  12. Bowers74

    Removing letters from a string

    . . . And, just in case you still wanted to look at a worksheet function: Assuming your string is in A1 Type: =VALUE(MID(A1,MATCH(0,(ISERROR(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)*1)*1),0),LEN(A1)-SUM((ISERROR(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)*1)*1)))) And enter it as an Array formula by...
  13. Bowers74

    Removing letters from a string

    I can't remember where I got this function, but I have been using it for years. It should do the trick! Function Extract_Numbers(rCell As Range) Dim iCount As Integer, i As Integer Dim sText As String Dim lNum As String sText = rCell For iCount = Len(sText) To 1 Step -1 If...
  14. Bowers74

    Random generator Excel spreadsheet

    Just in case you are still interested in a macro: Sub RandomPick() Dim NewVal As Long, OldVal As Long Dim lr As Long, i As Long Dim msg As String lr = [B65536].End(xlUp).Row - 1 i = 0 While i < 2 i = i + 1 NewVal = Int((lr * Rnd) + 2) If NewVal <> OldVal And Range("F" & NewVal) =...
  15. Bowers74

    time stamp

    oh, yeah . . . Lose the Worksheet_Change events! ;-) Peace!! [americanflag] [peace] [americanflag] Mike Didn't get the answers that you wanted? Then . . . Click Here
See more

Part and Inventory Search

Back
Top