Macro Code To Insert Relative Formula Into Range

Jun 10, 2008

I have a formula that works fine in the cell of an Excel spreadsheet but I'm struggling to translate it into VBA (your help please).

The cell formula is:

=If(B2="", "", B2 & " (version: " & F2 & ")")

I want to iterate through all rows in my spreadsheet (about 2000) incrementing the relevant row numbers in the formula @ each pass - eg changing B2 -> B3 -> B4 etc and F2 -> F3 -> F4 etc where column 'B' contains the name of the product and column 'F' contains the version number, resulting in "Product Name (version: 123)" per row.

The closest I've got to this is:

Sub LookupNameInColumnA()
Range("A2").Select
Dim i As Integer
For i = 1 To Selection. CurrentRegion.Rows.Count - 1
ActiveCell.Formula = "=IF(B2="""", """", B2 & "" Version: 999"")" ' problem line?
ActiveCell.Offset(1, 0).Select
Next i
End Sub

This works OK'ish but I want each line to reflect the different data per row. I'm struggling to increment row 'B' and row 'F' in the formula, having tried "B & i + 1" and "F & i + 1" but am getting confused with quotes and concatenating strings within formulas.

View 5 Replies


ADVERTISEMENT

Insert Relative R1C1 SUM Formula Into Cell Via Macro Code

Apr 24, 2008

Hello I'm looking for some clarification about how to use "= SUM(RC:RC)". I don't understand what the RC:RC represents. I thought that this was the directions for where to "position" the formula, but I think I'm missing something.

I was able to include the correct cells that I need summarized, but the answer is not right; it's zero.

Public Sub SubColumn(CritStr As String) ...

View 8 Replies View Related

Insert Relative Formula Into Range Via VBA

Nov 25, 2007

I am updating a wsheet via a form using vb to locate next empy row etc.
The issue I have is with the formula's no matter how I try I cannot get the formula to increment with each row. I know I can drag and auto fill on the sheet but I want to use vb if poss. eg

Previous entry to sheet:-
A1=1
B1=2
c1=A1+B1(formula)

New entry via form selecting next empty.
A2=(updated from form.)
B2=(Updated from form.)
C2=(Update code VB)

This is all okay and functional the problem starts from here
I so far have been unable to increment the formula in c1 from A1+B1 to A2+B2 using vb, is this possible or am I just chasing my tail.

View 3 Replies View Related

Add Relative/Absolute Formula To Range Macro

Sep 22, 2007

using a macro im trying to paste in a sum formula, however this will be pasted onto different sheets and the number of records will be different for each so i cannot use absolute locations. the only constant is that all ranges will start in row I9. when it runs the following code

Range("G" & (ActiveCell.Row)).Select
ActiveCell = "Total"
Range("I" & (ActiveCell.Row)).Select
ActiveCell.FormulaR1C1 = "=Sum(I8:R[-1]C)"
Range("J" & (ActiveCell.Row)).Select
ActiveCell.FormulaR1C1 = "=Sum(J8:R[-1]C)"
Range("I:J" & (ActiveCell.Row)).Select
Selection.Copy
Range("I4:J4").PasteSpecial

it fills in =SUM('I8':I13) how can i make it insert it without the ' ' around the I9? and how can i select the two cells? (again, cannot be absolute..)

View 3 Replies View Related

Insert Formula Into Range Macro

Oct 6, 2007

My macro inserts the formulas correctly up until the last loop where I get an Application Defined or Object Defined error on the .FormulaR1C1 line. The msgbox returns the correct values.

iCtr = 0 'data starts on 1
For c = 6 To 14 'columns F to N
iCtr = iCtr + 1
MsgBox ("Column " & c & " Index " & iCtr)
With . Cells(6, c)
.HorizontalAlignment = xlCenter
.NumberFormat = "#,##0;;"
.FormulaR1C1 = "=IF(ISBLANK(INDEX(MyNamedRange," & iCtr & ",1)),"""",'" & Replace(MainPage.Name, "'", "''") & "'!R" & NextRow & "C6)"
End With
Next

View 5 Replies View Related

Insert Formula Into Non Contiguous Range Via VBA Macro

May 29, 2009

I have recorded a macro code for which is as follows. This Macro goes into a worksheet and gives percentile value for a range of data. But this is becoming cubersome as this sheet is 65531 rows and can span multiple spread sheets. Can this be put in a loop of some sort to go through the whole worksheet? ....

View 9 Replies View Related

Code To Auto Populate A Relative Formula Into A Column

Mar 13, 2009

I have a report that I run off a database and extract to Excel.

It has 3 fields: Title; FirstName; LastName. For example sake lets say they are in columns A, B, C. Now in D I have a fieldname of FullName and in D2 onwards the formula: =A2&" "&B2&" "&C2.

Now I currently manually type the formula and drag it down to the same row as the last entry in the first 3 columns so that I get the full title in one cell.

I wanted to know how I could enter the the formula above in column D so that it automatically does this for me?

I tried to record a Macro as a test for column D setting the field name in D1 and the formula in D2 and got the following:

View 2 Replies View Related

Fill Relative Formula Into Range

Jan 23, 2008

Here is my array code


Dim Values() As String
Dim count As String
count = 9
For count = 9 To 1800
Values(count) = "=IF(AND(E" + count + "<>"""",AH" + count + "<>0),(AH" + count + "/E" + count + ")*100,0)"
count = count + 1
Next

