VBA - Copy Range Of Cells And Paste If Offset Cell Not Blank

May 23, 2012

What can I add to the macro I already have in place (below) to accomplish what I'm looking for (2 parts)? ...

1) I need to copy everything (formulas) that is in C7:F7 and paste it down to all "active" rows - I'm defining an active row by any row where column A is not blank.

2) I need to copy everything (formulas) that is in Q7:AF7 and paste it down to all "active" rows - I'm defining an active row by any row where column P is not blank. (You'll notice by the screenshot that there will be blank cells in column P mixed in with non-blank cells.)

Sub AdminTool()
' CreateAdminTool Macro

ActiveWindow.Zoom = 90
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

[Code] ...........

View 7 Replies


Copy Non Blank Cells & Paste As Values To Another Range

Aug 30, 2008

I'm trying to copy the non blank cells in an area ("B120:K239"). and special paste (values only) to the next blank row of the actual work area (3 pages) within the worksheet. The area that this needs to paste to is between("B10:K29, B44:K63, B78:K97"). Problem is that if there are more rows to be copied and pasted then there are open rows on the first sheet it gives an error due to the rows outside those areas having different formats (merged cells and that)

Question: Is there anyway to special paste between ranges? I've tried to hide the inbetween rows and that still doesn't work. Could it be possible to add something to this code to ignore hidden rows or to only paste to visible rows?

Sub Special_Paste ()
Application. ScreenUpdating = False
With Range("B119")
. AutoFilter Field:=2, Criteria1:="<>"
With Range("B120:K239")
Application.CutCopyMode = False
With Range("30:43")
.EntireRow.Hidden = True
With Range("64:77")
.EntireRow.Hidden = True
Dim NextRow As Range
Set NextRow = Range("B97").End(xlUp).Offset(1, 0)...............

View 8 Replies View Related

Copy Data In Non-blank Cells Within Range And Paste Into Cells On Another Worksheet

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

View 5 Replies View Related

How To Copy From One Cell And Paste On Different Sheet With Offset

Nov 27, 2012

using VBA and most of what i know has come from reading through blogs. I'm trying to copy 5 separate pieces of data from one row on our Payroll sheet and paste this in to another sheet call master dump.

The issue that i am having is that the code i have written keeps coming up with a run time error 1004 at the line "a.Select"

What i need the code to do is this: Copy the data from cell A4 and paste this on to another worksheet in to row cell b2, date worked in to d2, pay code in ot f2, hours in to h2 and the cost centre in to ad. all on the same row. i then need it to move on to the next team member (in this case A5) and repeat until there is no emp#. once the monday is done it will need to move onto Tuesday.

Code below.

Sub payroll_data()
' Payroll_data_MON Macro
Dim a As Range, b As Range, c As Range, d As Range, e As Range, i As Range, j As Range, k As Range, l As Range, m As Range
Set a = Range("A4")
Set b = Range("I4")
Set c = Range("G4")
Set d = Range("H4")


View 9 Replies View Related

Loop To Find A Cell, Then Copy Offset Paste

Feb 1, 2009

I have a data sheet with employee information. Only one column. It prefixes information with codes, but keeps it in the same cell. I want to move data of certain types into their own columns, but the amount of data is variable, so I cannot simply move every Nth cell, etc.


200 Firstname Lastname
204 99999999 (Employee ID)
G38 00005000 (i.e. Pension Deduction)
H38 00007580 (i.e. Benefits Deduction)
X96 00012099 (i.e. Staff Club Deduction)
200 Firstname Lastname
204 99999998
G38 00000775
X96 00001000

So you see some employees may have different codes altogether. But I know that I want all the cells that start with 200 to be offset (-1,1), and all the cells that start with 204 to be offset (-1,2), and so on so that basically I end up with columns of info instead of a one column list.

