Copy Data From Last Non Blank Row?
Jun 22, 2009
I have a macro that will take 4 cells of data from a source and put in the next blank row starting with C9:F9 of Worksheet “NORTH”, then the next blank row and so on. I also have another macro that does the same function but puts data in Worksheet “SOUTH”.
In the event of an error where I select the wrong macro putting data in the wrong Worksheet, I would like to have a macro that would swap the data into the correct Worksheet and then clears it from the wrong Worksheet.
Example: Macro1 has written 4 cells of data to next blank row in C:F in Worksheet “NORTH”(Say C10:F10) which was wrong choice. I need a macro that captures the last row that has data in it (non-blank) which is C10:F10 of Worksheet “NORTH” and then copies that data to the next blank row of Worksheet “SOUTH” C:F, (say C15:F15) THEN clears the data from Worksheet “NORTH” that it just copied from the last non-blank row which was C10:F10. Essentially swapped and reset.
View 3 Replies
ADVERTISEMENT
May 20, 2009
I have been tinkering with a code for a few days now and managed to finally get it working . The Code basically copies data from one spreadsheet (Macro Tester6), opens up another spreadsheet (Macro Tester Master), pastes the data, Saves the file (Macro Tester Master) and then closes it.
The Macro Tester6 file is then left open as I prefer.
The problem I have is that the data always paste into the same row, hence overwrites data already inserted.
the code finds the next blank row to paste the data in.
My code is:
Private Sub CommandButton1_Click()
' select current workbook and paste the values starting at A1
Windows("Macro Tester6.xls").Activate
Sheets("Sheet1").Select
Sheets("Sheet1").Range("A1:I1").Select
Selection.COPY
' open the source workbook and select the source sheet
View 9 Replies
View Related
Apr 21, 2013
In table 1 you will see that not all rows contain data (this is because i have removed it previously with a macro) the second table shows what i want the macro to do but without deleting rows:
A
Hiddenrow with formula
B
C
[Code]....
So basically i would like a macro to search for the first none blank value in column A and copy the row to the first available blank row , it also needs to blank out that row once done. i.e row 3 would be moved up to row 2, 5 up to 3, 7 up to 4 etc etc.
The hidden rows contain formulas which cannot be deleted or my ws goes Pete Tongue.
View 6 Replies
View Related
Feb 19, 2009
I receive a huge spreadsheet with account numbers in col A and names in col b with dates in col g and amounts in h. However if there is more than one date and amount for the same account number and name, the people/program who originated the data left those fields blank.
In order to sort the list by name by date, I have been manually copying the data from the row immediately above to the blank row(s). (L O N G process) So if I have ...
View 9 Replies
View Related
Aug 8, 2006
I have a column with data that has one cell populated then the next 4 blank, and so on down the line... I want to copy only the cells with data into a new column without any of the blanks in between (in the new column). I can use the filter feature, but that just screws up the remainder of my spreadsheets other columns. It basically only hides rows, which is not what I need.
Here's some background on what I'm trying to accomplish:
I've downloaded daily stock data and want only every 5 days of data starting from the top ("today"). I have tools that can download the data I need in a "weekly" format, but the problem is: it cuts of on Fridays. So basically it's not true weekly data from "today". I just want "today", then 5 trading days back, then 5 days back, etc. etc.
View 4 Replies
View Related
Apr 25, 2014
The task I have in front of me is that I have a very large spreadsheet (28,000 +rows) that has data that was exported from a legacy system that we no longer have. It has data in columns A thru G. I must get this data prepped to have ready for importation into the new system. What I'm trying to do is copy the data in cell A and cell B, everytime the value in column D = 1, and insert one blank row above and copy the values from cell A and cell B to cell A and cell B on the newly created row.
Below is a picture of what I'm trying to capture:
sample image.png
I thought that a macro would be a fairly easy way to do this, but it's proven challenging for me to write. Here is what I attempted using the macro recorder:
[Code] ........
View 4 Replies
View Related
Jul 10, 2014
I have some data from many csv files.
I would like to record/create a macros to open the file and paste 4 columns worth of data into another spreadsheet. Making sure the data is pasted in the correct column and doesn't overight data already in a tracker. Ie. paste it into the next available space.
Output.csv
View 9 Replies
View Related
Sep 7, 2009
I need to copy the data form Cell "C" to Cell "D" only if Cell "D" is empty
i have been using the following code but it will overwrite cell "D" regardless if data is present or not.
View 8 Replies
View Related
Nov 9, 2013
How to copy paste data without replace existing data or keeping existing data?
it's possible??
View 1 Replies
View Related
Nov 18, 2008
I have a long list of values in column F of my worksheet. These values appear in random rows for example: cell F3 is 27, cell F9 is 7, cell F13 is 27, cell F20 is 9 ... The data is not evenly spaced any specific number of rows apart, but there are spaces (rows which are blank in column F).
I would like to put all of these values in column G but without any blank cells, and keep the order the same as well. So using the above example, Id like a way to make cell G1 read 27, G2 read 7, G3 read 27, G4 read 9.
Column F could be a very long column im not sure exactly how long as the data is being put in periodically. Some sort of formula that I could just drag down that would read the values from column F and put them in column G with no places would be ideal.
View 9 Replies
View Related
Feb 14, 2014
I have a very basic code to copy "non-blank" data from one sheet and paste to another. The code is not complete yet - I am running in debug mode I get the above error. My code is as below.
Sub SampleFind()
Dim StrWord As String
Dim Quantity As String
Dim i As Long
Call nrows
For j = 2 To 2
For i = 2 To nrows1
[Code] ..........
View 4 Replies
View Related
Apr 27, 2014
I have a worksheet (Data) that lists when pupils are in for Nursery sessions during the week. If they are in they have a 3 (hours) by their name in the relevant columns.
In the AM worksheet I now need to pull through a "register" so under each daily heading I need to pull through everyone that has a 3 next to their name under Monday AM / Tuesday AM / Wednesday AM etc. from the Data sheet. However, I don't want it to copy any blank cells. I then need to do the same for the PM sheet.
View 2 Replies
View Related
Apr 30, 2010
I am trying to create a formula which will look at the data in columns A - I (50 rows) and copy this data to columns K - S but ignoring any blank cells. Thereby consolidating the data in the upper rows with no spaces.
View 10 Replies
View Related
Feb 4, 2009
using a formula to copy a cell A1. if A1 is blank, i need forumula result in blank instead 0...is it possible..
View 9 Replies
View Related
Jan 19, 2012
I have data in some of the cells within range A26:A39
These cells are populated via an IF function on another worksheet. Even though the cells appear blank (as in the value returned is ""), there is a formula in these cells. I think it's called formula blank?
I am looking for a way to copy the data from the cells within the range which are not blank (ie: not = "") and paste this data elsewhere on the sheet in a list with no blank spaces in between.
I anticipate that there will be 4 non blank cells within this range.
Ideally I would have data from the nonblank cells copied and pasted to cells
A40
A41
A42
A43
View 5 Replies
View Related
Jul 8, 2014
I am wanting to have certain cells of data from one worksheet appear on another worksheet once the cells on the first sheet have data entered in them.
I find that I can do a simple formula to copy the cell but I want the cell to remain blank until data is added in the first sheet (it will be a mix of text and numerical entries).
View 4 Replies
View Related
Mar 2, 2013
I'm working on this macro that copies data on sheet1 from A2:AI2 till the last non-blank row in the same range i.e. A:AI and paste it on sheet2 in the first blank row. However, my code keeps picking up A1:AI1 from sheet1 as well and pastes it on sheet2 just before the data that I actually want to paste. Here's my code:
[Code] .....
View 2 Replies
View Related
Feb 21, 2006
Here's what I'm attempting to do: For each column, X,Y, Z, I am attempting
to count nonblanks. However, the data was imported from Access and Oracle,
and Excel treats what appear to be blank cells as nonblanks. I've tested
this theory by highlighting a couple of "blank" cells and deleting them, and
my count changes. So, can I get Excel to put a value into my "blank" cells,
so then I could filter it out, or create a formula that would only count
dates in my columns (which is what I'm after).
This is what I'm looking at:
A B C
1 2/4/2006 2/6/2006 ("blank")
2 ("blank") 12/13/2005 1/7/2006
3 2/20/2006 1/15/2006 ("blank")
In each column if I use a COUNTA I'll get a total of 3, instead of 2 for A,
3 for B and 1 for C.
View 14 Replies
View Related
Mar 16, 2009
I have another query that I believe can only be solved using VBA.
In a row of input data, some cells are duplicated from previous cells in the same row but in some instances, the user needs to be able to input different information.
e.g. M4=F4 if left blank and the same would apply to columns N=G, O=H, P=I & Q=J.
I have done some searching but nothing quite matches my requirements and recording a macro only produces the following result.
View 10 Replies
View Related
Aug 28, 2006
I have an Excel workbook which uses the following code to copy the filtered row into a new sheet. as you can see the following code, clears the worksheet, how can I change the following code so if the first row is not empty in the sheet2, it copies the text to the second row and so on.
Dim rng As Range
Dim rng2 As Range
With ActiveSheet.AutoFilter.Range
On Error Resume Next
Set rng2 = .Offset(0, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible) ...............
View 9 Replies
View Related
Mar 25, 2014
I have a worksheet, "District", that has names of team members from A2:A (The number of team members will vary, so I would need the macro to stop when the list ends). I need these to be distributed to column A on another sheet, "Input", from A11 down until it hits a row that has a blank cell in column F. I've tried a couple of things, but just can't seem to get it to work.
View 14 Replies
View Related
Jan 15, 2007
Below is the text that I use to copy AL if AJ is not blank:
If Range("AJ2").Value <> "" Then
Range("AL2").Select
Selection.Copy
Range("AL2:AL65000").Select
ActiveSheet.Paste
What I want it to do is copy the formula out of AL2 down to as many cells necessary to populate column AL as long as AJ is not blank. If AJ is not blank I want it copy AL2 down as much as needed to fill column AL. I currently have it running to AL65000 but don't want to leave the formula in that many cells. If there is nothing in AJ I don't want anything to be in column AL.
End If
End Sub
View 11 Replies
View Related
Feb 21, 2014
I am looking to write a code that will look at a range (which can vary from A16:F2000) and
1)will find all blank rows,
2)increase the size of the row height in the blank rows to 30,
3)change the fill of the row to a color
4)copy the cell value from column F of the row below the blank into column C of the blank row.
5)Increase the font to 20pt, bold and center the word in the cell
so for all the blank rows take the value of the cell in the row below, column F and move it into the row above, column C. And format the row.
View 5 Replies
View Related
Jan 20, 2009
I have columns of data and one column may have the letter Y or N or be blank in relevant cells.
The Macro filters on the Y in the column and then goes to another column and copies all names in that column. That works OK if there is any Y's but if there are no Y, the filter part still filters and then goes to the names column which will ultimately be blank and copies every cell down to the end cell.
What I want it to do is filter on Y and if there are no names (i.e no data at all)in the names column (J2) it bypasses the copy and paste bit and proceeds to closing the worksheet and goes to the next stage of the macro
There is a header row.
Selection.AutoFilter field:=4, Criteria1:="Y"
Range("J2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Blah Blah.xls").Activate
Sheets("Sheet1").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Blah2.XLS").Activate
Application.CutCopyMode = False
Workbooks("Blah Blah.xls").Close SaveChanges:=False
View 9 Replies
View Related
Jul 27, 2009
i have a small macro that is deign to move info from sheet1 to sheet2,
column B in sheet one has a list of names, not every cell has a name in it, if cell B8 has a name then that cell and cellC8 is copyied to sheet2 column B&C.
The macro i have copies over the blanks as well and i end up with sheet2 column B cell 8 filled cell 12 filled in etc.
How do i stop the blanks?
Private Sub CommandButton2_Click()
'Transfer Results
ActiveSheet.Range("B14:C400").copy
Worksheets("points").Select
Sheets("Points").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End Sub
View 9 Replies
View Related
Apr 21, 2007
I´ve tried to search in many topics but I couldn´t find the specifc answer and, how I´m just begining with VBA/Excel,
I have a worsheet with many data, and I want to copy it to another worksheet. As I don´t how many cells with information I have, I just want to copy all non-blank cells and paste to other worksheet - paste on the next blank cell.
View 9 Replies
View Related
Jul 6, 2007
I want to be able to Autofilter a specific criteria and copy over to another sheet without the header, then in the first column it'll change the information to a date, then copy back over to a third sheet. I have accomplished all of that.
My problem lies with that if there is no contents when the Autofilter is applied, it will still continue to do the steps and then I have Run-time error '1004' AutoFill method of Range class failed. Because there is no contents it tries to do this.
View 9 Replies
View Related
Sep 4, 2007
I have a worksheet with macros which generates data after a number of blank rows (the number of blank rows is never the same). I want to copy the data rows to another worksheet without the beginning rows being blank. I am not sure of the best way to do this and if it can be done with a macro in the new worksheet. At the moment I do a manual copy and paste.
View 9 Replies
View Related
May 30, 2013
In a column, there are data, but in between of each data in a column, there are many blank cells. I would like to do a copy and paste of the first data, and paste it in the same column column, while the cells are blank, and stops when there is a cell with a data, which is different than the previous one, and do the same again and again.
View 4 Replies
View Related
Jan 21, 2014
way to copy and paste a formula into every other blank row?
The formula will be staying in the same columns the whole way down the sheet. Eg: A1, A2, A3 ..... ETC
View 1 Replies
View Related