I'd make it a static array but eventually I'm going to have to set it up where I wont know the upper bound.

Here is the other part of my code that I don't know what I'm doing.

If Range("A9") > 0.01 Then
Range("AI9:AI1800") = 0.01
Else
Range("AI9:AI1800") = Values
End If

I keep getting mismatch errors on the count variable, but I need it to be a string so I'm not sure what do here.

View 9 Replies View Related

Relative Indirect Formula To SUM Range

Feb 13, 2008

I am using VB in Excel to write a formula for summing a column of numbers that will vary in length. I have been using the Indirect formula and have the start and end cells of the range identified in another location. My problem is, the macro in vb is sending the Indirect formula to the cells containing the start and end points by using relative functions ie. go across 30 columns and up 10 rows to get start cell. I wanted it to just save the cell location of the start and end points.
EG.

VB formula is: "= SUM(INDIRECT(R[-23]C[27]&R3C29):INDIRECT(R[-23]C[27]&R3C30))"
whereas I just want it to read "=Sum(Indirect(C4&D5):INDIRECT(C4&D6))"

where cell C4 gives the column letter and D5 the row number of the start of the range and C4 and D6 give the column letter and row number of the end of the range.

View 9 Replies View Related

Increment Formula Reference Relative To Copy To Range

May 26, 2008

In my data validation I have the following formula as the Source: =INDIRECT(SUBSTITUTE($F$2," ","_")). I want to be able to copy the cell and paste it into another cell and have the formula update to reference the new cell. Currently the validation is for cell G2 and references F2. I want to be able to copy G2 and paste it in G3-G6 having the formula update so it refrences F3-F6.

View 3 Replies View Related

Change Multiple Formula Range References Between Absolute/Relative

Mar 16, 2008

Is there a way to absolute reference multiple cells at one time?

View 5 Replies View Related

Macro To Fill Column With Relative Formula

Nov 21, 2007

I want my column to be populated by formula using VBA. Let's say on row1, the formula is = SUMIF(mysheet!$L:$L,$A1&C$1&"09",mysheet!$M:$M). And on row 2, the formula is
=SUMIF(mysheet!$L:$L,$A2&C$1&"09",mysheet!$M:$M). And on row 3, the formula is =SUMIF(mysheet!$L:$L,$A3&C$1&"09",mysheet!$M:$M). And this is done up to the last row. How do I do this?

View 9 Replies View Related

Insert Formula With Code

Jan 7, 2007

Event type Houring rate Hours worked Total amt to be paid
A 30 2 XXX
B 10 1
C 20 4

Using this example, i wish to add a formula using VBA in cell XXX. Hence, the formula in EXCEL in cell xxx would show =b2*c2+b3*c3+b4*c4.

View 3 Replies View Related

Vba Code To Insert A Formula To Certain Cell

Aug 14, 2008

I try to put a formula to a certain cell using this code, but I get application defined or object defined error:

HTML Selection.Cells(1).Offset(0, 5).Formula = "=INDEX(range1;MATCH(""D""&C13;range2;0);MATCH(""S""&D13;range3;0))"

The weird thing is, that if I type the same formula itself to a cell, it works, so the problem shouldn't be with the formula:

HTML =INDEX(range1;MATCH("D"&C13;range2;0);MATCH("S"&D13;range3;0))

On the other hand I tried to replace the formula in my VBA code with simpler one, like this one and that worked aswell:

HTML Selection.Cells(1).Offset(0, 5).Formula = "=a1+a2"

View 10 Replies View Related

Code To Insert A Formula In Cell

Sep 2, 2009

I'm using the below to code to insert a formula in cell E1, what am i doing wrong here.

View 5 Replies View Related

Insert An Icon Relative To The Button Location

Jul 30, 2009

I was wondering if i could get a hand with inserting a file. Is there a way to insert the file and have it placed a relative distance from the insert button without using cell references?

View 2 Replies View Related

Insert Relative Function That Uses Variables Into Cell

Mar 4, 2008

I am using VB to insert a function into a cell on an excell worksheet. The relative references work fine. For the absolute reference, I want to use a named range (LowTotal). If I simply put the name into the function, then I just get the name as text in the function. The second insert formula is were the named range is intended to go. Here is the code so far...

I need to know how to use the varriable name in the .formulaR1C1, so that VB knows it is a variable and not just text....

View 4 Replies View Related

Insert Sheet & Name Macro Code

Apr 8, 2008

I am trying to insert 50 tabs (at different points in time during a macro) that each has a state abbreviation. I know how to get the macro to add a tab, but to name it, it wants to select " Sheet 4". The problem with this is, the tab that was created might be sheet 15 or sheet 1, and I need it to be able to name the tab no matter what sheet # it is.

