Loop Through Worksheets Listed In Range

Nov 16, 2007

I am attempting to create a macro that will loop through a range, each cell of which contains a worksheet name which needs to be activated in turn. My limited knowledge says that either of the two techniques below should work, but they do not.

Sub SelectSheet()
For i = 2 To 50
Sheets(Range(("J" & i))).Select
End Sub


Sub SelectSheetv2()
For i = 2 To 50
Sheets((Cells(i, 10))).Select
End Sub

View 3 Replies


Loop Range To Create New Worksheets Named For Each Row?

Jan 6, 2014

i have a range of rows that change (could be 10-100) how do i loop the range to create new worksheets named for each row?

View 3 Replies View Related

Macro To Batch Copy And Save Worksheets With File Names Listed In Cells?

Oct 23, 2013

I have a workbook that contains worksheets. They are listed as follows:


In cells A1 - A49 I have text. What I would like to do is to have a macro that I can run that will basically copy and save new workbooks with sheets A - G copied over and have the new workbook saved with the file name that I have denoted in cells A1 - A49 on Sheet 1. Also, the macro would ask me where I want to save the new Workbooks.

For example, if this were Sheet 1, Column A then the cells below would be the saved name of the new workbooks and the new workbooks would have Sheets A - G in themRed










One more piece of information, the file that is being copied and saved is large (~80MB). If there is a macro that would allow me to simply "save as' the workbook and the Saved Workbooks would be named using the data in Sheet 1, that would work as well in case copying, pasting, then saving may take more time

View 1 Replies View Related

Excel 2007 :: Loop To Search Worksheets For Specific Range Value?

Mar 8, 2012

using Excel 2007. I need a code to identify a worksheet within a workbook by cell/range value. The book is used by various users. They have the rights to add new sheets and all but delete columns in the 'master worksheet'. The sheet names can be changed by the user but I need to rename the master sheet on opening the file. To do this I have put a specific value in a cell within the master worksheet which then should allow me to find the sheet and rename it. (let say Range A1 has a value of "this sheet") I have a mental block on how i can run a loop to search each sheet for the identifying value until the range and value is found and the sheet identified

View 5 Replies View Related

Copy Files From Constant URL & File Names Listed In Range

Sep 20, 2009

I have a list of filenames in Sheet1, range A1:A20. These files can be found in URL
http://mysite/x/y. Where y is the filename (including the extension) and x is the 1st 4 characters of the filename. So if in A1 I have the filename AB1234.pdf, this can be found in the link: http://mysite/AB12/AB1234.pdf. Is there a was in VBA where I can loop thru the list in A1:A20, and copy each from their respective URLs and save into C:Documents and Settings ?

View 4 Replies View Related

Import Range From Multiple Workbooks With Names Listed In Column

Mar 31, 2008

I have been trying to use a FOR EACH C ...... NEXT loop, where each cell in the range is the beginning of a worksheet name that I need to import.

What I have got so far is:

Sub FindMyFiles()
Dim fs As FileSearch
Dim ImportWB As Workbook
Dim MasterWB As Workbook

Set fs = Application.FileSearch
Set MasterWB = ThisWorkbook

View 4 Replies View Related

Loop Through Index Worksheets Using For Loop And Select Clause

Nov 4, 2013

I have a workbook that contains, say, 50 worksheets: the first two worksheets summarise the data and are static in that they don't move position. However, the next four worksheets contain certain data for any given month. Each time a new month comes along, say, November, I insert four new worksheets after the two static ones as a result October's four worksheets are simply moved down the line in terms of worksheet order.

I need a macro to refer to the first six worksheets only (not the other tabs). I opted for index referencing for each worksheet, ie one - six. Now within these six worksheets in any given month, I need to sort the data by a certain column. The problem: in sheets 1,4,5 and 6 I need to rank by column E, but in sheets 2 and 3 I need to rank by column C. I have stepped through the code, which works for sheets 3-6, but doesn't seem to refer to sheets 1-2.

Sub WorksheetLoop()
' Loop through an indexed number of worksheets; _
' & this ensures that the worksheet range is dynamic _
' and is able to adjust when new sheets are added/removed, etc.
'Dim ws As Worksheet
Dim i As Long
Dim ws As Worksheet


View 2 Replies View Related

Loop Through Worksheets Not Working (delete Some Hyperlinks In Column A On 50+ Worksheets)

Jan 16, 2009

