Selecting And Deleting Array Sheets Macro

Jun 15, 2012

Here is my macro

MyFileName = Sheets("Macros").Range("B1").Value
MyFileNameTwo = Sheets("Macros").Range("B2").Value
Sheets("Blank").Select
Sheets.Add After:=Sheets("Blank")

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

Issue with array that's bolded The way it is set up is to rename the 3rd sheet to MyFileName and rename the last sheet to MyFileNameTwo. The file names will remain constant. They will always be the 3rd and last sheets, but the number in between will vary. Is there anyway to select the 3rd sheet through the last sheet to delete these? When I use the array it wants sheet names but those are based on multiple variables in other workbooks.

View 3 Replies


ADVERTISEMENT

VBA - Selecting Sheets In An Array

Aug 29, 2007

I am trying to clean up a macro a little that used to look like the following:

Sub Refresh()

Sheets("Sheet2").Select
ActiveSheet.QueryTables(1).Refresh BackgroundQuery:=False
ActiveSheet.QueryTables(2).Refresh BackgroundQuery:=False
Sheets("Sheet3").Select
ActiveSheet.QueryTables(1).Refresh BackgroundQuery:=False

I want to set up an array and have the code run through a loop and have gotten stuck on the following:

Sub Refresh()

Dim i As Integer
Dim SheetName As Variant

It does not seem to want to go from the first sheet to the second. What am I doing wrong/what can I do better?

View 9 Replies View Related

Selecting Sheets In A Macro

Apr 30, 2008

I have a workbook that I am continually adding and removing pages from. The pages are used together in groups of 3 and as a result are named 1.1,1.2,1.3; 2.1,2.2,2.3 and so on. I have a macro that works on sheet 1.3 and now need it to repeat on sheets 2.3, 3.3 etc depending on how many sheets I have open and active in the workbook. Is there anyway that I can create a macro that will work on all sheets that have titles ending in 3 and then end if there are no more? Thus it would work if my workbook goes to either 2.3 or to 7.3 and so on.

View 14 Replies View Related

Macro For Selecting Hidden Sheets?

Dec 26, 2013

I have spreadsheet with 13 sheets the first of which is a title page, what I wish to do is hide the other twelve sheets and somehow be able to select them from a drop down box (or similar what ever works with a macro)on the front page, the selected sheets would then appear unhidden.

I am OK with formulas etc but macros are beyond my ability even trying to follow examples & tutorials online has me lost.

The sheets all have specific but different names and none need to be selected more than once (although if possible it would be good). I understand where to put the macro in but as to how it is written ......

View 7 Replies View Related

Deleting All Sheets Except One (macro)

May 8, 2012

I need a simple macro to delete all sheets in a workbook except one that is called "START"

View 9 Replies View Related

Macro Is Selecting Blank Cells When Merging Sheets?

Feb 19, 2014

I have some reports that I run that go out to analyst daily and I use this script to merge all the documents together. They are the same everytime. However it includes a series of blank rows because the vba I use to create them I believe causes this. Is there a command to remove the VBA when merging them together. Here is the selection copy piece.

HTML Code:
'Import a sheet from found files
Do While Len(fName) > 0
If fName ThisWorkbook.Name Then

[Code].....

View 3 Replies View Related

Macro For Deleting First Three Rows In All Sheets Except 1st Sheet

Apr 1, 2014

I have a excel file with more than 10 sheets and every sheet has a title on its first three rows.

I want to delete first three rows in all sheets except parent sheet .

View 4 Replies View Related

Deleting Row By Random Selecting A Cell

Feb 26, 2009

I wish to randomly select a cell, using an InputBox, and then delete the entire row that cell is in. Once the row has been deleted the InputBox opens again for the next random cell to be selected.
When finished selecting I wish to cancel out.

View 9 Replies View Related

Macro To Loop Through Sheets And Print Them Out Using An Array

Aug 4, 2009

I have created a macro that loops through and creates an array of the visible sheets. Now I would like for it to print each of those sheets out. I think my main mistake is in my declaration of the array type, since I have not worked with arrays much before.

how to make the following code operable. Currently when I run it I'm getting a "Run-time error (9): Subscript out of range" error.

View 2 Replies View Related

Reduce Macro Perform Array Of Sheet (not All Sheets)

Feb 3, 2010

How can I make this macro easier (smaller)? The same action is performed on an array of sheets (not all sheets).

View 4 Replies View Related

VBA Selecting A Variable Array

Apr 3, 2009

