Click here to Skip to main content
13,050,896 members (63,047 online)
Rate this:
Please Sign up or sign in to vote.
See more:
I am new to using script.I found the script in a forum ‘Creating a new Excel file from an existing Excel Sheet.I want to Loop through the range and copy rows in new sheet, I tried to find the keywords then copy the rows in new sheet.if it is possible to do that way can someone help me please

Set c =  objSheet.UsedRange.Find (SearchKeyWord) ‘ data to find
For each c in objSheet.UsedRange ‘ Loop through the used range
If c    =    SearchKeyWord1     then

‘Creating a new Excel file from an existing Excel Sheet
Function CopySheet (SourceFile, SheetName, DestinationFile)
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = True
Set objWorkbook1= objExcel.Workbooks.Open(SourceFile)
Set objWorkbook2= objExcel.Workbooks.Add()
objWorkbook2.Worksheets("Sheet1″).Range("A1″).PasteSpecial Paste =xlValues
objWorkbook2.Worksheets("Sheet1″).Name    =    "Global"
set objExcel=nothing
End Function
Posted 19-Jun-11 16:41pm

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month

Advertise | Privacy | Mobile
Web01 | 2.8.170713.1 | Last Updated 19 Jun 2011
Copyright © CodeProject, 1999-2017
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100