Macro Inserts 3 Rows Below Each Existing Row Of Data And Copies And Pastes That Data Into Each Of The Empty Rows

Nov 30, 2009

need to create a macro that inserts 3 rows below each existing row of data and simply copies and pastes that data into each of the empty rows before moving on to the next unique row and doing the same thing again.

This is what I have so far, but I can't seem to get the loop right.

Rows("2:2").Select
Do
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

activecell.Offset(-1, 0).Select
Range(activecell, activecell.Offset(0, 5)).Copy
activecell.Offset(1, 0).PasteSpecial
activecell.Offset(1, 0).PasteSpecial
activecell.Offset(1, 0).PasteSpecial
Selection.Offset(1, 0).EntireRow.Select
Loop

View 5 Replies


ADVERTISEMENT

Fill In Empty Rows Below With Data From Rows Above Macro?

Oct 12, 2011

I have a worksheet with 40 colums and 9200 rows. There are columns with empty data in the rows. Can I have a macro to copy data in the rows in Column E, F, I, J K and L to empty rows below?

View 3 Replies View Related

Macro That Finds, Copies And Pastes

Jun 14, 2007

I am trying to make a macro, but because of my inexperience, it's not working out. I have got a big list (list 1) of numbers in column E. each number has some information in the cells of columns C, D and L, all in the same row. on the same sheet, I have got another, smaller set of numbers (list 2), also in column E but at the bottom of the sheet. the numbers in list 2 are all present in list 1 (but not all numbers in list 1 are present in list 2). the columns C, D and L on the same row of the numbers in list 2 are empty...............

View 4 Replies View Related

Macro To Clear Row Data Then Shift Remaining Data Up To Empty Rows?

Apr 15, 2014

I'd like to have a sheet with multiple columns of data (say A thru K for instance.). Id like to reserve column A for ONLY imputing an X. The rest of the columns b-K would have data in the cells. I'd like to have a macro that when it saw an X in column A, would copy all of the data in cells B-K in that row, paste it into the next empty row of a second sheet (for history tracking), then go back to the original sheet and continue looking for additional "X"'s and repeat. Once all of the X's were copied, it would "clear" (Not delete because some of the cells would have formulas in them that would need to remain for future use.) the cells based on the "X" then finally move all of the remaining data up to the empty rows to fill in the empty rows. This last piece would be more for esthetics to have a clean looking sheet.

View 1 Replies View Related

Excel 2007 :: Macro - Match Data And Copy Rows To Existing Sheet

Jan 11, 2012

I've already found a TON of threads about this process but nothing that matches specifically what I'm trying to do.

I have a spreadsheet that I'm using to auto fill other tabs with data that only matches specific criteria. Here's what I'm looking to do:

Columns I, J, K, and L may be marked as either Y or N (or blank). I have different sheets that require 1, 2, 3, or 4 of those columns to match Y. For example, on sheet 2 I want to copy the entire row if there's a "Y" match on column I and J. On sheet 3 I want to match "Y" against, I, J, and K. Sheet 4 I need to match only L, etc.

I need the data copied into the existing sheets to start on row 7. I have other data on rows 1-6 that cannot be moved.

I'm running Excel 2007.

View 5 Replies View Related

Excel 2003 :: Macro That Copies And Pastes From Every XLS File In Directory

Oct 23, 2012

What i am trying to do is in 1 workbook (labled as Book1 literally), it needs to copy the sheets out of every .xls file there is in a single directory, we'll call C:MyFolderMySubFolder. There can be anywhere between 1 and 366 files in this particular folder and I need all the sheets in each file labled 'CC' copy that entire sheet, paste that sheet to Book1, go back to that file it was copied from, close it (saving changes is ok), then move on to the next file.. and the next file... and so forth

While pasting into book1, I need each WS copied from each file to paste to a new worksheet in book1 rather than combining them into 1 or overwriting, and lable each of those sheets the file name of which the sheet came from...