I have been reading and studying other peoples' macros, and am just starting to grasp the basic. When I wrote my own to accomplish this, I put this together, which doesn't work. But I don't know enough to know what I don't know.

View 7 Replies View Related

Sheet1 Row Range Copy To Sheet2 Firs Blank Row In Same Range Paste As Text?

Mar 16, 2013

Trying to assign code to comm. button on User form to copy lets say:

(sheet1, rangeB2:B21) to (sheet2, first blank row rangeB2:B21) and paste it as text value one more question: what to be aware in case of sheets format (merged cells, hidden rows...)

View 4 Replies View Related

Copy Range Of Cells - Returned Address To Some Offset

Oct 16, 2006

Sub TestSearch()
Dim FoundCell As Range
Dim SearchString As Variant
'Specify Value to Search
SearchString = " Excel"
'Perform the Search and Return a Cell Value
Set FoundCell = Worksheets("Source").Range("A1:A10000").Find(" Excel", lookat:=xlPart)
If Not FoundCell Is Nothing Then
MsgBox "Found at " & FoundCell.Address
End If
End Sub

I'd like to take the code above, which returns a cell address which contains the text " Excel" and modify or add to it the capability to copy a range starting from the address returned and ending 102 cells further down in Column A on the Source sheet to A1 of the Sheet1 sheet. The crux of the problem seems to be converting the address to a row number then adding the value of the number of cells in the range to find the end row number then converting that back to an address??

View 5 Replies View Related

Copy And Paste Range Of Cells Based On Number Of Cell Values In Column A

Mar 17, 2014

Please see attached sample worksheet. Column A will be generated by the user manually.

I'm looking for a way in VBA to have A1:D20 in Sheet2 copied and pasted in the "Bank Reconciliation" Sheet based on how many "Markets" there are in Column A. Then, once that's complete to have A22:D30 (the smaller box in Sheet2) copied and pasted directly below those results.

I have what the macro would hopefully generate to the right in "Bank Reconciliation" (B6:E54) as an example. So if there's a market in A1, copy and paste the box to B6. If there's a market in A2, copy and paste the box directly below the first (B26) etc. etc. until it's done, then paste the smaller box directly below whatever the macro generates.


View 3 Replies View Related

Copy And Paste Ignoring If Cells Blank

Dec 28, 2007

I have a workbook which has data in column A. I also have data in column I. What im trying to do is copy and paste the data from column I to A but if the cell in column I is blank I need that ignored and the data thats in column A at pres kept.

View 9 Replies View Related

Paste In Blank Cells Within Range

Oct 28, 2011

I am trying to write a macro which will copy a formula located in cell "A1" and paste it into all blank cells within the range "B1:B20" .

View 9 Replies View Related

Macro To Find A Cell Containing Text /select Range Offset / Cut And Paste To Lower Rows?

Feb 4, 2014

I am trying to find a macro that can search a sheet for any cell that contains the text "Not on AOI" selects a range that contains that cell, 81 rows below, and 2000 columns to the right, then cuts the selection and pastes it 162 rows below the original cell where the text was found. What's hard is that the number of columns between the "Not on AOI" cells is variable.

I'm very new to excel macros and the parts I think I've put together are:

Cells.Find("Not on AOI", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=True).Activate


View 1 Replies View Related

Copy And Paste Selected Range Into Another Workbook Based On Headings And Next Empty Blank Row

May 14, 2014

I have a worksheet with some info that is filled in from other employees. I have Customer Name, Date of Oldest Invoice, Avg. Days Beyond terms in column N42:N44, with the data in column M42:44. I want to copy and paste that into another workbook, I need to transpose the data and then paste it into the next blank row. IF POSSIBLE, I would like to have some of the column headings the same as the above fields, and I would like to paste the data into the correct column heading.

Currently I have the code listed below. It copies the data, opens the spreadsheet, (this is where it fails) find the next blank row and transpose and paste the data. It does transpose and paste the data but it does not look for the next blank row, instead it just transposes and pastes the data in the last cell that was active when the work book was closed.


