Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    Excel


Advertisements:










VBA Code To SUM Range On Specified Worksheets


I want to try and do is as follows:

- go through all the worksheets in the workbook
- if the sheets begin with A, C or P
- and if monthly index = 0
- sum the range of cells - B33:L51
- output the value into cell L52
- etc

So far this is what I got

For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 1) = "A" Or Left(Sheets(i).Name, 1) = "C" Or Left(Sheets(i).Name, 1) = "P" Then

If (MonIndex = 0) Then
SUM(B33:L51)
ElseIf (Index = 2) Then
SUM(B34:L51)
ElseIf (Index = 3) Then
SUM(B35:L51)
End If

My questions really are - how do u write the code for it to generically know to sum the range B33-L51 for like all sheets required. - and is it possible to output that value to a specific cell in each sheet?


View Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
Code For If Statement Between 2 Worksheets.
On Sheet1 I have a macro link. On the Setup sheet, in cell C14, I have the name I want to display in the link on Sheet1. The wording is changeable in the Setup sheet. This all works fine.

Now, I want to modify it. I want an if statement at the beginning of the macro that says. If Setup, cell c14 is blank, I simply want the macro to stop and do nothing. If Setup sheet, cell c14 is not blank, I want the macro to continue as normal.

View Replies!   View Related
Run Code On Worksheets With Certain Tab Names
My Thread title should have read covert code TO run on all worksheets with same word in Name. I have had a look at some other pieces of code in this forum but they are quite the same as I want to do....I have tried a few things but each time I get an error ...so for sure I am not modifying the code quite right, I ahve been missing something for what I now want it to do. So I wonder if someone could Please review these two pieces of code...they of course are both for running on just one worksheet in a wookbook.

I would like them both be able to run, still as tow separete pieces of code as they are, on all and only worksheets that have in their worksheet name a key word in this case the word "Region" and that those worksheets all in a single workbook but the workbook does have other worksheets in it I dont want the code to run one on - but those worksheets do not have in their worksheet name the word "Region".

Sub test()
Dim r As Range, txt As String, ws1 As Worksheet, i As Long
Set ws1 = Sheets(1)
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For i = 16 To 21
Again:
For Each r In ws1.Range(ws1.Cells(6, i), ws1.Cells(Rows.Count, i).End(xlUp))
If r.Value <> "" Then
If Not .exists(r.Value) Then
.Add r.Value, Nothing
Else
txt = txt & "," & r.Address(0, 0)
If Len(txt) > 245 Then
ws1.Range(Mid$(txt, 2)).EntireRow.Delete
txt = "": .RemoveAll: Goto Again
End If .............

View Replies!   View Related
Function To A Range Of Cells Over A Range Of Worksheets
I have a workbook with several worksheets in the same format. I would like to have a function to output the sheets that have rows in which collumn A = X AND collumn B = Y.

I've been working on this one for a couple days now and I'm not making much progress.

View Replies!   View Related
Apply Code To All Worksheets In Workbook
I recorded a macro in an Excel Workbook which contains 65 worksheets (--this is something received on a quarterly basis for which I have no control). The macro is successful within the workbook created however, a new quarter's data may or maynot have some of the referenced worksheets. 64.9 Waiv - 1 may exists and the others (2, 3, 4, etc) not. The macro fails and prompts for Debug if a worksheet does not exist.

Sheets("64.9 Waiv - 1").Select
Sheets("64.9 Waiv - 2").Select
Sheets("64.9 Waiv - 3").Select
Sheets("64.9 Waiv - 4").Select
Sheets("64.9 Waiv - 5").Select
Sheets("64.9 Waiv - 6").Select
Sheets("64.9 Waiv - 7").Select
Sheets("64.9 Waiv - 8").Select
Sheets("64.9 Waiv - 9").Select
Sheets("64.9 Waiv - 10").Select

Is it possible to alter the macro to look for and only invoke the code if a worksheet past 1 were to exist?

This is what I am requesting the macro do:

Sheets("64.9 Waiv - 1").Select
Range("B9").Select
ActiveWindow.FreezePanes = True
ActiveWindow.SmallScroll ToRight:=5
Range("J8").Select ...............


View Replies!   View Related
Modify Code To Create Worksheets
I have this code that will create 3 worksheets with the name "New Name" and the # ( 1/2/3 ) ..

How would I change the code if I want 3 worksheets with different name?
Like Sheet1 then Sheet 2 then Sheet3 or any other name?

'To add worksheets and change name with one code
For i = 1 To 3 'Creates 3 worksheets
Set ws = Worksheets.Add
ws.Name = "New Name" & i
Next i

View Replies!   View Related
Code To Sort All The Worksheets In A Workbook
code to sort all the worksheets in a workbook...

View Replies!   View Related
Creating Worksheets And Copying Code
My macro does some calculations for a worksheet. I need the macro to loop through all the worksheets regardless of how many worksheets there are. My first sheet is a summary page with the names of the subsequent sheets that the macro needs to do calculation on. I need the macro to recognize the worksheet names in the summary page and run for each worksheet name. For instance the next time I run the macro I may have fewer sheets of more sheet names in the column. It sounds almost like an Indirect function problem.

View Replies!   View Related
Running Code On Specific Worksheets
Let's say I have 6 Worksheets in my Workbook with the following names:

Sheeta1
Sheeta2
Sheeta3
Sheetb1
Sheetb2
Sheetb3

And I have three Subs that I want to run, one Sub for two specific Worksheets.

How could I code my Subs so that the first Sub runs on Sheeta1 and Sheetb1, the second Sub runs on Sheeta2 and Sheetb2, and the last Sub runs on Sheeta3 and Sheetb3?

As you can see, the 1, 2 and 3 in the Worksheet names are what links the Subs to the Worksheet.

View Replies!   View Related
VBA CODE On Pasting On Last Row Of Data For Various Worksheets
I have got a workbook with 20 or more worksheets. Every quarter I need to paste/append new data on these worksheets (which has already got existing data from previous quarters). All worksheets have different rows of data, for eg One worksheet may have 10rows, the other may have 50. Hence when I am writing my code, I cannot specify the destination cell as for eg A11, or A51.

How do I write up a VBA code that looks for the last row of data on these various worksheets and then pastes the new information on the next row(new row).

View Replies!   View Related
Code To Find Duplicates In Worksheets And Loop
I am trying to write a macro that will find duplicate listings in two worksheets by row. I don't really want to do a user form unless I have to.

View Replies!   View Related
VBA Code- To Pull All The Names Of The Worksheets In A Workbook
I just started playing with creating my own macros. I've written a macro to pull all the names of the worksheets in a workbook, now what I want to do is write a piece of code that will pull data from a cell in those worksheets.

So for instance I have all my worksheet names in cell A1 to A10, I want to pull the data from cell E1 from every worksheet in A1 to A10. Can someone help me with a sample code to work with. I'm still reading Power Progamming haven't gotten so far yet.

View Replies!   View Related
VBA Code To Unmerge Cells On Specific Worksheets
I have a workbook with multiple worksheets. On some of those worksheets a have merged cells, so in order to paste new data I need to unmerge them first. Below is the code that I wrote for it. However it doesn’t work and returns “Run-time error '1004': Application-defined or object-defined error”. I looked at this post List Maximum Value From Each Worksheet and tried adding With – End With, but it failed too. As far as I understood the problem is that the Worksheets/Sheets object does not support UnMerge property, but I may be wrong. If I add ws.Activate line (test2) everything works fine.

However I was wondering if there is a way to do it WITHOUT activating the worksheets.

Sub test1()
Dim i As Integer, ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
Select Case ws.Name
Case "5 - Top Network Facilities", _
"5b - Top Arb Facilities"
For i = 0 To 9
ws.Range(Cells(2 + i * 5, 1), _
Cells(6 + i * 5, 1)).UnMerge
Next i
Case Else
End Select
Next ws
End Sub