The names are in sequence. All files in the folder will be labled as a date such as "9-6-12" so the sheet name in book1 would be named 9-6-12. (so there may result in 366 new worksheets to book1)

I primarily use Microsoft Office Excel 2003

View 5 Replies View Related

Selects And Copies And Pastes A Range Of Data From One Sheet To Another Sheet

Apr 22, 2009

I have a macro that selects and copies and pastes a range of data from one sheet to another sheet. It works perfectly except it is pasting all the cell formatting and formulas and i only want or need the values.

View 8 Replies View Related

Inserts New Row And Also Inserts New Sheet With The Rows Name That Was Inputted

Jan 8, 2007

(1) My main tab I have a macro button that inserts a new row and also inserts a new sheet with the rows name that was inputted. But on the main tab in cell A1 that is named, I can not get it to hyperlink to the new tab.

(2) When the button is hit to insert a new row and sheet I copy over previous tabs information and then I want to change two fields A1 and B1, A1 works fine but my B1 I can not get the formula to work correctly. My cell in B1 I need it to say 'DESCRIPTION: ' and then take the value of main tab 'Test Case Summaries' cell D?, it would be the new line and copy it here. See below... rname is the new tab name and lrow is the new row that was added when the macro button is hit.

t = Sheets.Count
Sheets(t).Copy after:=Sheets(t)
ActiveSheet.Name = rname

Sheets(t + 1).Range("a1") = ("Test Nbr " & rname)

Sheets(t + 1).Range("b1").Formula = "DESCRIPTION: " & "!$D$" & lrow

View 9 Replies View Related

Autofilling Rows In A Column Using Existing Row Data

Mar 9, 2009

I have a column with blank rows inbetween rows with data.

Column Heading
1000
Blank
Blank
1001
Blank
Blank
Blank
1002

Is it possible to autofill the blank rows with the row that has a value above them, have it skip the next row with a value, recognize the next blank cells and fill them in with the previously skipped row, and so on down the line? How might I go about doing that?

View 4 Replies View Related

Delete Rows Of Data From Existing Sheet

Dec 26, 2011

I have an excel list of My Existing Customers and have recently purchased an excel list of all possible customers in my market that happens to have my existing customers listed in it as well. How can I remove my existing customers out of this purchased list so that I can import it into my Database as Prospects? I'm using Excel 2010. Deleting duplicates doesnt work for this. I want a function that looks at data in one spreadsheetA and if it finds it in the second spreadsheetB, it deletes the row out of SpreadsheetB.

View 9 Replies View Related

Formula To Move Data On Same Row And Deleting Empty Rows Between Data

Jul 17, 2014

formula to make data on same line.On converting data2 is above data 1. I insert a column on left . Need to use mouse right click shortcut delete manually shift cells left and then delete shift cells upto have both data on same line but should be in different cells and same sequence per attached ALSO TO REMOVE "/ -DASH HYPENS.

What I need is formula to move the data2 on same alignment and to delete the two empty rows between both data.

See annexed file for expected results.I have preference to have a formula much more.

View 7 Replies View Related

In A Table Include Data In Columns Into Existing Rows

Jun 7, 2012

I have a table in which the rows represent cities and the columns represent certain characteristics/ attributes a city can have. In the cells every city & attribute pair receives a "grade"

City EatingBeachSki
Barcelona 210
Chamonix 002

I would like to transform this so that every row represents a city & attribute pair and includes its corresponding grade.(I want to do this in order to be able to add more information about city- attribute pairs rather than about cities only)

City AttributeGrade
BarcelonaEating 2
BarcelonaBeach 1
BarcelonaSki 0
ChamonixEating 0
ChamonixBeach 0
ChamonixSki 2

I am aware that I can use a pivot table to sort out all the pairs with a specific grade. and then I could paste this into a new table. But my data base (number of cities x number of attributes) is huge and I was wondering if there is no automatic process to make this transformation.

View 4 Replies View Related

Macro Button Copies The Rows

Aug 4, 2009