Private Sub CommandButton1_Click()' Paste Macro
' Macro recorded 5/14/14

Workbooks.Open Filename:="L:Financial Services! FRA !! Preston !3rd Party Collections Accounts 2014.xls"

[Code] ..........

View 8 Replies View Related

Copy Paste Cells Corresponding To Blank Cells

Apr 16, 2008

The objective is to copy the value from one cell if another cell in the same row is blank onto another sheet (in another excel file if possible). This would have to be done for all value in the sheet.

View 7 Replies View Related

Copy And Paste While Cell Is Blank Do Next

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

Copy Paste Into Next Blank Cell

Jan 5, 2009

I am looking for a macro that will open a file called File1.xls highlight only the cells in columns A:B that have content, then toggle back to another file called File2.xls, scan columns A:B, find the next blank cells within A:B and paste.

Here is a sample of what i am looking for:

Macro to scan File1.xls and find & copy only cells in columns A:B that are not blank.

_|__A_ |__B_|
1|_text|_text| (Copy)
2|_text|_text| (Copy)
3|_text|_text| (Copy)
4|_text|_text| (Copy)
5|blank|blank| (DO NOT Copy)

Toggle to File2.xls, scan columns A:B, paste content copied cells from File1.xls in next blank cells in columns A:B of File2.xls.

_|__A_ |__B_|
1|_text|_text| (Pre-existing text)
2|_text|_text| (Pre-existing text)
3|blank|blank| (Paste Row1 from File1.xls)
4|blank|blank| (Paste Row2 from File1.xls)
5|blank|blank| (Paste Row3 from File1.xls)
6|blank|blank| (Paste Row4 from File1.xls)

View 9 Replies View Related

Copy And Paste Into Last Blank Cell?

May 30, 2012

I have a Worksheet that is manually populated with file names into the 2nd cell of each column for columns A through D.

I need a macro that will loop through each column, starting at B2, c2 etc, and copy each value, and then paste it into the first available blank cell in column E




Ive tried a few combinations of code, but nothing seems to be working.

View 2 Replies View Related

Copy; Paste With Input Box, Adding A Blank Cell

Nov 1, 2009

Data range is A2:A301. From this range sometime all and sometime selected data is required to be copied in another column for example C2
downward. What is needed: select the range from A2:A301 with an input box then the required data to be pasted in C2 downward but with a blank cell after four cells.

and so on.

I'm doing it Ctrl+C n Ctrl+V but that is very time consuming.

View 5 Replies View Related

Copy From One Sheet And Paste Into Another Shee Int The Blank Cell

Feb 9, 2009

I want to copy the data in "Sheet1" without the header and paste it in "Sheet2" but only paste it in the first blank cells because i sometimes have data in "Sheet2". i would also like to paste it as paste special method when pasting. See attached for details.

View 7 Replies View Related

Copy / Paste Not Replace Data (only Blank Cell)

Nov 9, 2013

How to copy paste data without replace existing data or keeping existing data?

it's possible??

View 1 Replies View Related

Loop To Paste To First Blank Cell In Range

Nov 16, 2007

This loop is overwriting the first cell in range and not writing to the first blank cell in range.

For Each cnote In NOTE
If Trim(cnote).Value = "" Then
cnote.Value = notes.Value
Exit For
End If
Next cnote

If I take out the exit for , it copies to all cells in range.

View 4 Replies View Related

VBA Copy Offset Cells To Another Worksheet If Cell In Column B Contains (text)

Feb 13, 2014

I want to do the following:

If cells in column B from Sheet 1 contains ''text'',

Copy Cells from column D and F from Sheet 1 - TO - Sheet 2 in columns C and E -

View 1 Replies View Related

Offset Copy And Paste

Jun 22, 2006

