Select / Activate Specific Row Then Copy Format / Formula To All Blank Rows
Jan 21, 2012
I need a code that will copy the format AND formulas of the entire row that I have selected (or activatedwith my cursor) to each and every blank row - until it gets to the last row of data on this spreadsheet.Since any employee could have more than 1 row of data - I am using a code that inserts1 blank row after each NEW employee name.
NOTE: This report is initially sorted by employee name so that each occurrence is grouped together.REPORT SPECIFICS:1) This report reflects typical paryoll information.2) Certain columns have data that is either in text, general, or number ($) format3) The number of columns may vary depending on which PR report is being worked4) For the sake of simplicity - we can assume that the column titles will always be across row 15) Each employee name on this report may repeat several times depending on how many weeks they worked,so the SUM() formula should adjust automatically to capture all the rows of data to add up for each employee
HERE IS MY SPREADSHEET:
texttexttexttexttextformulaformulaformulaDeptDivEmployee NameEE#Period EndHrs WorkedPTOAccrd LiabilityCSDINSEWilma Wilsont4561/7/1280.5$ 100.00 CSDINSEWilma Wilsont4561/16/12121$ 200.00 CSDINNECage Nick2581/7/1281$ 600.00 CSDINNECage Nick2581/16/12245$ 25.00 CSDINNECage Nick2581/23/12323$ 25.00 CSDINWPolly Cracker1781/7/12856$ 60.00 CSDINWPolly Cracker1781/16/12242$ 654.00 ARVIPWPolly Cracker1781/23/12322$ 2.00 ARVIPWPolly Cracker1781/28/12161$ 5.00 ARVIPWPolly Cracker1782/6/1284$ 3.00 CSDINSEDim Sum6871/7/1284$ 65.00 CSDINSEDim Sum6871/16/12126$ 5.00
HERE IS MY CODE TO INSERT 1 ROW
Sub InsertRowAtNewNameONE()Dim LR As Long, i As LongLR = Range("C" & Rows.Count).End(xlUp).RowFor i = LR To 2 Step -1If Range("C" & i).Value Range("C" & i - 1).Value Then Rows(i).InsertNext iEnd Sub
NOTE: See below: I will format and add formulas where I need on the 1st blank row that was createdand I need a code that will copy this particular row to all blank rows to the last.
recordtexttexttexttextcountformulaformulaformulaDeptDivEmployee NameEE#Period EndHrs WorkedPTOAccrd LiabilityCSDINSEWilma Wilsont4561/7/1280.5$ 100.00 CSDINSEWilma Wilsont4561/16/12121$ 200.00 2201.5$ 300.00
View 5 Replies
ADVERTISEMENT
Jan 30, 2013
I have spreadsheet of data, I need to extract any rows that have blanks cells in columns F or P or T.
If possible I would like a macro I could run that would cut all of the rows that meet the above criteria and paste them in to a separate sheet.
View 2 Replies
View Related
Nov 15, 2009
Column A lists an account code on the summary line of each invoice. I'd like to copy this account code upwards for each individual line of the invoice so that I can summarise each type of charge by account code in a pivot table.
I'm a bit stumped as to how to do it. If possible I don't want to have to modify the data itself in any way so that I can paste new data in the each day without altering it.
I've started on the right with a CountA function for each row, which I was intending as a means to identifying the blanks rows and discount them, but it also showed up that each line requiring an account code to be copied returns a 4 and each invoice summary line returns a 9. I'm just not sure how to reflect this in a function.
View 4 Replies
View Related
Nov 12, 2008
I need to get a function that can copy some rolls in a worksheet 1 to worksheet 2 by sorting worksheet 1 according to column A of that sheet. I have attached a sample of what i intent doing for bether understanding.
View 2 Replies
View Related
Mar 30, 2012
I came across this code that selects (and extends) cells between the active cell and the next cell with data.
Is it possible to modify this so that it selects the entire Rows ?
Code:
Sub Test()
If Selection.Select "" Then
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Else
Range(Selection, Selection.End(xlToRight)).Select
End If
End Sub
View 4 Replies
View Related
Feb 17, 2008
I have a problem with the following code.
I want to select multiple rows in a very huge spreadsheet. But, when I
use this code, I receive an error: Runtime error 1004, Method ' Range'
of Object '_global' failed. What is wrong? Or maybe there is other
better way to select automatically empty rows in a spreadsheet?
Public Sub delhol()
'
' delhol Macro
'
' Keyboard Shortcut: Ctrl+d
'
Dim k As Variant
Dim rr As String
k = Array(34, 35, 38, 39, 40, 77, 133, 182, 207, 209, 225, 226, 295,
299, 300, 338, 394, 437, 468, 470, 480, 481, 560, _
591, 599, 655, 712, 729, 746, 755, 756, 852, 860, 962, 990, 1005,
1006, 1077, 1081, 1082, 1083, 1114, 1176, _
1217, 1252, 1260, 1261, 1338, 1342, 1343, 1344, 1375, 1381, 1437,
View 4 Replies
View Related
Feb 13, 2010
Feedback.xls is the file I want to have my macro run in. By pushing a button to run the macro, it will prompt the user to select where their file is on their computer. This file will have different file names based on the end user. For example sake, I've included CAP.xls.
After the user selects their file, it will prompt them to choose which tab to copy and paste data from. Typically, there will be 30+ tabs on their worksheet. For example sake, I've created 5 tabs on CAP.xls. The tabs in their workbook will be labeled as I have labeled mine, M1 CAP, M2 CAP & M3 CAP. Therefore, it should prompt the user to select which tab to choose from.
After the user selects their tab (M1 CAP, M2 CAP, M3 CAP), the macro should prompt the user to choose which row of information to copy. In CAP.xls, I have a few rows of information to choose from. They all start with FY10A1, FY10A2, FY10A3, but this information could change. Once they select the row, it will copy each of those fields onto the respectively labeled fields on Feedback.xls.
View 5 Replies
View Related
Nov 28, 2012
I have been trying to write VBA which basicly search for specific value in column A and copy values from that cell to down and two columns next. Select row and columns down after specific value in column A was find.
Like this
A B C
... ... ...
X 100 115
... ... ...
up to last row
I try with VBA below but it do not works.
Sub Select_Rows_GK()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
If Range("A" & i).Value = "9000" Then
Range("A" & Rows.Count).Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
Exit For
End If
Next i
End Sub
View 3 Replies
View Related
Jan 31, 2008
A macro that will delete a tab or tabs in a file if and only if rows 11, 13, 23 & 25 are completely blank within that tab?
So basically ALL rows would need to be blank, if there is any data within any of those rows, then tab should NOT be deleted.
View 9 Replies
View Related
Apr 6, 2007
1. What's the difference between:
Worksheets("Sheet1"). Range("A5").Select
and
Worksheets("Sheet1").Range("A5").Activate
?
2. Can I use a Selection. method with an object 'selected' using .Activate in the preceding code line?
3. Say I am currently on Sheet2, Cell A5. When I click the macro button, I want Excel to copy the value from Sheet1, Cell A5 and paste it into Sheet2, Cell A5. But I do NOT want the screen display to actually jump from Sheet2 to Sheet1, and then back to Sheet2. So do I need to use .Activate, or .Select, to copy the value of Sheet1, Cell A5?
View 4 Replies
View Related
Oct 17, 2009
I want to insert blanks rows above rows that have the number 1 inserted in column C.
I about 60,000 rows in all, doing it manually takes forever because I have to keep waiting for Excel to push the rows down every time I insert a new row.
Is there an efficient way to grab all the rows with a 1 in column C and insert rows in one swoop? If not, I will settle for any way other than manually.
View 9 Replies
View Related
Apr 4, 2012
I'm trying to figure out the if conditions for this relatively simple problem. Basically, this is an import from a word document where the table strays onto a new page. I want to try and repair this with a bit of VBA.
This is what it looks like:
1: cell 1 |the content should all be in this cell
2: |but the import sometimes splits it into two
3: cell 2 |
Basically if and only if cell Ax is blank (in this example A2), then I want the rows to merge each cell and repair the table.
View 1 Replies
View Related
May 4, 2014
i want to delete entire blank row from column C2:C300 i mean if i have data c2:c100 then c101:c300 delete entire blank rows
View 4 Replies
View Related
Jun 3, 2009
What is the quickest way to eliminate .Select, .Selection and .Activate from code to increase efficiency?
How do I refer to the range and workbook without selecting them first?
View 14 Replies
View Related
Oct 30, 2013
What's the difference in *.select and *.activate is?
IE, workbooks("workbookname.xls").activate and workbooks("workbookname.xls").select.
View 3 Replies
View Related
Feb 19, 2013
I have a spreadsheet with columns and columns of data. What I'd like to do is identify which rows have blank/no data in all specified columns (H, K, O, S, U, W, and Y).
To clarify, I need to identify each row where all of these columns are blank (as opposed to each row where at least 1 column is blank).
View 3 Replies
View Related
Nov 26, 2013
I have a data copied from pdf to excel and need to segregate the data page wise so i need a macro to set the pages in specific cells example page 1 ranging from A1 to A60
Page 2 ranging from A61 to A120 and so on
Example of pdf data
PAGE 1 Should be in cell(A1 to A60) - Data can be less than cell A60 but page 1 should be within this range
A 1
CHURCH 6
HOUSE 5
[Code] ......
PAGE 2 Should be in cell(A61 to A120) - Data can be less than cell A120 but page 2 should be within this range
A 1
CHURCH 6
HOUSE 5
[Code] ........
View 1 Replies
View Related
Feb 23, 2010
I need a VBA to delete rows with blank cells within columns F - AZ
Columns A - E contain headers but also need to be deleted if cells in columns F -AZ are blank.
View 9 Replies
View Related
May 1, 2006
how to exclude a blanck cell from logic?
I have tried what you see below but neither works as desired.
If Not vData(n, 9) = 0 Then
If Not vData(n, 9)Is null Then
have corrected code error
View 9 Replies
View Related
Apr 7, 2012
I'd like to be able to search a spreadsheet for a specific word or series of characters. Once all of the ROWS that contain the characters are found, I'd like to be able to have another spreadsheet with ONLY those rows (all columns).
View 8 Replies
View Related
Aug 22, 2008
Does excel have a formula to check to see if every row in a specific column is blank and if it is then set the value?
View 10 Replies
View Related
Jul 1, 2012
I am using a conditional formula to compare if a cell in column A is higher than a cell in column B. If a cell is blank the cell is formatting. I am trying to highlight only cells with numbers. Any formula to place in the conditional format formula that will evaluate the cells excluding a blank cell?
ie: grapes and pears should be highlighted because value in column B is less than column A but the conditional format is highlighting apples also where apples should have no highlighting because the value in column B is none or blank.
A B
oranges 2.49 3.25
grapes 1.99 1.89
apples 1.00
pears 1.11 1.03
View 2 Replies
View Related
Apr 23, 2009
I need code that will look for a number in cell C1 and then it starts at C9
selecting cells to copy until it sees a cell with a number larger than what is in C1 and stops.
i need code for this since the number in C1 is always changing
Example: if there is an 18 in C1 it selects all cells that are >0 and <19
these cells are always sorted 123456........36 they are not random in order like 1 17 6 12 18 4 3
View 4 Replies
View Related
Jun 26, 2009
I have some code that filters on blank cells in column D. What I am stuck on, as my knowledge is fairly limited, is how to activate the first blank cell in that column when the filter is on, as the cell # will differ everyday.
Is there simple line of code that will go to this cell?
View 9 Replies
View Related
Jun 24, 2014
I have a lost of questions with a possible yes / no answer that is selected via a checkbox. I now need to change the colour of a specific cell if the number of the answers marked yes is greater than the number of questions answerd no.
E.g.
Question 1)Does 11 come after 10?
Question 2)Does 5 come after 6?
Question 3)Is 20 larger than 15?
I.e. The majority of answers are yes so Sheet1!n4 will be coloured green for example
View 2 Replies
View Related
Feb 15, 2014
I am trying to have a ComboBox activate a specific sheet based on the value of "ComboBox1.Column(1)". I have many sheets to select from so i want to avoid using the Case method Here is a small sample of my code that isn't working:
[Code] .....
View 2 Replies
View Related
Jul 2, 2012
I have developed a Userform button in Excel 2010 using the developer icons, which when clicked on with my mouse it runs my super dooper macro. It works great!
But one thing I want to have happen is to have the choice of using the Enter key to start the macro or use the left mouse button
For example, I place data in (say) cell A1 and the userform button is in cell A2. When I place the data in A1 and press the Enter key, the cursor moves down to A2, but doesn't highlight the user button. When I press the Enter key again, the cursor moves to cell A3.
What I want is when I fill in the data in A1 and press the Enter key, the cursor moves to cell A2 and selects the button, so that when I press the Enter key again, it activates the macro.
View 3 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
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
Sep 26, 2009
i have a set of conditional formatting set up for my workbook, the first is simply that if the result is false the cell is blank(white text,white background). the second if positive result,keeps the text black till 1 year has passed. the problem is the third, i.m trying to allow the user to blank out the cell within the year (white text,white background)if certain criteria are met. the idea is that they change the entry in cell D from T to TX or from M to MX and the formula pick this up, but i keep getting a error saying "your formula contains an error", the formula im using is, =if(or($D5="tx","mx")) then i set the format to (white text,white background). its probably really simple but i,ve been trying to solve this now for around 8 hours and i.m stuck
View 2 Replies
View Related