Trying to create a spreadsheet to track transactions. Sheet "A" is the working file with a limit of 25 rows. When a transaction is complete, I would like a macro button that copies one of these rows (1-25) to an archive file (Sheet "B"). I would like it to copy and paste to the next available row on Sheet "B".

View 9 Replies View Related

Parsing Out Text Which Copies And Pastes Into One Cell

Jul 9, 2013

I have an email sent via pdf and the only way to get this into excel is by copying and pasting and it all shows up in one cell.

Not much to focus on other than reading from left to right, once you see a numeric value, this should be in another cell and once you see "LS or WS or NR or COA, this will begin another cell. I had to add the dots to show where the new cell starts.

parsed data
SHELL TBN...130 CURACAO/JAPAN 18JUL... LS 3.675M PDVSA SUBS
EVERGLADES...70 CHIRIQUI GRANDE/USG14JUL... NR BP
TEXAS STAR...70 ECMEXICO/USG 11JUL... NR NR
MINERVA LIBRA...70 BAHAMAS/USG 11JUL... WS 80 STATOIL RPTD

original data
SHELL TBN 130 CURACAO/JAPAN 18JUL LS 3.675M PDVSA SUBS
EVERGLADES 70 CHIRIQUI GRANDE/USG14JUL NR BP
TEXAS STAR 70 ECMEXICO/USG 11JUL NR NR
MINERVA LIBRA 70 BAHAMAS/USG 11JUL WS 80 STATOIL RPTD
CPO ENGLAND 35 ECCANADA/OPTS 07JUL NR CREST ENERGY FLD

View 4 Replies View Related

Copy Rows With Closed In Cell To Bottom Of Existing Data In Sheet5

Feb 5, 2014

I have used a formula to achieve this before which seemed to work although now it seems to be replacing other data already in the worksheet so I am unsure of how to fix, thinking I should just start again.

The file in question is a tracker of activities, Column A (sheet1) is the Status and once the status is "Closed" I need to run a macro that copies all closed activities to Sheet5 at the bottom of previous closed activities. Once this is done I already have a macro to delete all "closed" activities from Sheet1 meaning that it is vital the new closed activities stack onto the bottom of previous closed activities.

The Column Headers start on Row 11 with activities running from Column 12.

View 1 Replies View Related

Removing Empty Rows From Set Of Data?

Jan 24, 2013

removing empty rows from my set of data.

I have a big set of data that I'm copying and pasting into excel. When I paste it there are 2 empty rows between each line of data. I want to remove these empty rows, without affecting the data. I tried 'Go to special...' and deleting all empty cells and stuff but I couldn't get it to work. The problem is that there are blank cells in some of the rows that I want to keep. When I try to remove the blank rows, I also end up removing rows of data that I want to keep.

I've made an example for you to try and explain it better - attached.

remove all of the rows that are completely empty, but leave any row that has any data in it (at any point), that would be awesome!

View 4 Replies View Related

Remove Empty Rows Based On Range Of Columns If Columns Are All Empty (no Data) Delete

Oct 24, 2012

Using the following code to remove empty rows based on whether a specific range of columns is empty. The code works if the cell has a zero, but not when the cell is blank. An example of the data is attached.

VB:
Public Sub DelRows2()
Dim Cel As Range, searchStr, FirstCell As String
Dim searchRange As Range, DeleteRange As Range

[Code].....

View 1 Replies View Related

Pivot Table On Data With Empty Rows?

Jan 28, 2014

I am writing regarding the Pivot table creation with data which contains empty rows.

Recently, I work on a project with a data which contains empty rows. I will attach the file for sample to see what sort of data contains my sheet.

As you can see the data is divided according to some criteria, and it is constantly updated by users. sometimes a new criteria is added at the end of the sheet, that is why I need to create a pivot table, to be able to just changing Source, to update the table and manipulate table in order to get desired results, but I can't remove these empty rows rom the data as far as some unexperienced users have to fill the information and it is more comfortable to have the data separated from each other for them.