Following Dave's rule regarding using the rows in Excel rather than the columns I am trying to re organise some workbooks that have been passed to me. To copy one column of information requires 4 pages of code the first section of which is below.

Sub Copy1()
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Now that I have the code to copy one column I want to be able to adapt it to move four columns to the right from F to J and using the example above copy from J4 to C166. I am guessing that Offset is the way to do this but can't seem to work out how. ach block of data takes up 160 rows and the data is all pasted into column C. The data to be pasted starts in row F then J then N and so on up to column IZ in some of the workbooks I am trying to revamp.

View 5 Replies View Related

VBA To Look For Blank Cells In Range And Copy With Value Above

Oct 17, 2009

Is there a VBA macro that can be written that will look in a range of cells in a coloum, look to see if its blank and then copy the value from the cell right above it into it?

View 8 Replies View Related

Copy Non-Blank Cells In Range

Dec 19, 2006

I am trying to copy the contents of all non-blank cells starting at A9 to R1 of another sheet " Record Form Games 3583). If A9 is empty it will skip a row and repeat until row 43. Each of the cells A9:A43 must also be able to act as a reference point for Offsetting and selecting a series of ranges in the same row.

View 9 Replies View Related

Go Down Range, Then Cut, Offset, Paste

Jan 28, 2009

I am trying to create a macro that goes down Column A of my sheet and looks for a string, "Number". When it finds it, it resize (0, 14) and cuts. Then it pastes the array at an offset of (-1, 10) This is what I got so far:

View 4 Replies View Related

VBA - Copy And Paste Various Cells NOT In Same Range

Dec 17, 2011

Proficient in Excel, very new to VBA. Up against a deadline on a project that entails consolidating data from 30 + workbooks (each of which has 3-5 worksheets; layout is the same in all worksheets) into one consolidated "rollup" workbook. The inefficient way would be to move all the worksheets into one master workbook, and then link each cell to each worksheet, one-by-one. I found a few threads online with some vba code that has me "close" to what I need to accomplish, but not close enough. The code below will take each worksheet in the workbook and bring back the data in a range of rows and columns. That is not what I need. I only need to bring back SELECT cells of data (i.e. cells E5, H12, J19, etc.) - not everything in that range.

Sub CopyRangeFromMultiWorksheets()
Dim sh As Worksheet
Dim DestSh As Worksheet


View 9 Replies View Related

Copy Paste To All Cells In Range

May 8, 2013

How can I copy cell B13 and paste it to all the cells in range H13:Q34?

View 2 Replies View Related

VBA - Find Select Offset Copy And Paste

Aug 23, 2012

I am trying to achieve something like this :

Find a specific text in my column B (example : "Proposal ID"), when "Proposal ID" is found, select this cell and offset to the column C (Offset(0, 1)). Then copy this cell value in another sheet.

This will be repeated with different texts (always in the column B), so if the text is not found, I need the macro to continue running.

View 5 Replies View Related

Loop Worksheets Copy & Offset Paste

Dec 1, 2006

My code (with help from this forum) loops through all workbooks, all sheets and all columns OK as I have tested it with message boxes

I need to take the value of Range("C5") from each column of all sheets of all workbooks
and paste it to Range("A4") downwards in Workbook("Loop Folder.xls") . That is, each new value is inserted in the next row of column A.

Sub test4() ' populate analysis sheet
' copies cell("C5") from each column in each sheet in each workbook in a directory

Dim Mypath As Variant
Dim excelfile As Variant

Mypath = "U:September 2006" ' folder where all excel files reside
excelfile = Dir(Mypath & "*.xls")

Application.DisplayAlerts = False

Do While excelfile <> "" ' loop all files

View 7 Replies View Related

First Blank Cell In Column & Offset To 1st Blank In Row

Jul 11, 2007

I have checked archives, some similiar but not quite what I want.

In code below I want the output instead of going offset one column to right in same row to go one column to right into the next blank cell.

View 9 Replies View Related

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