Just need to delete some hyperlinks in column A on 50+ worksheets. Thought a loop through all the worksheets would do it. Only works on active sheet. Forgive my ignorance, don't really even know where it goes, once it works - module or workbook?

View 2 Replies View Related

Loop Across Worksheets: Perform The Same Process To All The Worksheets In My Workbook

Aug 10, 2009

I'm trying to perform the same process to all the worksheets in my workbook. This is the code I have now, but it will only apply to the single active worksheet:

View 2 Replies View Related

How Do I Loop Through Worksheets

Apr 8, 2008

I have a number of sheets in my workbook which I'd like to run the same code against. Rather than calling each by name is there a way to define each sheet as an array number and use that to loop through?

For this example we'll use Sheet1, Sheet2, Sheet3 and Sheet4

View 9 Replies View Related

Loop Through Worksheets

Dec 22, 2006

I have a simple macro with a loop which selects sheets in a workbook. sheets are named "Sheet 1" to Sheet 6". Two sheets are missing (say sheet 3 and sheet 5). The On Error code works when the macro tries to find sheet 3 but crashes on the second error (when it tries to find sheet 5).

Sub SelectSheet()
For i = 1 To 6
MySheet = "Sheet" & i
On Error Goto 10
Next i
End Sub

View 3 Replies View Related

Loop Code Through Certain Worksheets?

Nov 15, 2013

I am trying to loop the following code for a total of 15 worksheets without copying and pasting that same code 14 more times for each worksheet. Right now it is only executing the code on the "CAN" tab. Is there a way to make it loop where indicated below?

The 15 worksheets are:


View 3 Replies View Related

Loop Through The Worksheets In WorkbookA

Oct 14, 2008

Iím trying to copy some data from each sheet in WorkbookA, except for the first sheet which is called ďMenuĒ, into a single sheet in WorkbookB. Iím trying to loop through the worksheets in WorkbookA but donít know how to exclude the first sheet. The code for copying and pasting works fine. Itís just the looping (as always) Iím having trouble with. The code Iím trying is:

View 2 Replies View Related

Loop Thru Worksheets Not Looping?

Aug 12, 2009

Why wont this loop thru all worksheets? It seems it runs worksheet named "Monday Wk (1)" for each sheet and no others.

View 9 Replies View Related

Loop Through Cells And Then Through All Worksheets

Jan 30, 2010

Not sure what is missing here, but this will only highlight duplicates on the active sheet and won't cycle thru all worksheets in the workbook.

View 2 Replies View Related

VBA To Loop Through Multiple Worksheets

May 10, 2013

Code to complete the same task across a number of worksheets.

Basically I have 20 Worksheets currently. The first one is called "index", then I have 17 called App1, App2, App3 etc up to App17 and a final two called Collate and register.

What I want to do is to copy cells A2:E2 from App1 and paste it in the next blank row of "index". I then want to do the same in App2 and so on to App17 and then stop. I don't want it to do the same in index,Collate or Register.

in the past i have used something like (this is from something else I am using at the moment)

HTML Code:

Application.CutCopyMode = False

[Code] ....

Is there a way without having to write code for each sheet (which seems very inefficient) to complete the same task but ignore the three other tabs.

View 4 Replies View Related

Loop Through All Worksheets - Failing?

May 14, 2013

This macro should copy all data from all worksheets and past them into the sheet named "Consol" however It is not looping and only pastes the one sheet.

Sub LoopThroughSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
FinalRow = Range("A65536").End(xlUp).Row
Range("A2:U" & FinalRow).Copy


View 6 Replies View Related

Loop Through Multiple Worksheets?

Jan 17, 2014

I have over 200 worksheets in my workbook. I made a macro to have the sheet change to landscape orientation and adjust the column widths how I wanted them. I don't know how to make the macro loop to all the sheets in the workbook.

Sub Macro5()
' Macro5 Macro


View 3 Replies View Related

Cut/Paste Loop Between Worksheets

Apr 13, 2009

I have a worksheet ("Issues Report"). Based on the value in column A, I'm trying to cut the entire row and paste it on another worksheet ("Closed Issues").

Here's what I've written so far:

Dim C As Range
Dim xlSheet As Worksheet
Set xlSheet = Worksheets("Issues Report")
Set C = xlSheet.Range("A:A")

With xlSheet
For Each cell In C
If cell.Value = "Ready to Close" Then
Worksheets("Closed Issues").Range("A65536").Select
End If
Next cell

This seems logical to me, but it's not working as planned. The code gets hung up on the 11th line of code.

View 9 Replies View Related