View Replies!   View Related
Using Command Buttons To Change Vba Code On Worksheets
I am trying to create a program to automate the gauging figures on oil barges, currently everything is done by hand and takes approximately 20 minutes to complete. I have the charts entered for the tanks already and have the code set so that when you click on a tank "gauge" it will enter the "volume" which corresponds to that gauge on a totals sheet. Here is where my problem is coming in

The barges are gauged at four points
"before loading"
"after loading"
"before discharge"
"after discharge"

I want to set a worksheet as the default page with four command buttons that let the user select which operation he wants to perform. before load figures. after load figures and depending on which operation they select have it enter the volumes in the appropriate cells on the totals sheet. So if someone selects "loadopen" command button I want the following code to run on my worksheets............................


View Replies!   View Related
Macro- Filters Data And Copies To Worksheets Specified In Code
the following code filters data and copies to worksheets specified in code, can this code be shortened to make the macro run faster. Also in my second criteria how can I put "Contains "PT2" in the criteria as nothing happens when i run the macro, is *PT2?


With shtRec
.AutoFilterMode = False
.Range("A7").AutoFilter Field:=8, Criteria1:="LEHMAN", Operator:=xlAnd
With .AutoFilter.Range
On Error Resume Next
Set rng = .Resize(.Rows.Count - 1).Offset(1).SpecialCells(12)
On Error GoTo 0
End With
If rng Is Nothing Then
MsgBox "No data to copy"
Else
rng.Copy shtLehman.Range("A6")
End If
.AutoFilterMode = False
End With

View Replies!   View Related
VBA - Code- Send Worksheets Named In Col B To Email Addresses In Col A
I have a code that i got from here which will send the Workbooks named in col A to email addresses in col B, as below..

but i need it to send the named Worksheets from the currently active Workbook.

The name of the Worksheet will be contained in col A.

Sub SendWkbs()
Application.ScreenUpdating = False
Dim wks As Worksheet
Dim iRowA As Integer, iRowB As Integer
Set wks = ActiveSheet
iRowA = 2
On Error GoTo EH
Do Until IsEmpty(wks.Cells(iRowA, 1))
iRowB = 2

View Replies!   View Related
Macro Code Executes Very Slowly: Filling Some Cells On Different Worksheets
I have the following code attached to a userform. It works perfectly (for what I need) although I know it may not be perfectly written. However it does seem to take for ever to execute considering it's just filling some cells on different worksheets. Have I missed something out or got it tied up doing something that takes a long time. If it's just a fact of life that it takes this time then I can live with it.

Private Sub UserForm_Activate()
Dim wsCB As Worksheet, wsLL As Worksheet, wsBond As Worksheet
Dim rngFound As Range
Set wsCB = Sheets("Current Bonds")
Set wsLL = Sheets("Landlords")
Set wsBond = Sheets("Bond")
TenancyStartTxt = Format(TenancyStartTxt, "dd-mmm-yy")
RnwlDteTx = Format(RnwlDteTx, "dd-mmm-yy")
Application. ScreenUpdating = False
10 MyBond = Application.InputBox("Bond number for renewal?", "Bond Number")
strFindMe = MyBond
With wsCB
Set rngData = .Range("c13:c490").......................

View Replies!   View Related
Deleting Multiple Worksheets Which Ends With The Word Data Through Vba Code
I have many worksheets which ends with the word " data". Is there a way to delete all the data sheets at one go through VBA code.

View Replies!   View Related
Autofill In Macro Range Is Constant How Can I Code To Be A Variable Range?
I am trying to write a macro which will autofill specific columns. The macro will set the range from the start of my autofill to the end of my autofill as a constant range.

The problem I need to get around is the end of my range can always change each time I run the macro. For instance, the first time I run the macro I may only need to autofill from row 4 to row 15. The next time, I may only need to autofill from row 4 to 23 (because of user updates). How can I make the end of my range not be a constant address but variable?

View Replies!   View Related
Copy Range From Different Worksheets
I have a workbook with 58 worksheets in it... each worksheets is name T01, T02....T58, I need to copy a range from different worksheets...

I don't need all the worksheets in Master.xls I only need some of the worksheets...

for example .....

