Search results for query: *

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...

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...

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...

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...

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

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...

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

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]...

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

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

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...

. . . 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...

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...

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) =...

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

Change: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Select If Not ws.Range("a1") = ws.Range("A1") Then ws.Range("A1") = "Last Run: " & Now ws.Range("A1") = "Last Run: " & Now Else: End If Next ws '...

In Cindy Lauper's "Girl's just want to have fun", she sings "when the working day is done", I always thought she sang "when the earth can date the sun". I was probably 10 when the song game out and I just found out the real lyrics . . . two weeks ago. Peace!! [americanflag] [peace]...

ISSUES ISSUES ISSUES ISSUES ISSUES ISSUES ISSUES ISSUES ISSUES ISSUES Peace!! [americanflag] [peace] [americanflag] Mike Didn't get the answers that you wanted? Then . . . Click Here

Just out of curiosity, how are you removing the "dashes and spaces". after you remove them, is the cell still formatted as text? Do you then attempt to format the cell as General? Have you tried formatting it as a number with no decimals? Peace!! [americanflag] [peace] [americanflag] Mike...

Set the format of your cell to the custom format h.mm and then enter the formula =(A1*100)/1440 into the cell. I hope this helps! Peace!! [americanflag] [peace] [americanflag] Mike Didn't get the answers that you wanted? Then . . . Click Here