OK. I had thought that the SELECTION would stop the loop. So, I went back and tested and you are CORRECT.. See msgbox line which showed sheet4 even tho find was on sheet3. Next time I will exit the for
Sub lookinallsheets() For Each ws In Worksheets With ws ============== MsgBox .Name =========== set mf = .Cells.Find(What:="ss", LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext) If Not mf Is Nothing Then .Select mf.Select End If End With Next ws End Sub Don Guillett SalesAid Software dguille...@gmail.com From: Sam Mathai Chacko Sent: Tuesday, February 21, 2012 7:14 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Help with code please. Don, your code works fine for the selection. I would gladly accept any correction if somebody did that to me. My only point is that 1. Find doesn't stop the loop in other words, the loop will need to be exited. If you have many sheets and the word you are looking for is in the first sheet itself, the code will still loop through all the remaining sheets. From a developers perspective, I just felt that the loop should be exited. Otherwise, I didn't say the code didn't work. .Cheers, Sam On Wed, Feb 22, 2012 at 6:40 AM, dguillett1 <dguille...@gmail.com> wrote: Computer is tired and going to be early but after I asked the same question the OP said “ There will never be more than 1 of the same number. I just need it to > select the sheet that it's on and then select the cell where it's located.” Pls test what I provided. Don Guillett SalesAid Software dguille...@gmail.com From: Sam Mathai Chacko Sent: Tuesday, February 21, 2012 6:56 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Help with code please. Haha, I like the way you put that Don. I agree 6 of 1 is half a dozen of another. On the other point however, I am afraid I have to disagree. If the workbook has the text you are looking for in more than one sheet, the code will go forward and the last sheet that has the word being looked for will be selected. Regards, Sam On Wed, Feb 22, 2012 at 3:03 AM, dguillett1 <dguille...@gmail.com> wrote: Asa, Agree about the “undue attention”. My experience tells me that just leaving it out ( as I did) serves the purpose. Maybe you can time it.?? Don Guillett SalesAid Software dguille...@gmail.com From: Asa Rossoff Sent: Tuesday, February 21, 2012 2:10 PM To: excel-macros@googlegroups.com Subject: RE: $$Excel-Macros$$ Help with code please. Too true Don// .Find finds the first match… and stops. However, with all the undue attention to this code, I will offer a suggested update. The Set mg = .Cells.Find lines can be changed to the following to prevent an oft-overlooked issue with .Find. The issue is that .Find does not start searching from the beginning of a range, but from the cell after the first cell in the range. In the code provided so far, if a match is in A1 and also in another cell on the sheet, the code will never find the match in A1, but only the first match in a cell other than A1 (starting from B1). This change will start searching from A1: Set mf = .Cells.Find(What:="whattolookfor", ", After:=.Cells(.Rows.Count, .Columns.Count), LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext) Asa From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of dguillett1 Sent: Tuesday, February 21, 2012 11:42 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Help with code please. Sam, The code I provided does stop the macro with the selection. Yes, goto could be used but OP said select sheet select cell so I did that. “6 of one is 1/2 dozen of another” Don Guillett SalesAid Software dguille...@gmail.com From: Sam Mathai Chacko Sent: Tuesday, February 21, 2012 11:39 AM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Help with code please. You'd want to exit the routine if the cell is found. Also, you can use application.goto to select the cell. I would also be weary about hidden sheets if any. Sub lookinallsheets() Dim wks As Worksheet Dim rng As Range For Each wks In Worksheets With wks Set rng = .Cells.Find(What:="whattolookfor", LookIn:=xlValues, LookAt:=xlWhole) If Not rng Is Nothing Then Application.Goto rng Exit For End If End With Next wks End Sub Regards, Sam Mathai Chacko On Tue, Feb 21, 2012 at 8:03 PM, dguillett1 <dguille...@gmail.com> wrote: This will look in all sheets in the file and select if found. Put it in your DIR loop for all files in the folder. Sub lookinallsheets() For Each ws In Worksheets With ws Set mf = .Cells.Find(What:="whattolookfor", LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext) If Not mf Is Nothing Then .Select mf.Select End If End With Next ws End Sub Don Guillett SalesAid Software dguille...@gmail.com -----Original Message----- From: Bob Sent: Monday, February 20, 2012 2:28 PM To: MS EXCEL AND VBA MACROS Subject: Re: $$Excel-Macros$$ Help with code please. There will never be more than 1 of the same number. I just need it to select the sheet that it's on and then select the cell where it's located. Thanks in Advance On Feb 19, 8:58 am, "dguillett1" <dguille...@gmail.com> wrote: If you are saying you want to look for it on all sheets you can wrap in a loop for each ws in worksheets ws.Select Cells.Find(What:=IndividualSearch, LookIn:=xlValues,LookAt:=xlWhole).Activate next ws Or, are you saying there could be more than ONE hit?? BTW you don't need to select to work with the found item. More info?? Don Guillett SalesAid Software dguille...@gmail.com -----Original Message----- From: Bob Sent: Sunday, February 19, 2012 6:33 AM To: MS EXCEL AND VBA MACROS Subject: $$Excel-Macros$$ Help with code please. I almost have the code the way I need it. BUT I want it to Find everything within in the same Workbook, not just on the Index Worksheet. Thanks in advance!!! Private Sub CommandButton1_Click() Dim IndividualSearch As String IndividualSearch = InputBox("What's the part number you're looking for?", "Name Search entry box.") If IndividualSearch = "" Then Exit Sub On Error GoTo ErrorHandler Worksheets("Index").Select Cells.Find(What:=IndividualSearch, LookIn:=xlValues, LookAt:=xlWhole).Activate Exit Sub ErrorHandler: MsgBox IndividualSearch & " not found.", 64, "No such animal." End Sub -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com- Hide quoted text - - Show quoted text - -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com -- Sam Mathai Chacko -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com -- Sam Mathai Chacko -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com -- Sam Mathai Chacko -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com