View Replies!   View Related
Clear Range From All Worksheets
I have a macro to clear all contents for a sheet in a workbook. The problem is that every file has over 20 sheets of data. Is there a way I can code a for statement to clear all sheets in this one workbook? Is it possible to make a for statement for multiple workbooks with several sheets?


Range("A11:Z11").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.ClearComments

View Replies!   View Related
Subscript Out Of Range :: Both Worksheets
I have this code below that keeps giving me a subscript out of range error and I don't know why I got it to run once but can't figure out the problem now...

View Replies!   View Related
Global Range Name For All Worksheets
I have a holiday chart which has a summary at the end which counts holidays and sickness etc. It is in a workbook with a worksheet for each month, how can I define a range name that i can use with all worksheets, at the moment I am having to define new range names for all of the sheets and this is taking some time?

When I am in the new worksheet I can click on the range names in the top left but when i select one it takes me to the worksheet where the range is.

View Replies!   View Related
VBA - Select Same Range On All Worksheets
how to select the same range of cells on all worksheets via VBA?

I tried google several times but could not find anything that helps. I need to select a range of cells on all worksheets and then clear their content. However, google only tells me to select all sheets manually, which is not good since new ones are added every now and then.

Is there maybe a possiblity to select a range on all un-selected sheets?

View Replies!   View Related
Zoom Worksheets To Fit Used Range
to apply a zoom to Fit Selection on all worksheets upon file opening? I've read many posts on this and understand how to apply this via worksheet activation, but haven't discovered how to make this to happen to all worksheets when the file is opened.

Zooming the selection needs to happen in the workbook module due to additional sheets being added at random and because it will facilitate the flow of the meeting so that we don't have to wait for the user to select and zoom.

Private Sub Workbook_Open()

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets

LCol = Cells. Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column
Range(Cells(1, 1), Cells(1, LCol)).EntireColumn.Select

' Need code help here to apply to all worksheets
ActiveWindow.Zoom = True ' this works for the worksheet activation event only

Next ws

End Sub

View Replies!   View Related
Copy Range & Paste To Other Worksheets
I want to copy from a MasterSheet and paste into multiple sheets that are already there with out creating new ones.

I need the code to miss the first 5 sheets and then paste to the rest.

I have found this code but not sure how to change it to meet my needs

Sub test()
Dim ws As Worksheet
Dim i As Integer
Set ws = ThisWorkbook.Worksheets("sheet1")
Application.Calculation = xlCalculationManual
Application. ScreenUpdating = False
For i = 1 To 31
Debug.Print i
ws.Copy Sheet1
Next i

End Sub


View Replies!   View Related
Sort Set Range Across Multiple Worksheets
I would like to use a macro to sort multiple worksheets simultaneously. I need to sort on last name (column A) then first name (column B) and my data does not start until the 8th row (A8:AF8). The data range should be the same for all worksheets that I need to sort. I found the code below here on ozgrid (Dynamic Sort Across Multiple Sheets) but I'm not sure if its appropriate or the best way to customize it so that the 1. Can sort on two criteria

2. Is specified to nonblank cells in a specific range, A8:AF8 and below

Sub DynaSort()
Dim wsSheet As Worksheet

For Each wsSheet In Worksheets
Select Case wsSheet.CodeName
Case "Sheet1", "Sheet2", "Sheet3", "Sheet4"
With wsSheet
.UsedRange.Sort Key1:=. Range("B14"), Order1:=xlAscending, Header:=xlYes
End With
Case Else
'Nothing
End Select
Next wsSheet
End Sub

View Replies!   View Related
Printing Certain Rows In A Range From Several Worksheets
I have a workbook containing several sheets. New worksheets may be added. From each sheet, I would like to print the first row in range (AB1:AE200) along with any rows below the first that contains the value “Red” in column AB. From what I have been reading, it would seem that a temporary worksheet would be the answer using a copy/paste.

As each sheet would likely contain only three or four rows to then print, is there a way then to get all the data onto a single page, thereby preventing the need to print a single page for each sheet?