I've successfully copied the array of equations using the VBA that Pjoaquin enlightened me with from my last thread. The outcome was Sheet2!A2:O2 being successfully populated with the equations from my first sheet... but here comes the problem: I'm looking to autofill A2:O2 down to the last record in Column P. But the number of records in this table is varable.

View 2 Replies View Related

Selecting Nth Row Number Of Repetitive Value In Array

Mar 25, 2012

I want to find the row position in an array.

1 200 CAR 001
2 230 CAR 002
3 400 TRUCK 001
4 200 BUS 001
5 250 CAR 003
6 250 BUS 002
7 200 BUS 003
8 730 CAR 004

in 4th column it should say that this is "n"th position of 3rd column value.

ex.
in 4th row 3rd column 1st "BUS" appears. hence column 4 is 1
in 6th row 3rd column 2nd "BUS" appears. hence column 4 is 2
in 7th row 3rd column 3rd "BUS" appears. hence column 4 is 3

tell me how to automate this

View 1 Replies View Related

Selecting ALL Worksheets In Activeworkbook As An Array

Mar 21, 2008

I recorded the following macro to select all the worksheets in the Activeworkbook by clicking on the first worksheet and then hitting Shift Tab and selecting the final worksheet (thus '[Group] selecting' all worksheets in the active workbook).

Sub Macro1()

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Sheets("Sheet1").Activate
Range("A1:B2").Select

End Sub
How do you generalise the Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select if the number and names of worksheets varies from workbook to workbook?

View 9 Replies View Related

Deleting Blanks In An Array

Oct 22, 2008

I have an array that includes blanks in it. What is the formula to use to output the array of values without the blanks? Example: I have an array (Cells A1:A10) with thirty blanks within this 10 cell array. I wish to have the list of non-blanks outputted, presumably to the next column (Column B).

Array A:

Joe

Stan
Bill
Bob

Jill

Jack
Judy

View 3 Replies View Related

Deleting Certain Text From Array?

Dec 14, 2011

I have an array where every cell's text starts with "Sum of" then the rest on the information. Each cell's text is different except for the "Sum of". There are thousands of cells. Is there a way to select them all and edit out the "Sum of" part only and leave what is left?

View 3 Replies View Related

VBA Deleting Sheets Between Start And End Sheets?

Mar 4, 2014

I'm trying to get a macro to work that will delete a number of worksheets that are located in between a sheet called 'start' and one called 'end'

I have got this code - which deletes both 'start' & 'end' too, i've been struggling to get it to work so it doesn't

Code:
Sub Macro_delete_worksheets()
Dim i As Long
Application.DisplayAlerts = False

[Code]...

View 7 Replies View Related

Fill Array From Range Selecting All Rows And Some Columns

Jul 21, 2014

I want to fill an array from values in range A1:H10. I want to fill the array with all rows in range and only columns B,C and E. I have the code below so far using index function.

Is there a more direct way to select all rows from desired range to avoid the need to create an array of rows from 1 to LastRow and then use Application.Transpose(RowsArr) (in red) inside Index()?

View 3 Replies View Related

Selecting Hidden Sheets

Sep 2, 2009

I have the following code which works fine when all of the sheets are not hidden:

View 3 Replies View Related

Selecting Sheets Without Naming

Apr 22, 2008

If I opened a new workbook so i had sheet1 sheet2 sheet3... Starting at sheet1, how could i move on to sheet2 using VBA without actually naming it....

Is there a selectsheet.next or something?

View 9 Replies View Related

Selecting Sheets Confirmation

Jun 25, 2008

I would like to use the below macro with other sheets in my workbook, how do i change the line "With Activesheet" to incorporate this? Lets say my other sheets are titled as: main, report, sheet3, sheet 4?

Sub Blanks()
Dim lastrow As Long, i As Long
Application.ScreenUpdating = False
Application.Calculation = xlManual
With ActiveSheet
lastrow = .Cells(Rows.Count, 3).End(xlUp).Row
For i = lastrow To 1 Step -1
If .Range("A" & i).Value = "" Then .Rows(i).Delete
Next i
End With
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub

View 9 Replies View Related

Selecting The Same Cell Across Multiple Sheets?

Feb 10, 2014

I'm after a bit of programming which selects the same cell on the next sheet that I have already selected.

So, If I'm on Sheet1 and I have G5 selected, when I change Sheets to Sheet3 for example, I want it to select G5 on Sheet3.

View 9 Replies View Related

Code For Selecting Sheets From Combo Box

Aug 25, 2008

