VBA Code To Copy Formula To Cells Blow
Apr 25, 2006
I need some come code for a macro to copy a formula down a set of cells (I want to highlight a set of cells then run macro). I've looked all over the web, and the ones that looked right didn't work. I'm afraid I don't have enough experience yet to edit them.
In detail: Have cells b2 down list the price of an item
Have C down list item price plus VAT
Create a formula in C2 (ie =(b2/100)*117.5
Copy C2 to all rows with a value > 0
Create a macro where I highlight cells to apply this macro to
This is all in aid of an interview tomorrow, so if I'm lucky, I can spend more time afterwards learning this stuff. I get the principles, just don't know the language enough yet.
View 2 Replies
ADVERTISEMENT
Jun 24, 2008
I am currently working on a data analysis project (data mining) and need to collect and later analyze statistics for the inputs which control a series of calculations. These statistics are shown in the Statistics 1, Statistics 2 and Statistics 3 cells in the workbook that I attached. The inputs are X,Y; all possible values for these inputs are listed in the N,O columns. Basically I need a macro which would take the values from these two columns and place them pair after pair into the controlling cells (K3, L3), then it would copy cells H2 through L3 (updated stats) to a new sheet after each copy operation - so that I will finally have a list of statistics for all of the input pairs.
View 3 Replies
View Related
Sep 27, 2011
Trying to use a standard formula based on a variable workbook name. The INDIRECT solution suggested worked fine until I realised that I'd need to have the additional workbooks open in order to return the results.
Variable Workbook name in formula?
The reason I wanted to use a standard formula was so that I could use a piece of code I've written that would simply copy the formula from one cell and paste it accross and down for all cells within a range of rows and columns. Seeing as the formula now needs to be unique per column I need to change the code to copy the entire row of formula down instead of the one formula down and across. Here's my original code that copies a formula from B2 and pastes it down to the last row and across to the last column:
Code:
Sub CopyFormulaDown()
Dim lngLastrow As Long
Dim rngTargetStart As Range
Dim rngTargetEnd As Range
lngLastrow = Sheet3.Range("A65526").End(xlUp).Cells(1, 1).Row
[Code] .....
What I assume I need is to change the Range("B2") in the last line to Range("B2:???"), where ??? is the last column eg AA2. I'm not sure how to do this dynamically though.
View 2 Replies
View Related
Oct 31, 2011
But I can't get the array formula to copy to the LAST ROW
Sheets("LEDGER PREP SHEET").Select
Columns("F:F").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("F1").Select
ActiveCell.FormulaR1C1 = "Name ID"
Range("F2").Select
[Code] ........
View 2 Replies
View Related
Nov 23, 2009
HTML http://www.excelforum.com/excel-programming/707534-logging-a-xml-feed-copy-the-same-cell-and-paste-into-increasing-cell-positions.html#post2200312
First i need to copy four cells, i can record the macro for this but i need to do it a lot so it would be better if i had the code. i need to copy cells D6, D9, F6 and F9. a description of the code would be really great so i can get an understanding of vba code.
View 4 Replies
View Related
Apr 11, 2007
I have many values in column A. I need to find the word " Function" from that column and should copy cells after that until it encounters a word called " Total" in that column. if it sees total it should copy the cells after Function and before total.
Function
a
b
c
d
Total
View 9 Replies
View Related
May 1, 2014
I need the macro to look at cells B9:B84 on the Sheet1 tab of the Cost Template. If it finds an x I need it to copy the 3 cells to the right of the x and paste them in a template. For example if it sees an x in cell B9 it would copy cells C9, D9 and E9, open the Purchase Order to the Detail tab, then paste it to cells B3, C3 and D3. It would continue looking for an x down to B84. So if it found 5 cells with x, it would give me 5 instances of the Purchase Order with 3 cells pasted into each.
I've attached my Cost Template and the Purchase Order it needs to copy to. In the Cost Template is a macro called Create_PO. This is what I was trying to alter to make this happen. I can't seem to get it right! FYI in case it matters, I had to change the Cost Template from .xltm to .xlsm in order to upload it on this site.
View 11 Replies
View Related
Jun 5, 2008
I have created a macro with the below formula in it:
Range("L2").Select
ActiveCell.FormulaR1C1 = "=LEN(RC[-1])"
Range("L2").Select
Selection.AutoFill Destination:=Range("L2:L234")
Range("L2:L234").Select
I am using column K and it looks up the length of this cell. When I created the formula I was using info that only went to line 234 which was fine. Once I clear the info in column K and input new info it can go further than line 234. How do I get the macro to look up the whole of column k without having to create a new macro each time?
View 6 Replies
View Related
Aug 25, 2009
I am trying to create a a command button using the control tool box that will take info from specif cells from sheet1, and paste them into sheet2 in specif cells, but the most important part is that it has skip to the next row after each paste.
for example take A1, B1,C1 from sheet 1 paste it to B1, C1, D1 on sheet2, then take A1,B1, C1 from sheet1 paste it to B2,C2,D2 on sheet2
View 5 Replies
View Related
Jun 8, 2014
I want text that's in bold in column B in sheet 1 of my spreadsheet to copy over into column A in sheet 2 of my spreadsheet - is there a quick way of doing this using code or a formula?
View 3 Replies
View Related
Mar 29, 2014
Have you ever copy a row with formula in locked cells & insert it in a protected worksheet?
View 1 Replies
View Related
Mar 3, 2008
I have a workbook ("CaTr") Sheet1 has data ranging ("B2:I41").
There are about 30 cells values (scattered) which needs to be copied in a workbook "CA_Log" in one single next available row .
As soon as the CaTr.sheet1 is filled I want the operator to click a button to trigger this event. Then the sheet1 in workbook CaTr should be saved as "G3" cell value.
View 14 Replies
View Related
Jul 2, 2009
Someone here wrote up this code for me which converts cells with formulas to a new formula (It adds a division to the formula in the cell). It works great with one problem. If the code is rerun multiple times it doesn't check if there is a division added already and just keeps adding and adding to existing formula. For the last our I tried to add a check to the code. Something along the lines "If cell already has "/H2" inserted" skip to next cell. But nothing is working.
Here is the code I'm working with:
Sub Macro2()
Dim MyRange As Range, NewFormaula As String, Delim As String
Dim Cell As Range
Dim MyString As String
Dim Format As Range
Dim ws As Worksheet
View 9 Replies
View Related
Jul 29, 2013
I am making a buiness card request form, which I have attached. On the Master Sheet (Sheet 1), the user enters in his/her personal data, such as his name address, phone number, etc. After he/she finished entering all the relevant data, Business Card Layout (Sheet 2) automatically populates and shows the user what their business card will look like.
Everything works fine, however I just realized that the contact information might vary from person to person. Right now, a person can enter 5 different contact information, but most of them will probably only choose four.
I wanted to know how to shift the cells down if the user does not fill out one of the contact information.
View 2 Replies
View Related
Mar 5, 2014
The idea is to select an item i one cell, which in return will affect the following cells with the nutritional values. So far so good. I would then like, if a given amount is entered, it calculates the values.
A food item is typed in Cell A. The following cells will Index Match a table (on a different sheet), importing calculation formulas based on the food items nutritional value (Cells C - G). If an amount is typed in Cell B (i.e. 100 grams) the following cells will then calculate the correct nutritional values.
i learned to make an INDEX MATCH function, so that when i type "Gulerod" or something like that, the following cells import information from the Table tab... When the table contains fixed values, this works just fine. However - i tried to make the table (the cells) with calculation formulas (i.e. =SUM(4*B3))... this means the values in the tables are 0 untill a value is typed in B3 (in this example).
... however when i do the Index Match in my main tab, only the "0"'s are imported, and no matter what value i enter in B3 in the main tab, the following cells remains with the fixed value 0.
... so my question is - is it even possible to have the Index Match function import the calculation formula from the table and have it work in the main tab as well? Or is there any other way to make this work in Excel? Basically - to have the main sheet find the relevant data to use for calculation on a different tab/sheet, and then do the actually calculations on the main tab/sheet.
View 5 Replies
View Related
Jul 28, 2009
I received assistance from NBVC for combining data from two cells. Post http://www.excelforum.com/showthread.php?p=2135144. I need to convert the formula into macro code. I thought I would be able to convert it on my own, but running into some troubles with run time errors. Here is the Excel formula, which is working fine.
View 5 Replies
View Related
Apr 18, 2008
I'm trying to set a cell on one sheet to be equal to the product of two cells on another sheet. The problem is that one of the cells on the other page is dependent on the variable T. This is what I've got and it's giving me errors
Worksheets("Output").Range("K14").Formula = "Worksheets("Calcs").Range("D17")*worksheets("Calcs").Range("D17").Offset(10+T,0)"
When I record a macro it gives me this, but again, I need the last cell in terms of "T"
ActiveCell.FormulaR1C1 = "=Calcs!R[3]C[-7]*Calcs!R[14]C[-7]"
View 3 Replies
View Related
Apr 23, 2009
Anyone see any problems with this code? I used this in another application and it seemed to work just fine? However now it isn't working I just changed the reference area's and changed the formula.
View 4 Replies
View Related
May 22, 2014
I have searched and unable to find how to keep a formula as a formula in a cell so I can copy it to other cells. Every time I enter a formula, example: =if(a2>0,trim(v2)&"."&trim(x2),"") the cell immediately displays the value and I am unable to copy the formula to other cells because I get the same value all the way down the sheet. Example star.plus, star.plus, star.plus... Every cell in the range should have a different value and change whenever the cells in column v or x change. I also tried entering this formula on another workbook which displays correctly the formula in a cell and then copying and attempting to paste onto the existing worksheet but the past and paste special are greyed out.
View 3 Replies
View Related
Feb 11, 2009
I have a vlookup formula that I want to copy from cell b16 to b30. How can I do that without excel adjusting all of the formula. The formula looks like this: =vlookup(b16,b1:b15,1,false). I want b16 to change with the cells but "b1:b15" I don't want to change. it should look like this in the worksheet
cell b16 =vlookup(b16,b1:b15,1,false)
cell b17 =vlookup(b17,b1:b15,1,false)
cell b18 =vlookup(b18,b1:b15,1,false)
cell b19 =vlookup(b19,b1:b15,1,false)
cell b20 =vlookup(b20,b1:b15,1,false)
cell b21 =vlookup(b21,b1:b15,1,false)
View 2 Replies
View Related
Apr 18, 2014
I need to change below formula
I want to copy formula form G7 to last blank cell of column G while below code copy formula g7:g100
[Code] ....
View 4 Replies
View Related
Dec 12, 2011
I have a code that paste my data into a new row.
At the same row I have a column with formulas, and I would like the macro to copy that formula into same column in next row.
Code:
LstRow = Bilag1.Range("C65536").End(xlUp).Row + 1
Bilag1.Cells(LstRow, "B") = Brreg.Range("B4").Value
Bilag1.Cells(LstRow, "A") = Brreg.Range("B5").Value
Bilag1.Cells(LstRow, "C") = Userform1.txtProjectNo.Value
This is what I have, and my formula is in column "D".
View 4 Replies
View Related
May 11, 2012
When I copy a formula from a cell into many cells in this way
rangeinit = Sheet2.Cells(srs1, scs1 + 2) & "2"
Sheet3.Range(rangeinit).Formula = Sheet2.Cells(srs1, scs1 + 8).Formula
rangetoextend = Sheet2.Cells(srs1, scs1 + 2) & "3" & ":" & Sheet2.Cells(srs1, scs1 + 2) & (lngRowsNumber + rowsheader)
Sheet3.Range(rangeinit).Select
View 2 Replies
View Related
Aug 26, 2013
I am working on a template for a team that requires me to create a format to be able to be paste on a PowerPoint presentation. The format for the PPT has been created by the board directors and need to stay that way. What I am trying to do is have the team members to populate one form that will feed different spreadsheets, but I am facing the issue that I need a formula or macro that will pull only the cells with values from column D to other table to column Q, in the next print screen you can see what my final goal is...
[URL] ...........
View 3 Replies
View Related
Apr 30, 2009
{=AVERAGE(IF(('Sales Reports'!$A$1:$A$5000=$A3)*('Sales Reports'!$C$1:$C$5000=$C$1),'Break Reports'!$D$1:$F$5000))}
and am copying it to other cells using this
Sub copyformula()
With Sheets("Sheet2")
.Range("B3:B5000").Formula = .Range("B3").Formula
End With
End Sub
It does the copy but removes the { and } thus rendering the formula useless to me. How can I accomplish this task and keep the formula as an array formula?
I tried to drag the formula down and recorded it as a macro but when it runs it takes far to long.
View 9 Replies
View Related
May 29, 2009
I have a formula that works fine when applied to a cell K9.
IF(ISBLANK($H9)=TRUE,"",(YEAR(TODAY())-YEAR($H9))*12+MONTH(TODAY())-MONTH($H9))
What I'm trying to accompish is through VBA is for this formula move to the next row if there is a value in the H column. So now if H10 has a date value in it then K9 will have the formula "IF(ISBLANK($H10)=TRUE,"",(YEAR(TODAY())-YEAR($H10))*12+MONTH(TODAY())-MONTH($H10))"
I need this to continue for each active row.
I found a few threads with similar questions but they seemed to do more than what I wanted to do or I'm just not using the correct search criteria. Thanks for any and all help with this matter.
View 9 Replies
View Related
Oct 27, 2008
We have many spreadsheets in my lab. We have been using them for YEARS. Two days ago we ran into a bizarre problem. If we copy a formula and paste into adjoining cells we get the following
Init Values Formula copied & Pasted Results in B column
A column B Column
10 =A1* 10 100
15 =A2*10 100
20 =A3*10 100
If you copy Range("B1") and Paste it to Range("B2:B3") you get 100, 100, 100 NOT 100, 150, 200. If you click on range("B2") it says =A2*10 but the value 150 does not appear in the cell. If you manually type a formula into each line, the results are what one would expect. If I open a new workbook, copying and pasting works as always.
View 3 Replies
View Related
Dec 15, 2008
I am trying to finish off a form that allows a user to insert a row below the selected cell and copy the formula from the line above if one exists. The code inserts the line but does not copy the formulas if they exist.
Application. ScreenUpdating = False
Dim cRow
Dim j As Long
cRow = ActiveCell.Row
With ActiveCell
.EntireRow.Insert
End With
For j = 1 To Cells(1, 255).End(xlToLeft).Column
If Cells(cRow, j).HasFormula Then Cells(cRow, j).Copy Cells(cRow + 1, j)
Next j
View 9 Replies
View Related
Sep 15, 2014
Need Excel Macro or Formula for finding duplicated cells more than 5 times and copy them into new sheet.
For Example;
apple
orange
apple
banana
apricot
[Code]...
OUTPUT in new Sheet will be
apple 5
orange 5
View 1 Replies
View Related
Nov 27, 2012
I have a list of data in columns Q R S and i need to in between each line insert the data from columns D E F underneath and then underneath that the data from G H I
so bascially i have a list at the moment like this
Q
R
S
[Code]....
There is 2 sheets in total , 1 i need to inc 1-1 draw as above and the other sheet to be exc the 1-1 draw . I have attached an example of what i am trying to achieve . can offer as i have had this on excelforum.com with over 150 views and no solution
View 2 Replies
View Related
