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