However, when creating the Pivot table on this type of data, the pivot table will include the blanks Row Labels there.

View 4 Replies View Related

Remove Empty Table Rows Before Pasting New Data?

Jan 31, 2014

I have a table into which I paste values to ColumnA. The other columns have formulas. The number of values to be pasted varies. When the number being pasted this time is less than the number pasted last time, empty rows remain above the valid data after sorting, which is undesirable. I want to get rid of those rows just before (or after?) pasting the new values. The way I see it is I want to delete all but the first data row of the table so the formulas remain untouched in the first row. Then, as new values are pasted the formulas replicate automatically.

Sample file is attached : Sample.xlsm‎

View 14 Replies View Related

Total Data- Having A VB Code To Delete Empty Rows

Mar 7, 2007

The spreadsheet I am working in has $ which I need to total. The information, or rows, can vary from day to day so there is no static place to have a cell with an @sum. Management wants me to add a pretty line that says

'Total' in one cell and the $ next to it. I have about 30 sheets with columns to total. Yuck, takes forever.

How do all of you total if you don't know the last row? At the top?

I thought it might work to put an @Sum in the last row of the spreadsheet, in the column

I need to total, and having a VB code to delete empty rows. That would be automatic.

View 9 Replies View Related

Hide/Filter Rows Containing Formulas, But No Data. Empty Text

May 8, 2008

I am developing a spreadsheet that, once all the code is run has numerous sheets added. On these sheets I have a significant number of rows that contain no data and could be hidden (I dont want to remove them, because later I need to re- import all these rows back to my master sheet). I tried code I found in the forum to hide a row if it is empty but this doesnt work as some of the cells contain formulaes referencing back to another sheet that is hidden.

I am trying, and failing, to write code to hide a row that contains no actual data, but still has formulas in some of the cells.

View 4 Replies View Related

Macro Code To Add More Rows To Existing Chart

Jun 17, 2008

I have managed to create something similar to what i am working for using an example from Lacher and Gant Charts. i am now stuck as I can enter more than 40 status as it then gives me an error. The following is the code: Can any1 highlight where i need to make any changes to stop the error from occuring:

Option Explicit
Sub CreateTimeChartData()
Dim vTimeData As Variant
Dim i As Integer
Dim sRoom As String
Dim vLastEndTime As Variant
Dim oSeries As Series
' set up
Application. ScreenUpdating = False
Application.DisplayAlerts = False
' create chart data worksheet
With Worksheets("TimeData"). Range("TimeList"). CurrentRegion
.Sort Key1:="Room", Key2:="Start Time", Header:=xlYes
vTimeData = .Value
Worksheets.Add
On Error Resume Next
Worksheets("ChartData").Delete..........................

View 3 Replies View Related

Create Order Form That Inserts Rows Based On Value In Column

Apr 11, 2014

I'm trying to make an order form that is based off of a price list. Basically there will be 200 items or so someone can just enter the quantity they want into a column. I would then like another sheet on the workbook to auto-populate all of the fields available. The thing I'm having trouble with is I don't want the finished form to be as long as the price list with blank rows in-between. I've been reading up to make a macro work for this, but have had no success.

View 3 Replies View Related

Macro To Apply Existing Formula To All Rows In A Sheet

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

Changing Existing Macro To Transpose Rows To Columns

Feb 22, 2008

I have the following macro which I use to transpose a number of columns in one sheet to rows in another sheet.

