Range Variant Looping Macro Many Workbooks
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
ADVERTISEMENT
Oct 3, 2007
I have a macro that will go into a workbook and copy all applications from a given date onto a master workbook. I have another workbook that has a list of around 20 workbooks and i want the macro to go into each one, and copy over the data onto the master workbook. I have the code to copy it over but i can't get it to loop thru the list of 20 workbooks.
View 9 Replies
View Related
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
View Related
Apr 2, 2014
I jst need to console data from different workbooks to one worksheet. There are 30 workbooks & each workbook contains one worksheet name as Data. The work i am currently doing mentioned below step wise
1) Open workbook
2) Apply filter on whole data
3) Select dates from "J" Column (E.g 02/10/2014 to 02/20/2014)
4) Then Copy whole filtered data
5)Paste into New workbook
6) Open another worbook
7) repeate Step # 2,3
8)Then paste whole data in below the first data New Workbook (In which we have paste the first data below that i will paste this data)
These steps i have to do manually it takes almost 1hr daily After pasting all 30 workbooks data in one workbook i have to make pivot of it & sent it to my Manager. What i need
I jst want a excel macro that will ask me date range from which i have to pull data from all 30 workbooks.
Once i gave date range will jst click on button say extract or pull. It willl console whole 30 workbooks data from the given date range in a one worksheet.
View 13 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
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
Aug 28, 2013
Question: I have a VBA code that transpose every 7th row of a dataset in column A only, however I would like for the code to extend the transpose to (7 row and 3 cloumn).
This is the code:
Sub Transpose()
Dim A() As Variant
Dim i As Long
[Code].....
View 1 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
Feb 6, 2008
I have 10 ranges that if the value in a cell falls into one of those ranges, a calculation needs to occur. I think I need to use a macro which i have set up to run off a button click, with a do loop in it, but not sure how to get the loop to move down the range?
for example:
Cell Reference(s):
D
1 250
2 700
Range:
A B C
1 0 150 75
2 150.01 300 125
3 etc.. etc.. etc..
Formula:
=if(and(d1>a1,d1
View 9 Replies
View Related
May 4, 2009
As a part of a much larger routine, I need a code to find five consequetive cells in a column with identical value "XYZ" and select the first one of them. Say,
I have a column:
apples,
pears,
apples,
oranges,
xyz,
oranges,
xyz,
xyz,
xyz,
apples,
apples,
apples,
xyz,
xyz,
xyz,
xyz,
xyz,
xyz,
xyz,
etc.
I need to select the twelfth cell in this column, highlighted red.
I guess there could be some complicated if-then loop to go through the whole column, checking each cell and comparing it to the next four, but it would take forever to excecute... Is there some other way around? To find the first occurence of five xyz's one directly under another?
View 9 Replies
View Related
Nov 2, 2009
Aloop I am trying to put into a macro. I have a variable range of data in Column C, header is in C1. I need to split the data in each row of the array using this code.
View 2 Replies
View Related
Jun 17, 2008
I have a macro (written with the help of forumites here) which, when selecting a cell on a particular sheet, will select and copy data from various rows on various sheets, print a resulting chart, before returning to the original sheet.
Now, I use autofilter on the original sheet to help organise the data I wish to copy and print.
My question: is it possible to adapt my macro so that, once it has run through once, will move to the next cell in the autofiltered column and run the macro again, and again, and again... to the bottom of the autofiltered column?
At the moment, I'm running the macro, pressing the 'down' key and then running the macro again until I've exhausted the column. There must be an easier/better way.
View 9 Replies
View Related
Sep 25, 2008
The below code outputs a value in the cell corresponding to alpha by drawing information from the range in issueRng. However it will only grab the value from the first cell in the range of issueRng. It grabs this cell value and outputs it in every cell corresponding to alpha. For instance if i have issueRng as the range from C6 to E6 (3 cells), then the code draws the value of C6 and puts it in the cell corresponding to alpha which for the first loop is Cell(7,6). However the code is putting the value from C6 into every cell instead of moving through the range of issueRng.
Dim alpha As Double
alpha = 6
Dim issueRng As Range
Set wb = ActiveWorkbook
With wb.Sheets("Issues")
Set issueRng = Sheets("Issues").Range(.Range("C6"), .Range("C6").End(xlToRight))
End With
For Each CELL In issueRng...............
View 9 Replies
View Related
Aug 20, 2009
I am a bit stuck in looping my macro. I have a working macro that does various functions for a period (say January) and I wish to run for periods 1 to 12. The cell "A1" has a drop down list (jan09, feb09 to Dec09).
Currently I select the month from Cell A1 and run the macro. Now wish to loop this macro so it runs from Jan09 to Dec09 in one go. The cell A1 is being refererence in the Vlookup table that changes ranges in a table that are been used as dynamic ranges in a macro.
Simplied Macro Steps
1. Select month in cell A1 (sheetX), then Calculate.
2.This refeshes lookup table and runs the macro say copies cells (B10:D100) in sheetBud and pastes in sheetTest A10. Insert rows A10:A100. Ends
Currently I manually changes the step 1 and then run this macro for next month. But now wish to run it for 1 to 12 months in one go. Please please can you can help me with the Looping. Please note that the macro does other functions and the steps above are simplied.
View 9 Replies
View Related
Feb 6, 2014
I am having trouble looping through a range and inserting a formula where a condition is met.
My range is "h9:i"
My current code inserts a formula in column i when there is a value in the adjacent row in column h:
[Code] .....
However, because there are so many rows (12,000+) it is taking a considerable length of time to run.
Some of the cells in column i will already contain the relevant formula, so to speed this up I want to insert the formula in column i only when the cell value (in column i) is not null, as opposed to inserting it for all cells within the range.
I know how to loop through the range, but the problem is the 'H9' cell reference in the formula in the code above will need to change depending on what row it is being inserted into- so if it is going into "i31" this will need to be "h31".
View 7 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
Oct 23, 2008
What I'm trying to do: While there's a value in Col A starting with A2, I need to then go to the corresponding cell in Column O, starting with O2. Then as long as there's text in the next cell in the same row keep track of those cells so that in the end I can append all text in the adjacent cells to the text in the Col O[X] cell. Then repeat as long as there's text in the next row cell of Col A. I have the routine to append the text, I just need help with the looping.
IE:
If I start with the following:
Col A Col O Col P Col Q
row 1 ----- ----- ----- -----
row 2 1 Text here new text
row 3 2 More text more text 2 more text 3
row 4 (no text in any of this row.......................................)
After running macro this would become
Col A Col O Col P Col Q
row 1 ----- ----- ----- -----
row 2 1 Text here..............................
View 5 Replies
View Related
Oct 27, 2008
I have created a macro to filter results from a set of data, paste that data to a new file, and then create charts based on that data. Right now, my macro is basically multiplied 20 times to do this for each heading. Is there a way to create a loop that will just redo the same macro but for the next data heading? Here is a sample of the first part of the macro:
View 14 Replies
View Related
Nov 9, 2009
I have a macro I use cleanup up excel data I paste into it. Currently I paste in data that is three columns but there is space between the different items. For example:
View 2 Replies
View Related
May 19, 2009
A macro that scans Sheet "CSD" Range "B4:B201" for the word "Yellow" and copys the data in the row based on conditions to Sheet "Yellow Ticket" and prints the Ticket.
Heres a Pic of my "CSD" Sheet.
******** ******************** ************************************************************************>Microsoft Excel - Hybels_Loading_Tickets redo for post.xls___Running: 11.0 : OS = Windows XP (F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp (A)boutA1=ABCDEFGHIJKL1 Starting Load # 2 3800 3 Ticket ColorLoad #DropCart #Customer ALLSTARS4" Wave3-0-6 Wave6" Wave18-0-1 Wave10" HB4 Pink3851C1Hawks27 45 5Yellow3852D3Bomgaar's 28 67 6 Yellow3850E5Larry's 34 677 8 9 10 11 12 13 14 Count Sheet Esman Greenhouse's [HtmlMaker 2.42] To see the formula in the cells just click on the cells hyperlink or click the Name boxPLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR.
Here's a pic of my "Yellow Ticket"
******** ******************** ************************************************************************>Microsoft Excel - Hybels_Loading_Tickets redo for post.xls___Running: 11.0 : OS = Windows XP (F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp (A)boutA1=ABCDEFGH1R. Hls Inc.2Helping Make Your Business Grow!3 4For questions regarding product please call 800..!5For questions regarding shipping or cart removal please call 888-344.3710!6 7 Load # Drop Letter Cart
#(1-30).....................
View 14 Replies
View Related
Aug 12, 2008
I'm running a simulation that utilizes the Data Table function. The table itself is quite large (280 elements in the row, 10K in the column). It currently takes about an hour to run. (Full disclosure: I did this instead of a couple of "for" loops because I have to consolidate/manipulate a bunch of data from several sheets and it seemed to be running slower than a data table). how to write a progress bar for this type of code? I.e. code that does not loop and is just time-consuming?
View 4 Replies
View Related
Jun 24, 2013
I have a matrix of coordinates in sheet ("layout") (eastings - V4:BR4, northings - U5:U100). I'm trying to run through each northing (row value U5:U100), for every easting (V4:BR4), by writing the coordinate value to sheet("ISO_model"), cell K18. Within the sheet (ISO_model) there is a model which gives an output in cell HA500. I'd like to write this output (for the specific easting and northing) back into the sheet ("layout"), so that I then have the x,y, z values to create a contour plot.
I've tried to start the look through the row of eastings, but it is not working.
Sub noise_contour()
For Each Cell In Range("V4:BR4")
'write coordinate into the model
[Code]....
View 5 Replies
View Related
Jul 1, 2009
I have a button the runs Application.GetOpenFilename And puts the output filepath into a label. I then have another button that opens a inputbox asking to change the file name and then copys the file from above path to my destenation.
when setting the destination i use ThisWorkbook.Path & Application.PathSeparator & "Images" & Application.PathSeparator and the imputbox value as the filename. doing it like this it wont alocate a extention for the file ".jpg,ect". The label.caption has the .ext and i would like to be able to store everythink after the . as a variant.
View 2 Replies
View Related
May 7, 2006
I experienced error "object required" when I tried to pass a argument of type variant into the b/m function call.
Call closeCon(con) 'con is of type Variant
The function is as follows.
Public Sub closeCon(ByVal nwAdoCon As ADODB.Connection)
nwAdoCon.Close
End Sub
View 9 Replies
View Related
May 17, 2006
Is there any way in VBA to convert a Variant into a String? This code doesn't seem to be valid:
Dim vName As Variant
Dim sName As String
vName = "John"
sName = CStr(vName)
View 5 Replies
View Related
May 31, 2007
Is/how possible to read entire ss into a variant "off-scree" without showing the user? I can open the file, I just dont know how to not show the file, select the entire sheet and read the values. I have seen the below but dont know how modify it as needed. Also is there a way to do this dynamically with variable length rows/columns?
Dim vaData As Variant
Dim lRow Long
Dim lCol As Long
vaData=ActiveSheet. Range("A1:B10").Value
from Professional Excel Development S.Bullen et.al. pp614
View 7 Replies
View Related
Sep 26, 2008
I want to use a piece of VBA to copy values from cells A1, C1, E1, and G1 and paste them into the next blank cell in an existing range called "DCopy". I am trying to use the following code, but as I have never tried writing a looping macro, have no idea what I am doing:
View 2 Replies
View Related