Use a drop down menu (Combo box for example) to look at all the sheet names (these will be names of people, sheets added all the time) be able to select a name which when selected takes me to that sheet. So the amount of sheets will increase so everything will need to be dynamic.

I dont want to see all the list behind the drop down so that why i was thinking of a combo box.

View 8 Replies View Related

Smoothing Transition Using VBA With Selecting Sheets

Nov 12, 2009

I have created a macro that goes from my main sheet to the data sheet and changes all the pivot tables to match. One thing I hate about it is that it is not very fluid. It jumps from the first page to the second (due to the sheets("data") function. Is there a way to make it change the pivot tables on the second sheet without actually have to have the macro select the second sheet?

View 4 Replies View Related

Deleting Sheets If It's Name

Jul 9, 2008

Checks if there is a sheet name and if there is a sheet of that name then it is deleted.

the sheet name is a number entered through an inputbox and "Average"

View 10 Replies View Related

Deleting All Other Sheets

Dec 8, 2009

In writing Macros with Excel 2003, is there a way to have all other worksheets deleted except the present one, other than listing every other sheet?

View 9 Replies View Related

Deleting All But Specified Sheets

Jan 19, 2007

i have a procedure that imports data & splits it by staff name, creating a separate sheet for each person

i wanted to ensure if the code was run twice it wouldn't throw up errors trying to name sheets with names already used, so used the following code to delete all sheets apart from the 2 sheets containing my base data (sheet names for these are IDs and base data)

Sub ClearUpSheets()

Dim ws As Worksheet

Application.DisplayAlerts = False

For Each ws In Worksheets
If ws.Name <> "control sheet" Or ws.Name <> "IDs" Then ws.Delete
Next ws

Application.DisplayAlerts = True
End Sub

unfortunately, apart from a chart sheet (which i actually want deleted) this code deletes all sheets including the 2 i don't want deleted

View 3 Replies View Related

Selecting Specific Sheets For Copy Into New Workbook?

Sep 13, 2013

I have x number of sheets in a workbook, and I am looking to copy sheets a, b and c into a new workbook that I will create.

The a, b and c are in no order, or consecutive (although they could be). I want to be able to count the number of sheets in the workbook, and traverse through that to find sheets that I need, and select them to copy over to a new workbook.

View 1 Replies View Related

Deleting Select Sheets

Aug 22, 2007

I have a File with many sheets (40 - 60) and I'm trying to eliminate the sheets I don't want. The names of the sheets are all random, but in common they have a three letter code for a country.

The following is the code that I have -

Sub Deletesheets()
Dim x As Integer
Application.ScreenUpdating = 0
On Error Resume Next
For x = 1 To Sheets.Count
Sheets(x).Select

I'm hoping to save any sheet that has either CAN or USA the name and delete the rest.

Besides being inefficient, my code errors out because I've got my IF's and ELSE in the wrong place, but I can finagle it to work.

View 9 Replies View Related

Deleting All Chart Sheets Only

Jun 30, 2006

Iím would like to delete some sheets in my workbook using a macro. The problem is that
I wonít know in advance the name of these sheets.

I was thinking using a code like the following one to delete the sheets but the problem is that Excel expect a sheet name at this part of the code since it is expecting the sheet name.

Sub Delete_Active_Diagram()
Application.DisplayAlerts = False
Dim i As Integer
Dim strSheetName As String
Dim blnFound As Boolean

strSheetName = "Average Sales Per Week" & "" & Sheets(i + 1).Range("C3")
i = Sheets.Count

For j = 1 To i
If Sheets(j).Name = strSheetName Then

blnFound = True
Exit For
End If
Next
If blnFound = False Then Exit Sub
If blnFound = True Then strSheetName.Delete
End Sub

Is there a way to cope this problem, or should i think about another way to do it. Like selecting each sheet I would like to delete and then delete the selected sheets.

By the way. All the sheets I try to delete a Charts Sheets. Maybe there is a way to delete all the charts in my workbook.

View 5 Replies View Related

Selecting A Single Sheet From A Volume Of Sheets In A Workbook

Jun 30, 2006

I have 30 and above sheets in a work book and like that I am having 5 such
books. The sheets are named as 201, 202, 203 ....etc as per the contents in
that particular sheets. (201, 202 .....are the P.O nos.). all the work
sheets are of having similar format of datas.

Now what I need is if I want to look the details of one single sheet (say
324) I have go all the sheets one by one and it is hard to find out.

If any body give me a solution so that if I type a particular no. (forms
part of the name of the sheet) that sheet should appear for me.

View 12 Replies View Related







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