PHP
Sub task1()Dim i As Integer, n As LongFor i = 5 To Columns.Count Step 2    n = n + 1    With Sheets("Working_Checklist_1").Cells(10, i).Resize(16)        Sheets("Summary_Intermediate").Cells(n + 2, "c").Resize(.Columns.Count, .Rows.Count) _        .FormulaArray = "=if(transpose(Working_Checklist_1!" & .Address & ")=0,"""",transpose(Working_Checklist_1!" & .Address & "))"    End WithNextEnd Sub 

I'd like to change this macro so to transpose from rows to columns. I've tried a couple of things, but can't quite get it to work.

I'd like to transpose every second cell starting from E7 to IV7 in Working_Checklist into column BU in Summary_Intermediate, starting from BU3.

View 9 Replies View Related

Macro To Generate Outlook Emails With Data / Information From Multiple Rows Of Data?

Apr 30, 2014

I am attempting to create a macro to generate emails based on data in a sheet. The goal is to run the Macro, and have it generate emails to send to contractors letting them know what they are going to be paid. For instance:

Name in Column J
Email in Column L
Memo in Column N
Balance in Column T
Due Date in Column P
Week Ending Date in Column H

Now what I would like to happen, is to tie a macro into a button that will create the email as follows:

To Field: Email address from Column L
Subject: "Company Payment Remittance Payment Date *Date from Column P*"
Body: Hello *Name from Column J*,
For *WE Date in Column H* you will be paid *Balance from Column T* for the time worked of *Memo in Column N*

Now the tricky part is that I want the email to contain all line items for each email address. So instead of sending one email per line, have the macro automatically put all of the information that needs to be sent to one email address into the message. I don't know if that is possible, but it sure would make my life easier if it was.

I have attached a sample workbook of the data that will be used

Example Workbook for Email Macro.xlsx

View 1 Replies View Related

Excel Macro Copies Last Row Of Data?

Sep 29, 2011

I need an excel macro that will copy the last row of data from one worksheet within a workbook to another worksheet in the same work book. The last row number of data will alwasy vary

View 9 Replies View Related

Macro, Which Copies Data From 1 Sheet To Another

Sep 25, 2008

I have created a macro, which copies data from 1 sheet to another, in order to Format and rearrange the columns.

The problem I have is that if I "Insert" a column on sheet 2, I have to amend all of the ranges in the macro to reflect this.

Sample of the code

Worksheets("FTIS Data").Select
Range("e5:e" & Range("e" & Rows.Count).End(xlUp).Row).Copy
Worksheets("Quote Tracker").Select
Range("c5").Select
ActiveSheet.Paste

Worksheets("FTIS Data").Select
Range("g5:g" & Range("g" & Rows.Count).End(xlUp).Row).Copy
Worksheets("Quote Tracker").Select
Range("d5").Select
ActiveSheet.Paste

View 9 Replies View Related

Macro That Copies Only The Data Within A Range To Another Sheet?

Nov 12, 2009

I have a data sheet like so:

A B
Name Grade
Jim 82%
Bob 90%
Kelly 71%
June 95%

And I also have two cells which are designated as the low and high range. (ie C1 = 85% and C2 = 100%). I need help with the macro for the button that will copy only the rows to a new sheet that fit within the range. So in the example above, pressing the button will create this in a new sheet:

A B
Name Grade
Bob 90%
June 95%

View 2 Replies View Related

Macro To Copy And Paste Auto Filtered Data To Existing Worksheet Below Previous Data

Oct 18, 2013

I have been working on a macro that compares a existing list of data to an updated list of data and then either moves any data not on the new list over to a completed tab (followed by deleting the record on the existing sheet), and then adds any items not on the existing sheet, but which appear on the new list, to the existing list.

I have come across a stumbling block, i have managed to identify on the existing list the rows of data that have been removed from the new list and therefore need to be moved over to the completed tab, but when i select the data it selects the header row aswell (which will always remain the same row). Obviously this then pastes the header row aswell, and also i can't seem to get it to paste in the new sheet to the next available row (i.e this will be used daily and i don't won't to overwrite the infor already in the completed tab). the next issue i have is then when i go back to existing sheet to delete the data i just copied across, as the header was initially select this also gets deleted.

The code below, is the complete code, including filtering, copying some forumals etc. The area i am getting stuck on is highlighted in red:

Sub Update()
Dim bottomrow As Long
Dim My_Range As Range
bottomrow = Cells(Rows.Count, "C").End(xlUp).Row
Set My_Range = Range("A1:Y" & bottomrow)

[Code] .....

View 6 Replies View Related







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