Hi Don
The code works great. Just going thru how it does things. Your help
appreciated.
Thanks
Charlie
On Fri, Feb 17, 2012 at 6:32 AM, dguillett1 <dguille...@gmail.com> wrote:
> See attached
> Sub GetRequestedItemSheetSAS()
> what = InputBox("Enter item ie: bolt")
> Sheets.Add
> With ActiveSheet
> .Name = what
> '=======
> With Sheets("List").Range("d9:G1000")
> .AutoFilter Field:=4, Criteria1:="=*" & what & "*", Operator:=xlAnd
> .Copy Sheets("bolt").Range("A1")
> .AutoFilter
> End With
> '=======
> .Columns.AutoFit
> End With
> End Sub
>
> Don Guillett
> SalesAid Software
> dguille...@gmail.com
>
> *From:* Cab Boose <swch...@gmail.com>
> *Sent:* Tuesday, February 14, 2012 11:55 PM
> *To:* excel-macros@googlegroups.com
> *Subject:* Re: $$Excel-Macros$$ Find & copy row into New sheet
>
>
> Hi and Ooops. File attached now
> Charlie
> On Wed, Feb 15, 2012 at 1:03 PM, Cab Boose <swch...@gmail.com> wrote:
>
>> Hi
>> Excel 2000
>> Attached workbook 'Sheet!List' tab. For standardising
>> descriptions, (different users!) I need to be able to extract a string
>> and copy /paste all instances into a new sheet, sheet to be named the
>> string of the search. Full list 2000+ rows.
>> eg If I am looking for 'Bolt' the macro will find all instances and
>> copy each row into new worksheet called 'Bolt'
>> I can then review, change as required, and delete the sheet as an when
>> required.
>> Code is:
>> Option Explicit
>> Sub Macro2()
>> '
>> ' Macro2 Macro
>> ' Macro recorded 14/02/2012 by Charlie
>> '
>> '
>> Columns("G:G").Select
>> Range("G9").Activate
>> Selection.FindNext(After:=ActiveCell).Activate
>> Range("D:").Select
>> Range("G14").Activate
>> Selection.Copy
>> Sheets.Add
>> Sheets("Sheet5").Select
>> Sheets("Sheet5").Name = "Bolt"
>> Range("F13").Select
>> ActiveSheet.Paste
>> Range("H17").Select
>> End Sub
>>
>>
>> Should I open the new sheet first? with the code to open new sheet with
>> the Find string as the name. eg /bolt
>>
>> Is it be better to use an Input Box than the Find Box ? I notice that the
>> original 'Find' does not appear in the code. Can I use an input box to
>> select the column to search, will always only be one column.
>>
>> I need help in the code to copy when instance found. Row.Copy ? instead
>> of Selection.copy. And put in Destination code
>>
>> Your comments would be appreciated.
>>
>> Thanks & regards
>> Charlie 68 next week & enjoy Excel
>> --
>> 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
