I have a large database, and I wrote a macro to update it. However, the sheer volume of data makes it difficult to update at once (without crashing my machine), and I would like to know if there is a simple way to run the macro in increments ---say, 2,000 rows of data at once. Just wondering if these is an efficient way to code this, rather than hardcode partitions into visual basic.
View 2 Replies
i'm looking for a loop macro to perform the following task:
Sheet 2 is my look up table, and sheet 1 as a number of references such as:
='Sheet 2'!B1
='Sheet 2'!E1
='Sheet 2'!G1 etc
I need a macro that increases the row references "1" to "2", saves the sheet then increases "2" to "3" and so on until the bottom of the reference table is reached
Excel file attached! I need a macro to do the following:
Start with cell F4 and read the increment value from cell C4. Then add this with F3 and display the result. Continue with the same increment until it reaches the value equal to cell B4. Then read the increment from cell C5 and do the same until value equals cell B5. Repeat the same step until it reach the value equals B7. I did manually in the column F4 to F28. Moreover, the cell increment will change according to the variable in A2. In this case it is 25 and got 25 values to fill the column R.
I attached document, in that document I made formula in Pressure cell which is INDEX MATCH MATCH to get the result.
But what I wanted is, when I type 10.4 in Temperature cell, the Pressure cell will show the result which is 1261.24 directly without I have to fill in two temperature cell to make it 10.4.
Below are the equations in 3 cells. They are averaging intervals of 7 cells without overlap.
=AVERAGE(A2:A8)
=AVERAGE(A9:A15)
=AVERAGE(A16:A22)
If I autofill, Excel does not seem to be able to recognize that pattern. Instead, Excel adds 1 to each row so that the fourth cell is as follows:
=AVERAGE(A17:A23)
But rather, the fourth cell should be the following:
=AVERAGE(A23:A29)
Is there a way to autofill with the 7 cell intervals?
Suppose I have an optionbutton named for each day in February, say Feb1, Feb2, Feb3, etc. Would the following code do what I want it to do?
View 4 Replies View RelatedI am trying to make a bill of materials using excel. The material is 10' sticks of pipe. What I want to accomplish is have a column (column A) with the lengths used in inches and have it show me the total amount of pipe used keeping in mind that once you hit 120" you have to start a new stick of pipe.
For example: If I used 40 inches I have 80 inches left over... But if column A read (40", 90", 60") I need it to know that the 40" will be cut from one stick, the 90" will need to be cut from a new stick, and the 60" can be cut from the left over of the 40" cut.
For i = 10 To 260 Step 10
iStrg = i
cntrl = "A" & iStrg
Range(cntrl).Value = i
Next i
I have been trying to use this code which displays 10 in A10, 20 in A20, 30 in A30....etc. What i am trying to do is display 0 to 260 with a step of 10 in the cells A2 to A28, could anyone be of assistance?
I have a column named "Time" and when I enter the data in the first row (for instance 6:00), I would like time to be inserted in the rows below in 5 minute increments.
But as an addition, I would like an input box that requires the end time. For instance, if I enter 6:00 in the first row, I should have a input box requesting me to enter end time. If I enter let's say 8:00, then time (in 5 minute increments) should be entered until time is 8:00.
Is it possible to do this in Excel? If it is, how would I go about it?
How do I write a formula to round the decimal places in a number in set increments. For example;
a) 14.28 to the nearest 0.25 would result 14.25
b) 1.99 to the nearest 0.1 would result 2.0
c)2.97 to the nearest 0.25 would result 3.00
I need an equation that will take time and turn it into quaters increments. Meaning, If we work on a computer for 1 hour and 15 minutes (1:15) then i need it to say 1.25.
1:00-1:15 =1.25
1:15-1:30 = 1.50
1:30-1:45 = 1.75
1:45 - 2 = 2.00
and so on... up to 3 hours.
If E2 = 1:00-1:15 then F2 =1.25
If E2 1:15 then F2 = 1.50
I have a chart which has horizontal gradients in increments of 500. For example, $500, $1000, $1500, etc. Is it possible to make one of the horizontal gradient lines which run across the chart, darker than the other horizontal gradient lines? For example, if a "goal" is to reach $2000, can I make that horizontal line in the chart darker than the lines for $500, $1000, $1500, etc.? I am not talking about the bars that run vertically for each data, but the lines that run horizontally across the chart.
I dont know if this can even be done in a chart or not.
I have a set of number in worksheet IN:
A B C D E Columns
41.0141.0241.0341.0441.0
42.142.242.342.442.
43.0143.0243.0343.0443.0
44.144.244.344.444.
45.0145.0245.0345.0445.0
46.146.246.346.446.
Datarows increment by 1. I need to map these to another workbook worksheet named OUT
to rows that increment by various amounts 1,2,3 ....10) i.e..............................
My employer gave me a life insurance "Rate per Age" chart to convert to an Excel spreadsheet.
The chart shows rate increases in 5 year increments starting at age <29 and increasing in steps as follows: 30-34, 35-39 through 95-99.
If I input an employee's birthdate I am hoping to calculate the date when he/she will hit each 5 year step increase.
I'm trying to write some VBA code that can vary an undefined number of variables from a certain value to a certain value and by a certain increment. I know I can do this using For, from to step function but I could potentially have as many as 60 variables that need to be permuted and as little as 1.
For example:
Permute variable 1 from 2 to 6 by 2
Permute variable 2 from 6 to 8 by 1
should output
2 6
2 7
2 8
4 6
4 7
4 8
6 6
6 7
6 8
how to make this code efficient instead of writing 60 for loops? that could either be used or not?
I don't know if title is understandable, English not being my tongue, anyway here's my problem, the current value must be increased or decreased by 0.01 if it's between 1 and 2, by 0.02 between 2 and 3 and so on. I'm really new to VBA and after a few hours I came up with the following code which works fine till the value of 6 and then gets stuck: ....
View 14 Replies View RelatedI'v been trying to do this for a while now. I need a function that takes this date (which is not a set format in Excel, so has to be 'general'):
10.10.2007 00:00
10.10.2007 06:00
10.10.2007 12:00
10.10.2007 18:00
11.11.2007 00:00
...
...
...etc
I need a function that increments this type of date format in a column.
I am looking for a formula that I can drag down a column that is pulling data from left to right at the top of my spreadsheet. See the attachment.
View 5 Replies View RelatedI'm trying to make a line graph with specific increments on both the x and y axis. Now, I can make specific increments on one, but have to sacrifice the other in order for me to label the lines. Im not sure how to get around this. I'll just type out what i'm trying to do and maybe you smart people can help me here.
Okay, both the x and y axis must be in increments of 8,10,12.5,16,20,25,30, and 35.
The first line should be labeled "Indicated magnification, and should have the values 8,10,12.5,16,20,25,30, and 35... the same as the x and y values, making the line a straight linear line.
The second line should say "actual m value" and have values of 10,12.5,15.5,20.5,25,31,37.5, and 44.
The third line should say "actual n value" and have values of 10,13,16,21,26,32,38.5, and 45.
I'm new to Excel (4th day in class) and I can't find the answer to what I'm looking for on the net. Part of the problem is that I don't know what to call it, so I have a hard time looking it up.
Very simply put, let's say there are examples numbers 1,2,3,4 put in cells A1 to A4 (vertical) and more example number 50,60,70,80 are put in cells A6 to D6 (horizontal)
What one formula can be written in B1 that I can copy down to B4 that will make B1=A1+A6, and B2=A2+B6, and B3=A3+C6, and B4=A4+D6
I have a column of over 500 replies to a survey. I want to create a pie chart showing the average ages of the respondee to that that question, broken down into increments of 5 years (this was the question -- how old are you) and reported as a percentage.
View 9 Replies View RelatedI am trying to make a save&close workbook macro.
I found several examples on google, but unfortunatly it conflicts with another macro I use for forceing users to enable macros (hide all sheets except one if macros are disabled).
The attached file is an example contaning the save&close code and the show/hide sheets depending on macros enabled.
If the file is opened with macros disabled then only one sheet will be visible.
If the file is opened with macros enabled other sheets are visible.
The problem if that this code uses a custom save, witch makes the save&close not save... (in module1 and in ThisWorkbook)
The pourpose of the save&close is to make sure some users don't forget the excel open and thus block access to it. So if a certain idele time passes excel has to save and close without any confirmation messages.
I'm using a CALL Macro to split up a HUGE macro into different pieces:
Code:
Sub RSLDASHBOARDV2()
'Macro recorded 12/14/2010 by Ryan R. Koleno, Pharm.D.
'Last Updated 7/10/12 by Ryan R. Koleno, Pharm.D.
'Do Not Modify Code Unless Given Proper Privileges to do so.
Dim APPSPD As Worksheet
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
[code]...
The first few macros dealing with page setup and what not work fine but when it hits the Pivot table code for the STATSPIVOT macro it errors out stating: "Run-time error '1004': Unable to get the PivotItems property of PivotField class' at this point in the code:
Code:
objField2.PivotItems( _
"TRC").Position = 1
objField.PivotItems( _
"MEDCO MAIL OR AOB").Position = 2
When this macro is not split up it worked fine as written. Am I overlooking something in the Call Macro's code or is there a variable I'm not aware of. I have included the Pivot Table code that errors out as well.
Code:
Sub STATSPIVOT()
'STATS PAGE BASED ON STATS DATA TAB
Sheets("STATS DATA").Select
Dim objTable As PivotTable, objField As PivotField
ActiveWorkbook.Sheets("STATS DATA").Select
Range("A1").Select
[code]...
I am making a spreadsheet that sorts and pastes, but I need to know if I can add a code to the Sort and Paste Macro that will open the second spread sheet needed without just already having it open and using the
Windows("estimate sheet one.xls").Activate
I have a macro where I manually select a cell then the macro kicks in to copy and paste the contents into the Find function. From there it goes to another work sheet, clicks on a cell in column one and searches for matching cell contents. Then If false it manually goes back to the original worksheet/cell and then I input a N in the left adjacent cell. If true I enter a Y. Right now I can only run this for the specific cell the macro was recorded for. I would like to expand this.
What I would like to do create a loop in the macro that waits for my cell choice input then continues with the with the Find function. If false the macro should just loop back to the original worksheet/cell and wait for input, ie the next cell selected. However, if true a worksheet/cell is selected, a Y is input and it loops back to the original cell and waits for input.
This is the code I use to call a macro when the macro Im calling is in the same workbook.
[Code].....
However, I would like to call this same macro when using another workbook. I copied the macro "Clearformating" and pasted into a personal macro workbook module. However when I add this code to the sheet tab it will not run the macro.
I also tried this code.
[Code] .....
I have a macro that I found somewhere on the net to look within a folder and list all the files of a certain file extension.
The macro to do this is in the attached example and is called 'Get_File_Names_Within_Dir_ext'.
I have created a basic userform outline, 'UF1' for the user to define:
Select File Extension
Select Folder to Search
Destination Sheet
I just don't have any idea how to sync the two.
If you type 'exe' into 'TB1_File_Extension' of 'UF1' the macro should search for '*.exe' files within the specified folder.
The search folder 'RefEdit1' box should open a windows explorer box (or some such) so that the user can select the directory in which to search for the previously specified file extension.
'TB2_Destination_Sheet' is a text box for the user to type the sheet within the workbook in which to list the files found within the specified directory.
'CB1_Find_Files' should activate the macro to find any files for the specified criteria.
There is also a Button 'Find File Types' in Sheet1 of the file which should activate the userform 'UF1'.
I have a worksheet in which I have a worksheet_change macro. This worksheet_change macro makes sure that a few cells will keep their colors, even if the user copies and pastes a new value to that cell. This worksheet_change macro runs each time there is a change on the worksheet. Now my problem is that on the same sheet I have an update list macro which updates around 20.000 rows and two columns (which is alltogether around 40.000 values) and it takes a while to run. So.. it takes a loooooooooot of time (too much) when these two macros both run.
My question is that can I somehow disable the worksheet_change macro while the update list macro runs. I mean something like when I start the update list macro to disable worksheet_change macro and when the update list macro finishes, then reenable worksheet_change macro?
I need a macro to get the values from cells D29 and H24 in the Resource Calculator sheet and populate it into cells N8 and O8 in the Input form.
Users will then be able to change the information in the calculator and click the macro again to populate N9 and O9 and so on.
Is there a way to do this?
I've attached the file for you to see.
I have a macro which refreshes a query when the spreadsheet is opened. This works fine when online.
However, if the user is not online, the query is unable to refresh and the macro just hangs.
Is there a code which will enable me to say " if unable to refresh then move on to the next line"?
here's the code below.
Private Sub Workbook_Open()
Sheets("Houselist").Activate
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Front").Select
Range("A1").Select
End Sub