Referencing Worksheets In A Loop

May 2, 2006

Trying to write a macro that will reference one cell in about sixteen different worksheets and return the value of each of those cells. Is there an easy way to do this?


For n = 1 To n = 15

Worksheet(n + 1).Cell("A1")

Return A1

I know this isn't even close to the right code but this should give you an idea of what I'm trying to do.

View 9 Replies View Related

Loop Through Worksheets & Sort

Jul 22, 2006

I want to loop through all worksheets and sort all columns in each worksheet. Here is what I have, but for some reasson, it only sort the first sheet. Any suggestions?

Sub test2()

Dim ws As Worksheet
For Each ws In Worksheets

Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
End Sub

View 4 Replies View Related

Declare And Set Worksheets In A Loop

Jan 31, 2007

I want to declare and 'Set' a number of worksheets for later use. Like this ...

View 9 Replies View Related

Loop Through Some Of Worksheets Without Using Customized Names

Nov 20, 2012

I have a piece of code from a form command button. its supposed to colect data and put it to appropriate cells.

FoundColumn = 0

For Each c In Sheet19.Range("A5:A33").Cells
If c.Value = student1.Value Then
'check if date allready exists
For Each cc In Sheet19.Range("c4:nc4").Cells
If Calendar1.Value = cc.Value Then

[Code] .....

I need this for Sheet19 and to 10 more worksheets like Sheet20, Sheet21 etc. I can manually copy paste the code and change the Sheet19 to whatever but it just does not seem the right thing to do. I tried:

For i = 1 To 6
naming = "Sheet" & i
MsgBox naming.Cells(1, 2).Value
Next i

but that gives an object required error.

View 2 Replies View Related

Loop To Create New Worksheets, Name Them And Add Web Query

Jul 10, 2009

I have been trying to create new worksheets, name them and create webquery according to the input on table B4:C13 in test1 sheet attached (code is in module 1). After I run the code it stops after creating sheet with name 1 and shows error 1004. here it is the

View 8 Replies View Related

Loop Through Subset Of Worksheets Will Not Work

Feb 9, 2014

I'm trying to insert two rows in a subset of worksheets in a workbook by defining a range in a worksheet and loop through the worksheets in that range, but the code will only run on the active worksheet.

[Code] ..........

How I could get this loop to work?

View 1 Replies View Related

Loop Functions To Create Worksheets

Apr 1, 2009

I've got a data set (words and text) where in column J the number 100 appears at random intervals. Each time the number 100appears, i want to take all data from cell A:J and copy that data to a new worksheet and then name it with the word in cell A.

View 7 Replies View Related

Defining The List Of Worksheets In For Each Loop

Dec 8, 2009

I am trying to perform certain actions on just some worksheets in a workbook. I realize this is probably a simple thing, but I've been unsuccessful in my search of the web so far.

What I'd like to do is define the worksheets (i.e. "in worksheets" below) in the below code to only include a list of worksheet names (which I can provide - ideally via a list in the worksheet in Excel, say in cells A1:A15 of a tab called "Tab List".).

View 4 Replies View Related

Create A Loop To Add Multiple Worksheets

Jan 27, 2012

I am trying to create a loop to add multiple worksheets

I want to add a new sheet for each company (A2:A14)

I am also wanting to add the sheets after the current last sheet if possible.

Sub addnewsheet()
x = 2
Do Until Cells(x, 1) ""
Sheets.Add.Name = Worksheets("securities").Cells(x, 1).Value & ".ax"
x = x + 1
End Sub

View 3 Replies View Related

Loop Through One Worksheet And Create New Worksheets

Mar 1, 2012

I am trying to do payslips. Basically I have one worksheet with about 7 columns. I have a 2nd worksheet that is like a template payslip.Worksheet 1 has hours worked and pay etc.

I want to find a method to loop through worksheet 1 and using worksheet 2 as a template create more worksheets and have the values come from worksheet 1 in the new worksheets.

View 2 Replies View Related

Loop Through Subset Of Worksheets Will Not Work

Feb 9, 2014

I'm trying to insert two rows in a subset of worksheets in a workbook by defining a range in a worksheet and loop through the worksheets in that range, but the code will only run on the active worksheet.

Sub StatePIPData()
Dim sheet_name As Range
For Each sheet_name In Sheets("WS").Range("A:A")
If sheet_name.Value = "" Then

[Code] .......

View 1 Replies View Related

Copyrights 2005-15 www.BigResource.com, All rights reserved