Looping Macro Based On Range On Cells On Worksheet
Mar 8, 2007
Sub New_Book()
Sheets("2006-07").Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("2006-07").Activate
Range("A1").Select
Sheets("2006-07").Select
Range("b3").Select
ActiveCell.FormulaR1C1 = "=R[-2]"
Dim ThisFile As String
Const MyDir As String = "C:"
With ThisWorkbook
ThisFile = .Worksheets("2006-07").Range("b3").Value
. SaveAs Filename:=MyDir & ThisFile
End With
ActiveWorkbook.Save
End Sub
The above VBA works by saving a copy of existing Workbook by refering to cell A1 and then Pasting Special worksheet 2006-07 which has external links. Is it possible to create a looping macro that refers worksheet("BUs") which list all business units I need to run and save? Range(A1) needs have a looping macro that refers worksheet BUs and then automatically saves files without manually changing cell references.
View 6 Replies
ADVERTISEMENT
Jan 13, 2010
I had create a few macro with the macro name the same as the worksheet name.
How can i create another macro to loop through all the worksheet and if there is any data in Cell A1, it will call the corresponding macro. If there is no data, it will go onto another worksheet.
View 9 Replies
View Related
Jan 19, 2007
This macro works when there are only a small number of worksheets in a workbook. But as soon as it increases to say 20 or above worksheets, the macro keeps looping without coming to the end of the last worksheet.
Sub LDK_Print_Orientation_New()
Dim intOr As Integer
Dim wkscount As Integer
wkscount = ActiveWorkbook.Worksheets.Count
For x = 1 To wkscount
Worksheets(x).Select
Application. ScreenUpdating = False 'Switches off screen updating and calculations
x = MsgBox("Print in Portrait", vbYesNo, "Printing Choice")............
View 9 Replies
View Related
Feb 10, 2008
What i want to do is based on values in a worksheet row to fill the corresponding columns with black color on another worksheet. E.g i have the first row filled with 1,3,5,6,8 then i want the second worksheet on the first row to have filled with black color the 1st,3rd,5th,6th,8th columns and nothing on the others. The same goes for the entire sheet.
View 2 Replies
View Related
Feb 23, 2014
I have a range of cells in F2:F30000 that I want to round to the nearest whole number.
How can I do that to the entire range of cells without looping? Every search I perform on the topic has a loop of some kind as a solution and my data set could be over 100k rows and speed is already a concern with the workbook.
View 2 Replies
View Related
Apr 17, 2008
"copy cell range based on conditions" and it didnt really get an answer. There was one that copied the info the next blank cell on that line, but im not smart enough yet to figure out how to copy it over. ( getting there though with lots of staring at code).
2 sheets. I have already created auto modules to fill in data and code,and sorted the columns so they are in line.
Sheet 1. Info : has 9 columns. So if column = 9 and the value = new.
Then i want to copy the range on the columns (A:G) and then paste it on the other sheet ( Card info) as long as Column A is empty ( as in next available blank cell) ( something like a DO while worksheet("Card info").column(A) <> ""
View 9 Replies
View Related
Feb 16, 2010
i m looping through each cell in the range A5:G11 and deleting the last part, "',[ABSMacro.xlsm]Region Breakdown'!$S$1:$S$64999" of the formula in each cell.
View 2 Replies
View Related
Nov 6, 2009
I have about 20 different workbooks and i want to create identical tables and graphs in each one of them using the least number of steps.
The number of the rows changes by workbook but the colums are identical. So the range will vary by workbook.
so for example:
workbook1=
name sales
a 10
b 20
c 30
workbook2=
name sales
a 10
So I want a macro that does the tabling and charting in workbook1 and automatically moves to workbook2 and so on.
View 9 Replies
View Related
Mar 16, 2007
1st - Need a macro to change a range of cells colours based on a single cell having a value greater than 0.001. ie. cells A1 - G1 need to change to grey based on cell F1 having a value greater than 0.001 entered in it?
2nd - Also a macro for deleting the text contents of cell C1 based on cell F1 having a value greater than 0.001. Therefor if cell F1 has a number greater than 0.001 it changes the colour of celss A1 - G1 and also deletes the text in cell C1?
View 2 Replies
View Related
Jul 15, 2014
I've recorded a Marco copying and pasting information from one cell to other cells and some of the copying functions paste to two cells. I just need this to loop through all information I'm copying from the the new cells.
Range("I1").Select
Selection.Copy
Range("D1").Select
ActiveSheet.Paste
Range("J1").Select
[Code]...
View 7 Replies
View Related
Dec 2, 2013
I am using Windows 7 and Excel 2010.
Is there a way to create a macro to color code a cell based on the value in a cell, and then look up a value in a table, then color code it based on where it fits into the table?
I have a table of values for about 30 projects. In column g - there is a CPI value (see bold column)
Example: Project ID
Name
Program
PMT
SI ID
AC
Milestone
TCP Level
[Code] ......
Here is the table:
I have to color code a cell, base on the CPI and how it fits into the table below. So if the current Milestone is M2 or M3 and the CPI calculated is .14 the cell would be colored RED, if the CPI number is 2.01 for M2-M3 I would want cell to be colored Turquiose. If we were at Milestone M6 and the CPI was 2.01, it would be colored blue. If the CPI was .75 at Milestone M5, it would be colored Green
LEGEND
Earned Value Limits
Milestone
RED
Yellow
Green
Turquoise
Blue
M2-M3
2.15
M4-M6
1.66
M7-M11
1.26
View 2 Replies
View Related
Mar 27, 2007
I want a macro in one worksheet to run when any cell (in a given range)on a different worksheet (dataentry) is updated. I have spent along time trying to make it work with no avail. The code I use to start my macro is as follows.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
If Target(1, 1).Address = "dataentry!H5:IV72" Then
If Not Intersect(Target(1, 1), Range("dataentry!H5:IV72")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
View 7 Replies
View Related
May 15, 2012
I pulled to follow code off the Microsoft site.
[URL]....
The problem I'm having is that the code isn't actually looping through the workbook - it's replaying over and over again on the same worksheet. I figure this is an easy fix but this figure is as useful as dog clues to ants.
Sub WorksheetLoop2()
' Declare Current as a worksheet object variable.
Dim Current As Worksheet
' Loop through all of the worksheets in the active workbook.
For Each Current In Worksheets
A bunch of page formatting. Unmerge, cut, paste etc.
Next
End Sub
View 9 Replies
View Related
Oct 1, 2006
how would i be able to loop through all controls on a worksheet and see what type of control they are? : D
View 9 Replies
View Related
Sep 17, 2013
Currently my Macro should: Turn off any filtersNumber column A from 1 to 1000 (starting in A14)Drags formula from K14-O14 down to last row of data shown in column Athen puts cursor in last empty cell in column B ready for user to enter data
On point 3 - I want the range to be K14-O14 if active worksheet equals "EXCHANGES" but if its on the "VALUATIONS" tab the autofill range should be L14-P14
I have found bits and pieces of macros on the internet and put them together so if my macro below is not the most effective for my needs but here it is in it's current state:
Here is my macro:
Sub AddNewEntry()
'TURNS OFF FILTER IF FINDS ONE ON
Dim wks As Worksheet
[Code]....
View 8 Replies
View Related
Feb 16, 2007
I am trying to use a For Next loop to loop through several option buttons on a worksheet in order to set the value of each to false. I cannot seem to get the code right.
View 2 Replies
View Related
Apr 26, 2007
I purchased the book VBA and Macros for excel and it has gotten me pretty far in this code, but I am having difficulty with one code though. I want the Macro to run through a specified directory, and copy the contents of the specified cells (9th row to last row) from each file and paste them in the next available space on my master. Then repeat this process for each file in the file directory. So far, it is successfully going through each file, but it isn't pasting it to my master sheet.
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook
Dim ws As Worksheet
Dim NextRow As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
On Error Resume Next
Set wbCodeBook = ThisWorkbook
With Application.FileSearch
.NewSearch
.LookIn = "K:ESAR GroupForecasting"
.FileType = msoFileTypeExcelWorkbooks
.Filename = "*.xls".........................
View 9 Replies
View Related
May 1, 2007
I am looking to loop through a folder and open every workbook in the folder. For every workbook I would like to copy a range in a worksheet named "explain" and paste values into a separate file. All in all this separate file would be a consolidation of the information from the individual workbooks.
View 2 Replies
View Related
Jan 19, 2012
I have data in some of the cells within range A26:A39
These cells are populated via an IF function on another worksheet. Even though the cells appear blank (as in the value returned is ""), there is a formula in these cells. I think it's called formula blank?
I am looking for a way to copy the data from the cells within the range which are not blank (ie: not = "") and paste this data elsewhere on the sheet in a list with no blank spaces in between.
I anticipate that there will be 4 non blank cells within this range.
Ideally I would have data from the nonblank cells copied and pasted to cells
A40
A41
A42
A43
View 5 Replies
View Related
Apr 19, 2007
I seem to be going round and round in circles with this, but I'm sure it should be easy.
I'm just trying to select a range of cells in Sheet2 of my workbook.
I've tried many different bits of code, including:
Dim namesTotal As Integer
namesTotal = 2500
Sheets("Sheet2").Activate
ActiveSheet.Range(Cells(1, 1), Cells(namesTotal, 8)).Select
(According to the Microsoft website, this is supposed to be the way to do it?)
View 10 Replies
View Related
Apr 25, 2007
writing a macro that will look to cell A15 on a worksheet "A", decide how big a range is (which is in contiguous cells beneath it - i.e. A20), then select the value of each cell and paste it into a cell in worksheet "B" (for example, if the macro decides the range is 3, then A15 = 1, it would copy and paste that onto the next workbook, then go back to A16 and get that value, paste it into the next workbook, etc). The range will vary in size.
View 9 Replies
View Related
Feb 20, 2014
I have a macro that using a list of values in a range, checks if there is a corresponding worksheet and if not, use the Template to create one, rename the worksheet and add the value into a cell.
I now have 2 types of template and based upon on the value in the range, I want it to create a worksheet using 'Template 1' for all values < 1000 and 'Template 2' for values > 1000.
Is it possible to amend my code for this?
HTML Code:
Sub CreateTimeline()
Dim rng As Range
Set rng = Application.Range("Projects[No.]")
[Code]....
View 2 Replies
View Related
Apr 10, 2013
I am trying to calculate some averages. What I have is 3 columns of data in A, B, C, also the "tasks" in A are in named ranges ex: "Award Contract" is a named range - "Task_Award" and "Confirm Updates" is a named range - "Task_Updates". I've attached a sample excel sheet.
I'd like to be able to create a macro to evaluate column A, and for every row in range "Task_Award", give me the average of the corresponding cells in column C and put it in the same range of cells in column B , then, for every row in "Task_Confirm" then give me the average of the same range of cells in column C and place the result in the same range of cells in column B. This is my very first post so I hope I am doing this correctly. I have 77 of these task ranges to evaluate and it will take a long time to do it manually. I'm thinking of a loop function.
View 1 Replies
View Related
Apr 22, 2009
I have an excel workbook that I have created to use in the creation of purchase orders. I have a spot for the vendor in cell D10 and my items are in the range of B17 to N17.
What I would like to have is a macro that I can assign to a button that does the following.
I have a worksheet called "Purchase Order" that has all the information in it.
When you click on a button named "Process", it will take everything entered into B17 - N28 and copy it to a worksheet named "PO# History" starting in cell B2 and moving down. Each time I click on "Process" I need the information in the range above to get entered into the next empty line on the "PO# History" worksheet.
This way I can maintain a list of items purchased and then play with them in a pivot table/graph and such.
Also, What I need it to do also is when process is clicked, the macro needs to pull the vendor name from cell D10 and put it in column A on "PO# History" for each row it adds from B17-N28.
View 9 Replies
View Related
Jun 16, 2014
I have a 2 X 44 range of text cells in one worksheet. The first column includes the same array of variables that are found on a second worksheet. In the second worksheet I want to run a looping vlookup to check if the column in the second worksheet is empty, if it is not I want it to lookup the element in that column in that row from the first worksheet and return the 2nd column item to the adjacent column in the second worksheet.
When I run my program in its current form two problems happen. The first row in the range of the column I want the data returned in is empty, and for the rest of the rows the same value is returned, when it should in fact vary. I think part of the problem is that in my vlookup my entries are:
vlookup(CrudeType, Range("Sources"), 2, false) where crudetype is defined as Range("c2:c" & lrow). This is the C column on the second sheet, I want my output in the D column. Range("sources") is on the first sheet and covers D2:E45.
[Code]....
View 4 Replies
View Related
Nov 2, 2012
I have a set of data and I need to find the max for range 1-10, then 2-11, then 3-12 and so on. Is there away to do this using a loop. I'm new to vba and I've been trying but either it doesn't work or I get an error message.
View 8 Replies
View Related
Jul 2, 2013
I am looping through a selected range. The code searches through column B and finds any data. If found, it returns the value to a different workbook to column B. When there is no more data, it goes to column C and does the same thing. My problem is, when there is no data in a column it returns a blank. How do i get rid of this blank???
View 1 Replies
View Related
Mar 1, 2007
My ultimate goal is to have some rows of data and and checkbox with each row. I will have a button that will copy only the rows that are checked and paste them into a new worksheet. With the help of some other posts on this site, I was able to figure out how to loop through the checkboxes and copy and paste some data. The problem is I am only copying and pasting in the same rows. I need to know how to move on to the next row that is checked, which is not always the very next row. Here is what I have so far:
Dim i As Integer
For i = 1 To 26
If ActiveSheet. OLEObjects("CheckBox" & i).Object.Value = True Then
Worksheets("Master"). Range("B8:J8").Select
Selection.Copy
Sheets("temp").Select
Worksheets("temp").Range("A8").Select
ActiveSheet.Paste
Sheets("Master").Select
End If
Next
View 3 Replies
View Related
Nov 5, 2008
I have a range on worksheet "CONTROL" from S129:S228. There are 100 rows there. I have another range on the active sheet from B17:N116, also 100 rows. If S129 has a value of 1, then I need row 17 on the active sheet to be cleared (columns B-N). And so on all the way to the bottom of the ranges. If it has no value in the cell, then no clearing takes place. So it needs to test the whole range at once. I really have no clue what the variants and ranges should be, and have NO CLUE how to define a variable range so that I can use the value that R is on in the testing cycle to tell the active sheet which row to delete.
View 3 Replies
View Related
Jun 2, 2009
I have a list of references in a range (A5:A98) in a worksheet called "Architectural". What I am trying to do is create a seperate worksheet based on each cell value in the range. However, rather than blank worksheets, I would like each new worksheet to be a copy of a worksheet called "Template". If possible, I would like to have the name of each worksheet also put into cell B2 of each copy.
View 2 Replies
View Related
