Use VBA To Apply Formula Only To Used Rows
Aug 18, 2013
I'm using this to apply a formula to a worksheet:
Code:
Private Sub Worksheet_Activate()
Range("B2:B7000").Formula = "=IF(COUNTIF($C$2:$C$7000,C2)=0,"""",COUNTIF($C$2:$C$7000,C2))"
End Sub
Is it possible to amend this so that it only applies the formula to the used range? Although the current range goes up to 7000 this increases the file size so to keep it to a minimum I was wondering if there was a way to do it only to the used range.
View 9 Replies
ADVERTISEMENT
Jan 26, 2009
I'm currently applying these formulae manually, and also instructing other people to do the same, due to my lack of understanding of macros. Hopefully someone can give me some instruction as to how to do this automatically. I'd like people to be able to open sheets sent as normal CSV's and apply a macro to get them into the right format, changing only rows with data in them.
These are the instructions I'm currently sending:
In cell n1 enter:
full phone number
in cell m2 enter:
=RIGHT("00000000" & J2,8)
Drag m2 to last record
In cell n2 enter:
=CONCATENATE(61,I2,M2)
Drag n2 to last record
In cell o1 enter:
Date of call
in cell o2 enter:
=DATE(MID(C2,7,4),LEFT(C2,2),MID(C2,4,2))
View 6 Replies
View Related
Aug 25, 2009
i have the following formula applied to a conditional format, on row 12:
cell value > less than =($K12:Y$111)*(1-0.05)
i want to use this on all rows, however i have 300+ rows.
Is there a way to apply this to all rows between column K and Y, i don't like the thought of creating 300+ conditional formats!
View 14 Replies
View Related
Aug 12, 2012
I have a conditonal format of cells across Row 2 based on the contents of cell D2. The formula for the conditional format is
=$D$2="NONE"
The formatting applies to these cells:
=$F$2:$G$2,$I$2:$K$2,$M$2:$N$2,$O$2,$T$2:$V$2,$X$2:$AA$2
I would like to fill in the same conditional format down to 51 other rows but the formatting for each row should be based on the contents of its own cell i.e. $D$3, $D$4, $D$5 etc. How can I do this with code?
View 2 Replies
View Related
Sep 22, 2013
Using VBA, I randomly input values in A1: C1 and it will show total sum in D1. It will be range
("D1")= "=sum(A1:C1)".
Question is how do I apply same method to the rows below without typing range
("D2")= "=sum(A2:C2)", range("D3") = "=sum(A3:C3)" and list goes on.
View 2 Replies
View Related
Nov 18, 2013
build a spreadsheet that reads information off of a Master sheet onto 4 other sheets. The hope is that by making changes ONLY to the Master sheet that the other 4 will update automatically.
And then we ran into the trouble of not being able to insert new lines onto the Master sheet without throwing everything off on the other sheets.
(I've attached an example.)
For instance, if I go to the Master sheet in the Test.xlsx attachment, I've left out Lima from the alphabet. So, I insert a new row onto the Master, switch back to the Formula sheet where it should (theoretically) just update the cells to display the new data.
Not so. The Formula sheet just skips the new A13 and keeps on going.
the primary one seems to be using Offset. Well, the coworker will be adding and deleting many, many rows over the course of the year, as it is a product log and we change our products often.
View 3 Replies
View Related
Nov 26, 2008
is it possible to apply a formula to a whole column just one time, so I don't have to copy/paste it every time I insert a new row?
View 14 Replies
View Related
Sep 22, 2009
Instead of looping through 700,000 lines of data and applying a formula one by one, isn't there a way to simply apply the lines below to all cells in a range at once?
View 3 Replies
View Related
Aug 10, 2014
I am looking to get a formula based on my spreadsheet attached
I want F column to add 5 days onto whatever date you put in there then correspond it to the matched date period in I2-I6 then apply the pay period from H2-H6 and put it in the G Column next to the date that has been input?
Is this possible?
Book1.xlsx
View 5 Replies
View Related
Nov 26, 2005
I downloaded the checkbook register from Microsoft.com and am trying to add a
few cells at the end to quickly calculate my outstanding debits and credits
so that I can balance my statements automatically. I figured out how to write
the formula properly (eventually), but the cells will not take on the
currency format no matter what I do. I have tried pasting the format from the
other cells within the register, tried clearing the format and reapplying the
currency format, tried accounting, etc.
View 9 Replies
View Related
Jan 5, 2013
Can we apply any formula in the pivot table?
View 1 Replies
View Related
Jan 20, 2014
I'm using the code below to create sheets and copy pertinent data for each value found in column O on my data sheet.
Code:
Sub CreateSheets()
Dim WBO As Workbook
Dim ThisWS
[Code]....
What I'm now trying to do, is apply a formula for each cell, in columns C:N for each newly created sheet. The formula is 'The value of 100 minus the value of the cell'.
I've tried adding
Code:
cell.Value = 100 - cell.Value
to differing points of the script but I recieve a 'Type mismatch error.
View 2 Replies
View Related
Jul 6, 2009
i m trying to set up a macro to convert a range of user-highlighted(selected) cells to 3 significant figures: for example, convert 0.135564 to 0.136
the equation i found elsewhere online: ROUND(xx,3-(1+INT(LOG10(ABS(xx))))). but i can't quite figue out how to apply the equation to a selected range of cells via a macro.
View 5 Replies
View Related
Jun 30, 2009
Hello, below is a sample of my excel sheet. The number of rows keep changing daily and the Month and year column has to be populated automatically as and when there is a new row inserted. I tried the formula =MONTH(A:A) and I paste it on the entire column. it works for rows with data but I also get 104,000 odd blank rows added to my excel because I pasted the formula on the entire column.
View 7 Replies
View Related
Apr 14, 2014
Cell A1 is going to be used as my true/false value to trigger the formula. Cell A2 must allow user input to calculate "what if" scenarios however, if cell A1 value = true then cell A2 = 0.
I think I need to place my formula into A3 to allow the user their input to A2 without overwriting my formula. Problem is if I place the = sign in front of IF, the formula does not work the way I need it to. If I don't place the = sign in front of IF excel just treats it as a text entry.
=IF(A1="Actual",A2=0)
IF(A1="Actual",A2=0)
I have inherited this workbook and am just trying to automate the functionality to streamline.
View 5 Replies
View Related
Jan 29, 2007
way to put a simple formula in a colum that will apply to the entire column, no matter how many rows without having to physically copy it to the number of rows required?
View 11 Replies
View Related
Aug 7, 2012
I have a excel sheet from a supplier of mine, that has a mixture of text, and numbers and more importantly "Custom format cells" that have prices in them. I need to apply a multiplication formula to each price, but they are all in different rows and columns, and it will take forever to type a formula into each cell.
Is there a way that if I can select all these cells, to add a global formula that will update all these cells?
View 3 Replies
View Related
Aug 27, 2013
I am trying to come up with a macro that will find rows that contain the words �as % of Revenue� and then calculate and apply the appropriate formula to the actual and budget columns. I have attached a sample of what the source data look like.
The formula divides the category�s total expense by the revenue in row 4. For a complete macro, I would want to also subtract the budget result from the actual result and put its result in the �better (worse)� column. I need to use this on 12 or so different workbooks which is why I�m wanting a macro.
Here is my attempt to accomplish this task; however, I quickly realized it is woefully inadequate because I neither understand how to apply it to the different columns or how to find the next instance of �as % of revenue�).
VB:
Sub Macro1()
'
' Macro1 Macro
'
Range("B10").Select
Cells.Find(What:="as % of Revenue").Activate
Range("B20").Select
ActiveCell.FormulaR1C1 = "=R[-1]C/R10C"
Range("B21").Select
End Sub
View 8 Replies
View Related
Aug 10, 2014
I am looking to get a formula based on my spreadsheet attached
I want F collumn to add 5 days onto whatever date you put in there then correspond it to the matched date period in I2-I6 then apply the pay period from H2-H6 and put it in the G Collumn next to the date that has been input?
View 1 Replies
View Related
Sep 12, 2009
I am trying to apply named cell from another worksheet to existing formula.
For example I have a formula in sheet2 which looks like =sheet1!A1+sheet1!B1. I then subsequently name sheet1!A1 = Jan and sheet1!B1 = Feb. Thinking that if I apply these names the formula in sheet2 would look like =Jan+Feb. However I get the message "Microsoft Office Excel cannot find any references to replace" when I try to apply the names using Excel menu "Insert - Name - Apply".
View 4 Replies
View Related
Jul 19, 2013
I need to do something to my workbook, and I need to do this task:
When I insert/delete a column between E & F in sheet 1, the formula (not the value) in the column E was applied too to the new column I've inserted/deleted..
Then, when that happened to the sheet 1, It would happen too to the other sheet automatically..
So I don't need to insert/delete the row and copy the formula manually for each worksheet..
I know that I could simply solve it with grouping the sheet tab..
But I have plenty of data that needed to be inserted and applied with the formula..
I will attach the little example : insert.xlsx
And one more thing, I received this VB code from [URL] ..... for inserting the column:
VB:
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim lngRow As Long
Dim ws As Worksheet
If Target.Row = 1 Then
Cancel = True
[Code] .....
And this code for deleting the column:
VB:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim lngRow As Long
Dim ws As Worksheet
If Target.Row = 1 Then
Cancel = True
[Code] .....
View 9 Replies
View Related
Aug 22, 2012
I am using this code and it works fine:
Dim MyData As Range
Dim MyResult As Range
Set MyData = Range("E1:E1000000")
Set MyData2 = Range("F1:F1000000")
Set MyResult = Range("J4")
MyResult.Select
Selection.Formula = "=COUNTIFS(" & MyData.Address & ",""=Kim""," & MyData2.Address & ",""=done"" )"
Is there any way I can change the code so that it automatically finds the last cell as Im using Range("E1:E1000000") and Range("F1:F1000000") because there will not be more than 1000000 entries.
View 2 Replies
View Related
Apr 24, 2014
see the attached spreadsheet including the data. In Column AA I have created a formula that looks at Column B, and pulls each unique value from that column. add to this formula, or propose a new one, that pulls unique values into column AA if at least one of the rows has an "Actual Finalization Date" in column D that is in 2014?
View 1 Replies
View Related
Jun 9, 2009
I have a macro which is copying data from several worksheets into one consolidation worksheet. When determining where to paste the data into the consolidation sheet, the macro includes some logic to find the last row that has data in it (using e.Range("A65536").End(xlUp).Row, where "e" is a variable holding the name of the consolidation worksheet).
Once all the data is on the consolidation worksheet, I have a second worksheet with formulas that link to the consolidation sheet. The issue I have is that the first step of my consolidation macro deletes all data on the consolidation sheet to ensure that no data is double-counted). I am deleting the data with logic that simply deletes all rows from 3 to 65536. Once these rows are deleted, Excel returns a #REF! error on my second worksheet which is linking back to this data.
Rather than deleting the rows on the consolidation sheet, I have tried using the Clear and/or ClearContents commands instead. This works (i.e., my formulas no longer error out), but results in the consolidation macro running very slowly (~15 minutes, compared to
View 9 Replies
View Related
Feb 15, 2010
dear friend in my document column "L" has some numbers & formulas.if any cell has formula base in that i need to inset rows below that formula cell & that formula need to spread on that new rows.i have 4 type of formulas.each formula has (1.5).that part is common. it 's like this...
(01.)ex- L1 cell =150*2*1.5 ,need to inset one row below this cell & after running the macro it should change like this..
L1 cell =150*1.5
L2 cell =150*1.5
(02.)ex- L1 cell =150*2*1.5+50*1.5 ,need to inset two rows below this cell & after running the macro it should change like this..
L1 cell =150*1.5
L2 cell =150*1.5
L3 cell =50*1.5
(03.)ex- L1 cell =150*2*1.5+130*3*1.5 ,need to inset four rows below this cell & after running the macro it should change like this..
L1 cell =150*1.5
L2 cell =150*1.5
L3 cell =130*1.5
L4 cell =130*1.5
L5 cell =130*1.5
(04.)ex- L1 cell =150*2*1.5+130*3*1.5+20*1.5 ,need to inset five rows below this cell & after running the macro it should change like this..
L1 cell =150*1.5
L2 cell =150*1.5
L3 cell =130*1.5
L4 cell =130*1.5
L5 cell =130*1.5
L6 cell =20*1.5
View 9 Replies
View Related
Sep 30, 2008
I have the following codes to delete all blank rows in column A
Dim lastrow As Long
lastrow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
MsgBox lastrow
With Sheet1
For t = 1 To lastrow
If Cells(t, 1) = "" Then
Rows(t).Delete
End If
Next t
End With
End Sub
Although it is working , it is not deleting all the blank rows at once, I have to keep pressing on the macro button running the macro several times, until all blank rows are completely deleted.
View 9 Replies
View Related
Apr 10, 2014
For my thesis dataset I am looking to insert two rows after every six rows (the company name) in a dataset with approximately 30,000 rows.
For the first extra row that would be cell 4/cel6
For the second row that would be cell 5/cel6
A picture is added below in which I have manually entered these formula. Is there any way to make this a swift operation rather then a manual one?
untitled.JPG
View 1 Replies
View Related
May 11, 2009
I am trying to record a macro that edits a rows data, and simply copies it to a new cell further along on the same row,. but i then want it to move to the next row down, and apply the same macro to that run, and continue until there is no data in the last row,. How do I get the macro to continue to the end of the data.
View 5 Replies
View Related
Nov 23, 2013
I want to apply conditional formatting by VBA. Cell Q2 contains the month number, (in this case 11). I want each cell in the range D2:D50 to be filled in red and the word 'UNPAID' appear if Q2 is greater than 10 and the cell is blank, otherwise no formatting at all. I'd like this to be triggered on the Worksheet_SelectionChange event if at all possible.
View 4 Replies
View Related
Sep 14, 2012
I am trying to create a macro (which will go in an add-in, using Excel 2007) which will apply a custom format to any selected cells which have their formulae hidden (Format Cells, Protection, Hidden). A similar macro works fine for locked cells.
Here is the UDF I wrote, which returns True/False based on the Hidden status of a cell:
VB:
Public Function Hidden(Check_Cell As Range)
Hidden = Check_Cell.FormulaHidden = True
End Function
[Code]....
just place all three pieces of code into a module, and change the first line of the two macros to a standard "Sub Macro1()" type format.
View 9 Replies
View Related