View Replies!   View Related
How To Delete Worksheets ( Based On A Name In Range)
I have a "Temp Sheet" with a range in Column A:

ColumnA
Invoice #
S9700441

it will always be at least one but could be well over 100.
I have a code that creates a new tab for each invoice #.

But now I need a code to delete them.

Is there a way to delete worksheets based on a range?

View Replies!   View Related
Loop Through Worksheets Listed In Range
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
Next
End Sub

OR

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

View Replies!   View Related
Copy Range In Worksheets Paste To Master
I am working with a workbook that i have created. The workbook has around thirty worksheets all with the starting nave of "DIV". I have a code that will loop throught the wrok book and copy the used range and insert them into a master. However what i need is a code that will loop through the wroksheets and only copy the used range only in columns A:P and starting in row 10 (i have headers from row 1-10). I have columns beyond "P" that has working information for that worksheet and do not want to copy it over to the master.

View Replies!   View Related
Split Large Range Into Separate Worksheets
The following code takes a large range of data (currently 20K+ rows) and breaks it out into separate worksheets. This takes a while, and I have been trying to insert a progress bar into this macro, but the progress bar goes in reverse (from 100 to 0) but the userform will not unload at the end.

Sub MoveCells()
Dim objBook As Workbook
Dim objSheet As Worksheet
Dim lngRowSpace As Long
Dim strName As String
Dim lngTimeRow As Long
Dim lngStartRow As Long
Dim lngInteration As Long
Dim strDataSheet As String
Dim boolError As Boolean
Dim counter As Integer
Dim PctDone As Single

View Replies!   View Related
Copy Range & Paste To Multiple Worksheets
I am using following code to copy a range from one worksheet to multiple worksheet.

I used both the option to paste the copied content i.e. ActiveSheet.Paste and Selection.PasteSpecial Paste. However in both cases getting error message 'Paste Method Of WorkSheet Class Failed'.

find any error here

Sub CopyList()
Application.CutCopyMode = True
Counter = Sheets.Count

For i = 3 To Counter
Sheets("Summary").Select

View Replies!   View Related
Convert Selected Range On All Worksheets To Values
I have a macro that changes user selection from formulas to values:

Dim vCol As Variant

vCol = Application.InputBox("Select Column", Type:=2)
If vCol = False Or vCol = "" Then Exit Sub
Set UserRange = Range(vCol & "9:" & vCol & "35")
UserRange.Value = UserRange.Value

End Sub

I have several workbooks that use this macro, and the workbooks can include several sheets.

Is there's an easy way to change the macro so the user selection is changed in all sheets in the workbook. E.g. if the user selection is column H, the formula is changed to values in all sheets in the workbook.

View Replies!   View Related
Copy Same Range From Multiple Worksheets Onto Summary Sheet
I have searched for my answer but because I am new to all this I am stuggling to manipulate some of the other code that is close to what I am after..

I am trying to find a quick way of summarising data from multiple detail sheets onto a summary sheet (all within the same workbook) with the number of worksheets varying (ie: I may add or delete worksheets).

I basically want a concise summary of the other detailed sheets.

My Workbook is setup as follows:

Multiple sheets detailing each individual trade (with a summary at the bottom with the basic info I need on the summary sheet).

A summary sheet totalling the profit/ loss from all trades, costs of all trades etc (I am ok with this).

A summary sheet summarising all trades - ie each of the summaries contained on the individual trade sheets consolidated onto one sheet for quick reference:

Trade #TradePositionProfit LossHold Time
1JBHLong300030
2JBHLong250020
3JBHLong200010
1WOWShort050012
1HVNLong800015
1CLXShort500045
2CLXShort250030
3CLXShort150010

What I am struggling to get onto the summary sheet is all the individual summaries on the detail sheets. The reason for this is that each trade can have up to 3 positions: the Initial trade, Pyramid 1 & Pyramid 2. (This range is in the same location of each sheet but could be 1, 2 or 3 lines) and the number of trades I enter during the month can vary (ie the worksheet number can vary).

I don’t want to have to manually update a range, of a consolidation for example, each time I add a new trade (new worksheet) & want to view a summary.

I thought it would be easier to summaries each trade at the bottom of each trade sheet so I can pick the information up from the same spot already in the format I want it in for the summary page.

Does anyone have any suggestions on how I can get the summary to search each sheet, no matter if there is 1 trade or 50 trades & pull the summary information which is located in the same spot onto the one sheet for a quick view?

View Replies!   View Related
Copy Same Range From Worksheets & Paste/Append To Master
I want to take values from several worksheets within one workbook and put them into a list ie.. a workbook with 200 worksheets each one a different invoice. Each invoice has an invoice number, po number, supplier, and total. I want to create a worksheet that will list the above information from each worksheet.

View Replies!   View Related
Check For Values In Range & Compare 2 Cells On Different Worksheets
In Worksheet 1, Cell B63 I would like to create a drop down menu, with two options for the user to select - 0.05 and 0.01. I would like each selection to then control the formula in the cells C63:L63, for example;

Where 0.05 selected it computes for cell C63:

=IF( COUNTA(C4:C54)=0,"",IF('WORKSHEET4'!N55>'WORKSHEET4'!L55,"YES","NO")

then cell D63

=IF(COUNTA(C4:C54)=0,"",IF('WORKSHEET4'!AC55>'WORKSHEET4'!AA55,"YES","NO")

and so on

Then if 0.01 selected it would compute for Cell C63

=IF(COUNTA(C4:C54)=0,"",IF('WORKSHEET4'!N55>'WORKSHEET4'!K55,"YES","NO")

then cell D63

=IF(COUNTA(C4:C54)=0,"",IF('WORKSHEET4'!AC55>'WORKSHEET4'!Z55,"YES","NO")

View Replies!   View Related
Copy Same Range From Multiple Worksheets To Summary Sheet
I have an excel workbook containing 123 worksheets. Sheet1 I have titled "Summary" and I wish to copy data from the remaining sheets (2-123) into it. Each sheet is formatted in the same way, and I wish to take the data in cells E66:G130 from each worksheet and paste it into the Summary sheet (so, Sheet2's 3 columns would be pasted in cell A1, Sheet3's in D1, and so on).

I gave a couple of codes a go (this one is from a thread "Copy Data From Multiple Worksheets & Append To Single Worksheet", I tried to alter accordingly):

Sub SummurizeSheets()
Dim ws As Worksheet

Application. Screenupdating = False
Sheets("Summary").Activate

For Each ws In Worksheets
If ws. Name <> "Summary" Then
ws.Range("E66:G130").Copy
ActiveSheet.Paste Range("A65536").End(xlUp).Offset(1, 0)
End If
Next ws
End Sub

However, I don't understand what "ActiveSheet.Paste Range("A65536").End(xlUp).Offset(1, 0)" refers to - I am told there is an error with this line ("compile error expected =").

I also tried the Consolidate function, but had problems as well.

View Replies!   View Related
Code That Copies A Range Opens Notepad Pastes The Range Opens Save Dialog And Types The File Name
I currently have the following code that copies a range opens notepad pastes the range opens save dialog and types the file name. The problem I have is with overwriting the existing file.

Range("A1:A202").Select
Selection.Copy
Shell "notepad.exe", vbNormalFocus
SendKeys "^V"
SendKeys "^s"
SendKeys "Total_IEDs_Hour_Of_Day_2009.xml"
SendKeys "{TAB}"
SendKeys "a"
SendKeys "{ENTER}"

Everything works fine to this point. Then it opens the do you want to overwrite dialog and I cant get it to hit yes.

View Replies!   View Related
Macro Referencing Named Range In Worksheets Private Module
I'm having trouble calling a defined range within a VLOOKUP function in VBA. If the named range is located on the same sheet within which you are running the macro, everything runs fine and all is well in the world.

However, after I relocated the range to a separate sheet (a 'SourceData' sheet to tidy up the user interface sheet), I was getting the following error message:

Method 'Range' of object '_Worksheet' failed

The name is correctly defined - Range("DaysInYear").Select still picks up the correct selection - it's just the VLOOKUP will no longer function correctly.

Here is part of the macro's
For I = 1 To NumberOfDays
Range("A1").Value = DateAdd("d", -(I - 1), EndDate)
If Application.VLookup(Range("A1"), Range("DaysInYear"), 3, False) = 1 Then
If Application.VLookup(Range("A1"), Range("DaysInYear"), 4, False) = 0 Then
ActualNumber = ActualNumber + 1
End If
End If
Next I


View Replies!   View Related
Macro To Copy Shapes From Same Range From Multiple Worksheets To One Worksheet
I have one master worksheet named "Season" and 30 other worksheets named "1,2,3,4 and so on to 30". I ideally want to copy the shapes (msoShapeOval) from the worksheets- "1-30" to worksheet- "Season". When the shapes (msoShapeOval) are copied from worksheets "1-30"

I want them to keep thier position that they were in when copied to worksheet- "Season".

The shapes (msoShapeOval) are in range "A1:AZ43" in worksheets "1-30" and would be placed in worksheet "Season" range "A1:AZ43"

View Replies!   View Related
Create Individual Worksheets For Each Related Group Of Table Range
I have a huge worksheet containing Blackberries expenses of my company divided by multiple sections. Each section follows the following pattern: Example:

Client 222-5555 MY COMPANY NAME LCC
International Calls
- Call to Bahamas on June - $50,00
Local Calls
- Call to NY on June - $ 30,00
Total Price - 80,00

I would like to select each row between client and total price and paste then on multiple sheets in order to create individual invoices. The selection must be based on the client number (for instance 222-5555) that is part of the cell value.

View Replies!   View Related
Set Range For This Vba Code
Sub ReplaceUnderScores()
Selection.Replace What:="_", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

I want it to do this for range AL2 through AL2000. Ive tried a few codes trying to get it to work, but cant figure it out.

View Replies!   View Related
End Of Range/Data Code
I have been searching for an answer on this but unfortunately to no avail. I think it is xlEnd or down?

I am using the following

View Replies!   View Related
Setting VBA Code Range
When I'm using the Macro recorder or even after I've completed a sequence is there a way to change the range so it code always covers the complete range of the data?

View Replies!   View Related
VBA Code To Copy Range IF
I have recorded the following Macro...

Sub CopyTest1()
Range("B5:E40").Select
Selection.Copy
Sheets("List2").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

View Replies!   View Related
Delete Row Code And Set Range
See attached workbook. If you hit the Export button (runs Export Macro), it creates a new workbook. Most of what I have in the code works fine except the following bit:

View Replies!   View Related
Code For Copying A Range
how to make such code by VBA. but i'm desperate to have it.

I need a code to copy a two different ranges from two sheets and paste them below the original ranges in each sheet "a range a sheet". And then if a clicked again the same ranges should be pasted after and so on so forth.

View Replies!   View Related
Sum Range In Macro Code
I am writing some code to help speed up data input into Excel. I take the info from the user through a form. Before pasting the data into a spreadsheet, I need to check that there is no data there already.

How can I check that the sum of range of cells in excel, as specified by the user in the form, is Zero?

I want to do this in the code rather than enter another cell in excel and sum it there

View Replies!   View Related
Selecting A Range Using VBA Code
I have attached a spreadsheet...I'm trying to select Range A1:N16 using VBA code...

Range(activecell,activecell.end(xltoright)).select
Range(selection,selection.end(xldown)).select

When I use this code is only gets A1:N6...: is there anyway to get it to select the range all the way to the end of the data. I tried CurrentRegion and some other stuff but can't get it to work.: The range may go upto line 500 or 3 I just never know.

View Replies!   View Related
VBA Code To Transpose Every X Range
I'm trying to transpose 5 cells vertically into 5 cells horizontally, then do the next 5 verticals under the 5 horizontals. See attached spreadsheet for Column A (original data) and horizontal data (result). VBA code would be most useful, and original data could potentially be 600 cells long.

View Replies!   View Related
Copyright © 2005-08 www.BigResource.com, All rights reserved