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