View 7 Replies View Related

Insert Data Validation Via Macro Code

Mar 1, 2008

I have written the below code to enter some formulas, validation, and formatting. I keep running into a problem when trying to add the first validation.
The debug msg is...

Run-time error '-2147417848 (80010108)':
Automation error
The Object invoked has disconnected from its clients.

Debug highlighted portion is...

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=PRODUCT" ....................

View 9 Replies View Related

Write Vba Code Using Vlookup Formula Insert Pic From Picture Folder?

Mar 14, 2013

how to write vba code using vlookup formula insert pic from picture folder

View 5 Replies View Related

Macro Code To Find / Insert And Fill Text?

Oct 11, 2011

I need a macro script that goes to a particular cell in a column based on a criteria (say, locate the first instance where $0.21 appears in col. H), insert a row above it, and fill the row with the text "Note:These are above $0.20"

View 2 Replies View Related

VBA Code To Convert Excel To Text File Of DML Statements (Insert) Using Macro

Jun 11, 2014

I need a VBA code to create a Text file which should be in the form of DML (my scenario is to get Insert Statements for the Data available in the Excel) from Excel Sheet. And this has to be done by assigning a macro to command button where by clicking on it the DML text file should be generated. Even the syntax for the scenario will do.

View 1 Replies View Related

Insert Formula In Range Of Cells VBA?

Sep 6, 2012

i am trying to insert a formula into a range of cells using a For... to loop

This is what it looks like:

VB:
For i=1 To n
Worksheets("Ret_sheet").Cells(i, 8).Formula = "=if(mid(B" & i & ",3,1)=""A"",""PY Campaigns"",mid(B" & i & ",4,3)"
Next i

The row with the formula returns a syntax error.

what the right syntax is? I have read a lot about inserting a formula in a cell using VBA, but i never met the case with a counter (i) usage. I guess the problem might be there.

View 8 Replies View Related

Insert Formula In Dynamic Range

Oct 12, 2007

I am trying to insert a formula into the cells in a column dynamic range.

I never know how long the column will be from instance to instance.

I have been trying to use the following code,

Sub insertf()
'
' insertf Macro
' Macro recorded 10/11/2007 by bbactadmin
'

'
Do Until myrange.Value = ""
ActiveCell.Range("f10").Select
ActiveCell.Offset(1, 0).Range("f1").Select
Range.Formula = _
"=VLOOKUP(LEFT(E11,3),fam,2,FALSE)"
ActiveCell.Offset(1, 0).Range("f1").Select
Loop
End Sub

I am trying to insert the lookup in all of the cells in the column within the dynamic range.

View 8 Replies View Related

Insert And Show Formula With Named Range?

Jun 3, 2014

Trying to get this short piece of code to work. I'm trying to show the formula in the cell not just return the result.

[Code] ......

Why this isn't working ?

View 5 Replies View Related

Macro To Insert Row Across Range Of Worksheets?

Apr 16, 2014

I have run into a problem with a Pivot Table overwriting other content when new data is added and refreshed.

This pivot table is included across a range of "Product" worksheets. To resolve this issue I would like a macro to insert a new row below the pivot table , this way when new content is added the pivot table will not overwrite the content below it.

The Pivot Table data is on the "Client" worksheet. Each Product worksheet includes a Pivot Table referencing the the Client data. I would like to force a user to add a new client data with a macro this way I can force a new row to be inserted across All "Product" worksheets.

View 3 Replies View Related

Macro To Insert Formula

May 1, 2014

I once heard that in order for a macro to insert a formula you must double all the quotations. Anyway, i did so in the following macro but i got an error message.

View 3 Replies View Related

Insert Total Formula Using SUMIF And Named Range

Jul 21, 2006

I am trying to put a SUMIF formula at the bottom of the data. Doing it manually is fine, but I want some vba to automate it, and my vba doesnt work.

Sub balance()
'adds journal line so journal balances in each month

Dim Rga As Range
Dim Rgb As Range
Dim Rgc As Range
Dim Rgd As Range
Dim Rge As Range
Dim Rgf As Range

This code just inserts text into the formula, rather than the range of cells.

View 6 Replies View Related

Macro To Insert Formula And Fill Down To Last Row?

May 21, 2014

I need a macro that will insert this formula: =Trim(IF(B3="","",MID(B3&", "&B3,FIND(" ",B3)+1,LEN(B3)+1))) into column C starting on row three through the end of the spreadsheet information.

I typed this incorrectly when I first posted. I need it to fill down into only column C not the end of the spreadsheet.

View 14 Replies View Related

Macro To Insert Column / Formula?

Feb 18, 2012

I need a macro that will insert a column next to column B, and insert formulas into the new respective cells. forumula needs to be in the macro, it won't be located somewhere else on the sheet (for simplicity's sake, let's just say the formula is =A1+B1, then A2+B2 in the next row, etc). Also, it needs to stop inserting formulas when there's no more data in column B.

View 1 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved