Code To Copy A Row Of Different Formula Down
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
ADVERTISEMENT
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
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
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
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
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
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
Feb 18, 2008
I have a macro that inserts a formula on the first row and then copies it down. The problem is the row count is variable but I know it won't exceed 5000 so I just copy it down 5000. For the blank rows I get the ugly #NAME, #VALUE, etc errors.
I know there are ways to supress those error messages, but how about a way so that the macro checks to see how many rows are populated so it doesn't copy down on the blank rows.
View 9 Replies
View Related
Jun 20, 2014
I got here different vessel name with corresponding vessel code and a amount. I needed to put the amount the to corresponding vessel if it matches the vessel code. Further explanation are in the attach excel file.
View 9 Replies
View Related
Dec 10, 2008
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim ws As Worksheet
Set ws = Sheets("Sheet2")
irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Cells(irow, 1).Value = Target.Value
End Sub
I am using above formula to copy. The problem being faced is that if in any sheet of the workbook is double clicked, the data is copied in sheet 2. Is it possible to amend the formula to make it only a particular sheet(query) specific instead of Workbook.
View 4 Replies
View Related
Nov 1, 2009
I have two files and need to copy the information from columns B,C,F,H rows 5 true 29, and past it in the other file in Columns B,D,G,J; rows 3 true 35.
The code that I have works fine, but have one problem - it past the info in the rows starting from 37 instead from row 3. Here is where I need your help. The code is triggered when the condition Arr ( arrived) is chosen in the column AH ( file Delivery Status) and then the specific warehouse is chosen in the column AI. To make it easy I have left only one warehouse as a choice.
Attached you can find sample files ( I have delete the info from the heading cells as it was in another lenguage)
View 14 Replies
View Related
Nov 9, 2009
I need a little look on a Copy Paste Code, as bellow:
View 3 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
May 15, 2012
For work I need to edit some excel files, but they are sometimes full with data with over 5000 rows. Now I need to copy the rows in Sheet0 if there is data in column G and copy them into a new Sheet. If not they can be left there.
View 3 Replies
View Related
Mar 6, 2008
I am having a pricelist that is coded, If someone wanted to copy the pricelist to a new file. Is it possible to just copy the tekst without the codes?
View 9 Replies
View Related
Feb 11, 2010
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 9 Replies
View Related
Feb 22, 2010
I have a spreadsheet. it's not a big spreadsheet, it's not a complicated spreadsheet.
It links to another which is stuffed full of pivot tables and offset/match/index's.
For whatever reason the simple summary sheet regularly corrupts itself, i.e. when you close it Excel crashes (using 2003 on XP), it recovers but links are corrupted and when you open the last saved original that's corrupted too (it says data corruption has happened).
So I've added a piece of code which can recreate the corrupted spreadsheet from the corrupted version (it changes each month so a standard template won't work).
I'd like to not install an add-in on peoples PCs with the recovery code, but I can only do that if I can replicate the VBA in the new file.
can a piece of code copy a module of VBA from one workbook to another?
View 9 Replies
View Related
Dec 4, 2009
I created this spreadsheet a few montsh ago to help with forecasting for my companies products. The tabs of interest are the HIST vs FORECAST, FORECAST TOOLKIT, and the FORECAST TABLE tab – now the FORECAST TABLE tab is always hidden and if you unhide it then it will rehide itself once one of the macro’s is run. I set it that way to prevent people accidently making adjustments to the forecast data.
The way the sheet is supposed to run is that when you are on the hist vs forecast page then you can click one of the grey buttons on the right which will then graph the numbers for the relevant product on the toolkit page – so far so good, this bit all works fine, there are separate macro’s for this each named after the product they control.
Then once you are on the toolkit you can play about with the numbers until you come up with a 6 month forecast you are happy with which will be on the 6 cell line in the bottom right were it says “ IMPORT”. You can then click on the “IMPORT” button which will then copy and paste it back into the forecast table under the relevant setting – the macro for this is called IMPORT2 and it works off a “product” range and a “ date” range – again this pretty much works as intended.
Sub IMPORT2()
Dim nDate, nProd
With Sheets("Forecast Toolkit")
nDate = Application.Match(.Range("O31"), Range("Dates")) + Range("Dates")(1).Row - 1
nProd = Application.Match(.Range("I3"), Range("Products")) + Range("Dates")(1).Column...........................
View 5 Replies
View Related
Aug 15, 2006
i am trying to make a VBA that will find a certain value (BELCS), select the value, and copy it to another worksheet. this is what i have so far:
For Each BELCS In ActiveSheet. Range("B2:B" & ActiveSheet.Range("B51161").End(xlUp).Row)
If BELCS.Value = "BELCS" Then
BELCS.Select
Selection.Copy
Sheets("BELCS").Select
ActiveSheet.Paste
End If
Next BELCS
i am trying to get it to select the whole row when it finds that value but when it runs it says that i can't make a selection of the BELCS,
View 3 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
Oct 13, 2007
I am trying to paste some codes to the "ThisWorkbook" section of a file. The codes I am trying to paste will prevent the user from: doing a Save As (to keep them from saving the files anywhere else in the network) and to Disable the Macro (only showing a prompt sheet if they do so they can go back and enable the macros). The file that these codes will go to is sheet and workbook protected, and some cells are protected, and cells that they can edit have data validation formulas. In a post dated Nov 6, 2003 (thread 16750) I found a useful code that lets me paste the codes above to a target file. But when I save and close the file, the Disable macro does not work.
So I tried long method and pasted the codes into the ThisWorkbook section manually. Save and closed manually. and when I opened the file, the Disable and Enable works. Just as a background, I am a beginner with VB and I can't write my own codes yet, but I try to piece them together from forum answers. I need VB to do this because I have 263 individual files to prepare. I used to use AutoPilot, which is a scripting software but it's so prone to bonking out that I would rather do it in VB if possible. These are the codes am trying to paste:
Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then Cancel = True
End Sub
Private Sub Sheet_Activate()
Dim oCtrl As Office.CommandBarControl
For Each oCtrl In Application. CommandBars.FindControls(ID:=21)
oCtrl.Enabled = False
Next oCtrl
For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
oCtrl.Enabled = False
Next oCtrl
Application.CellDragAndDrop = False
End Sub...............
View 2 Replies
View Related
Sep 30, 2006
I am using the Networkdays function to calculate the number of working days between a date entered in A1 and a date in B2 and I have a range of holidays called 'holidays' and then have the result placed in E1.
View 9 Replies
View Related
Jul 16, 2007
I would like to copy a formula in a cell and then paste only the text of the formula, but I can't figure it out. Basically, I would like to avoid going into the cells and absolute referencing or hitting F2, then copying the text.
When I hit "Ctrl C" to copy the cell, then hit "Alt/E/S/F/Enter" to paste the formula, it is just like a regular copy/paste formula-wise in that the references move.
View 10 Replies
View Related
Mar 24, 2014
I've not had much experience with VBA code, other than recording macros and editing them a little. What i would like to do is code a macro to copy the data (text only) of a whole worksheet into a blank worksheet in a different workbook, effectively allowing the user to "upload" the data to a master workbook.
The user will complete data entry into a daily template worksheet containing all formulae to obtain necessary daily data. I would like them to then be able to click a button that runs a macro copying the text data from the daily template to a monthly workbook. I have no problem recording this in a macro and the code for that (no doubt there is a more efficient way) is:
[Code] .....
The monthly workbook will contain 31 sheets (named 1,2,3...31) for the days, and each month will have it's own workbook (named Jan, Feb, Mar...Dec).
The key thing I need is using cells within the daily workbook to determine the month and day used by VBA for the filename and worksheet respectively.
Cell B5 contains the day (eg. 1) and C5 the month (e.g. Jan)
View 8 Replies
View Related
Mar 31, 2014
So I have an option on my userform that the user input selected.
I need the data once written to the worksheet [Master] to move based on cell AD [Customer Divert / TBP Divert / Failed Delivery]
Example: Row 12 has Customer Divert in cell AD I need to keep a copy on the master sheet but also copy the entire row to the customer divert sheet.
Need code and here to input in the Code sheet?
View 7 Replies
View Related
May 16, 2014
My vba code to copy row A110 of "Mod" worksheet to A9 in Table A of "Email Data" worksheet using some logic like - in Mod worksheet it searches for data i.e. "COUNT(DISTINCTM.TRANS_ID)" if found then it searches for "row selected" and it searches for data between the two . And then it pastes 34864 to A9 of Email Data worksheet . I have written code for this but it doesn't works.
Also i need vba code similarly for searching "CAP_ACTV_LN_SEQ" and then the values inside it to be pasted i.e. row 128 and row 129 in Mod worksheet to be pasted in table e in Email Data worksheet . Remember there are 2 rows but there can be any number of row anytime.
Also the vba code for "NULLPOINTEREXCEPTION'" is there in the sheet which is working fine. It can be used for your reference.
Button for Vba code to work is present in "Email Data" worksheet.
code for "COUNT(DISTINCTM.TRANS_ID)" given below also excel sheet attached : Worksheet .xlsm
View 6 Replies
View Related
Jan 28, 2014
Im looking for code to add new rows and copy the formulas only (not values) into the cells A, B, C, D and F. I have found code that does this in various places online but in every case I have found they duplicate the row then remove the values (so the formulas are left behind). The issue I have however is that it triggers some change event code I have on the sheet which interrupts the process.
Is it not possible to simply insert a new blank row, then copy down the formulas only without values?
View 13 Replies
View Related
Feb 18, 2014
I have a file which I want to copy the lines.
I have made a test file for clarity. See annex.
View 3 Replies
View Related
Jan 26, 2008
I have two workbooks: Workbook1 has two sheets – Cash Register and Suppliers; and Workbook2 has one sheet – Clients. The users of Workbook2 do not have access to Workbook1, and information entered in Workbook2 is required (and has to be manually re-entered) in Workbook1.
I tried IFs and VLOOKUPs to pull the data, but due to the large number of cells, the workbook is awfully slow – taking a very long time to save (even with Automatic Calculation/Recalculate before save turned off).
I am using Excel 2007.
This is what I am trying to achieve:
When a user enters an ID number, which begins with either “S” (e.g., SB-00010) or “P” (e.g., PADA-012-034-0567), in column E of Cash Register:
(1)
If that ID number begins with “S”, I want the code to look up that ID number in column A of Suppliers and copy the corresponding cell from each of the following columns:
B
C
D
E
F
G...........
View 14 Replies
View Related
May 12, 2008
I'm using code that SHG provided for me here; http://www.excelforum.com/excel-programming/630464-sheet-macro-for-preventing-paste-not-working.html
It worked great in the first workbook I set up but I just set up a new workbook and it's not doing the same thing. For example, it allows me to copy items from column A which have 1 type of validation (restriction on text) to another column which has a formula validation.
It still won't allow me to paste from outside a validated range to inside but I need to prevent people from screwing up the validation between columns.
View 13 Replies
View Related