Copy All The Rows Until Row 37 And Move It One Row Up After The Selected Row Is Deleted

May 1, 2009

enables the user to select a row to delete. However, I need to do more than that. I need to be able to copy all the rows until row 37 and move it one row up after the selected row is deleted. Below is the code

View 3 Replies


ADVERTISEMENT

VB Code To Move Rows Up Once Row Above Deleted

Jun 2, 2013

I have this code that removes a group of cells on any row that contains "Y" in Column L, but it does not move the remaining group of cells on a row up after the cells are deleted.

VB code so that when a range of cells are deleted, the row(s) below are moved up?

Sub RemoveReceived()
LastRow = Cells(Rows.Count, "H").End(xlUp).Row 'change "H" to the column that determines which is the last row
For x = LastRow To 4 Step -1 'assuming it starts from row 4
If Cells(x, "L") = "Y" Then
Range("H" & x & ":K" & x).ClearContents ' or use Delete

[Code] ........

View 2 Replies View Related

Macro Runs Fast When Rows Added / Deleted Slow When No Rows Added / Deleted

Jun 27, 2013

We have created a macro that basically looks for rows that contain an "H" and hides the row if it does.

Users can add new rows throughtout the year to this spreadsheet. and based on certain criteria, an H or U will be placed in a hidden column which the macro looks at and hides any row it finds an H.

The user has to click on the button that has the macro assigned to it once they have finished working on the spreadsheet.

The problem we're finding is that for users who insert/delete rows, once they click the button it takes up to 15 seconds to run through macro (which is ok). However, users who haven't added or deleted any rows and who click the button, they have to wait upto 5 minutes (which isn't ok) for the macro ro run.

We can't figure out why the macro takes longer to run when no changes have been made?

View 8 Replies View Related

Copy Selected Rows & Insert As Many Times As Rows Selected

Feb 6, 2008

The following code inserts a row below the selected row, and copies the formula of the row above into it.

Dim Rw As Integer
Rw = ActiveCell.Row
Selection.Insert Shift:=xlDown
Rows("" & Rw - 1 & ":" & Rw - 1 & "").Copy
Rows("" & Rw & ":" & Rw & "").Paste

However, I need to alter this to work for inserting more than one row at a time. ie. the user selects 'x' number of rows and 'x' rows are inserted below (in the same way 'Insert Row' works in Excel) and the row above the selection is copied down.

View 2 Replies View Related

Copy Selected Rows To Another Sheet

Nov 30, 2006

I need to copy only user selected rows ( multiple) from one sheet to another. I see similar threads here but none that work with user selected rows.

View 4 Replies View Related

Copy Selected Cells/rows To Another Worksheet

Sep 6, 2008

I have set up the attached workbook to try to show the results that I need using the matching shaded cells in the worksheets.

The first part of the problem is that all data in columns A, B, C & H (Input1) needs to be copied to columns A, B, C & F in Input2 with the addition of a Zero value in columns D & E (sample data lines 1 - 3).

The second part of the problem is that all data in columns A, B, & F (Input2) where the cell in column C is equal to ZERO needs to be copied to columns A, B & C in Input 3 (sample data Lines 4 - 11).

It would also be useful to be able to copy data in columns A, B, & F (Input2) where the cell in column C is NOT equal to ZERO to columns A, B & C in Input 3 (sample data Lines 12 - 25). However, there will be often be more than value in column C (Input2) dictated by the date in Column A and number in Column B. The value in Column F (Input2) will always be the same for each of those rows, so it does not need to be duplicated in Column C (Input3).

This would have to be manually triggered by linking it to a button or menu item, not sure what would be the best option. As data is entered at various times of the week, the routine would either have to overwrite existing matching data or carry on from where it last finished!

View 9 Replies View Related

How To Select Cells Then Copy The Same Selected Rows In Another Row

Mar 26, 2013

I have some selected cells in column A, they are not consecutive. I would like to copy these values and then copy the same area but from a different column...

The code I have here is only working when I have a consecutive selection.

Code:
Set rng = Selection
fr = rng.Cells(1, 1).Row
lr = rng(rng.Count).Row
rng.Copy

View 5 Replies View Related

Move Data From One Cell In One Row Into Several Rows And Copy Rest Of Row

Mar 2, 2013

I publish a green building mag, and we run an enquiry system for readers on our website. This is the link: [URL] .......

The idea is that readers tell us some info about themselves, including what types of products/services they'd like to receive information about, and we pass their details on to advertisers offering those products/services.

When someone fills out a form, we get data in Excel on their enquiry. It's all in one row - name, contact details, and then the products/services they've enquired about are included in one cell, separated by commas.

So for instance, suppose a listing currently came in as follows (column headings in brackets:

(name) Joe Soap / (job title) Architect / (organisation) Joe Soap Architecture / (address) 123 Soap St, Soapville / (enquiries) insulation, solar panels, windows

Essentially I want it to run like this:

(name) Joe Soap / (job title) Architect / (organisation) Joe Soap Architecture / (address) 123 Soap St, Soapville / (enquiries) insulation
(name) Joe Soap / (job title) Architect / (organisation) Joe Soap Architecture / (address) 123 Soap St, Soapville / (enquiries) solar panels
(name) Joe Soap / (job title) Architect / (organisation) Joe Soap Architecture / (address) 123 Soap St, Soapville / (enquiries) windows

View 14 Replies View Related

Copy Selected Cells Of Rows To Another Worksheet Based On A Condition

Feb 4, 2010

I am self-taught (arguably by a pretty shoddy teacher), and am determined to figure *some* of this stuff out. I need a code to look at the rows on one worksheet and based on the value of column A for each row, copy cells A through E in that row to cells A through E of a blank row on a corresponding worksheet. I found a code from another post that does just what I need it to with one small exception. The code was posted by DaveGuggs and is as follows:

View 2 Replies View Related

Copy Selected Data From Multiple Rows Into Separate Column In One New Row

Dec 1, 2013

ID Name QTY Price

1 John 5 15
2 Jim 6 20
3 Sue 10 200
4 Fred 12 125
1 Tim 7 26
4 Sue 10 100

I need macro to loop through all data and generate this table in another worksheet

1 John 5 15 Tim 7 26
2 Jim 6 20
3 Sue 10 200
4 Fred 12 125 Sue 10 100

Each data in a row in the new table will occupy a different cell.

View 3 Replies View Related

Copy Rows To New Sheet Based On Date Range Selected On A Form

May 8, 2009

This spreadsheet must perform calculations for every line since new items are added every day, so VBA is probably better than copying formulas down every line of the spreadsheet:

With the press of a button, I need to be able to select a range of dates and copy all lines within the range to a seperate sheet with the desired name under the same headings they currently reside under. I have included some modified code that is being used in another spreadsheet that was created for me, but I do not pretent to understand all of it and I no longer work with the creator of the spreadsheet. How do I use a button to open the form for date selections and entering the name of the new sheet, and then use the start button on the form to begin the matching and copying to a new sheet? If there is an easier way I am all for that too.

Also, I need to keep a total of all items by month as well as a monthly and annual average of the Total Item Value on the FY09 tab. This will eventually produce another sheet when a button is pressed to submit as a report. I think part of this answer is in using the MONTH(serial_number) function but I can only get this to work for a single cell. I need to search the entire Distribution 'D' column, match all the months to the FY09 tab to the respective month, and calculate the totals and averages. I think SUMIF may also be needed as well but need the MONTH(serial_number)to work first. If there is a way to code all of this in VBA that would be fine as well.

I have a pivot table on Sheet1 where I am trying to get the totals and averages described above but I am not sure it can do what I need. In column 'B' I need the total number of each item as well as the total number of all items. I tried various formats and adding the totals from the Totals tab but I have not figured it out.

View 7 Replies View Related

Find Details Of Deleted Rows

Feb 3, 2009

In excel, is there anyway to find the details(history) of the previously deleted rows (using vba or anyother way)?

View 9 Replies View Related

Display Details Of Rows Deleted In Macro

Nov 25, 2006

I have a macro that deletes certain rows. I'd like the macro to tell me what it deleted specifically (if anything). Here's some of the macro:

For rownum = 1 To maxrownum

item = Cells(rownum, 1).Value
If item = "PUBS" Or item = "SWCDROM" Or item = "PC PACK" Then cells(rownum, 1).EntireRow.Delete

How do I get the macro to tell me if it deleted PUBS, SWCDROM, PC PACK, all three or nothing at all?

View 9 Replies View Related

Move To Selected Tab Name

Sep 15, 2006

I'm working on a spreadsheet that has a title sheet with a list of company names, each subsequent sheet has that companyís info. I have a macro in it that uses the name in A1 (on the company info sheets) to name the tab (with error checking).

What I now need (and can't for the life of me figure out how to do) is to have a link between the title sheet -when you click on a company name- and the company info sheet.

The company info sheet had the same exact name in A1 and on the tab as what is on the title sheet.

View 9 Replies View Related

Move Selected Row To Another Worksheet

Oct 25, 2007

I have a workbook with multiple sheets. I need to create a macro and associate it with a command button that will cut the row the user has selected and paste it into the last empty row on another sheet in the same workbook, then, go back to the first sheet and delete the empty row.

View 3 Replies View Related

Move Data On Selected Field

Feb 25, 2008

Once the user has submitted the data and the results are shown on Sheet1, how can i move that data into selected fields on sheet4.

find the attached excel sheet...

View 11 Replies View Related

Move Cells Down To Selected Cell?

Jul 31, 2012

I have 2 col A & F. F col associate with date values & Col A has some color cells.I want to move down those color cells to a selected non-color cell row when run a macro.

I have code which perform to move color cells down to selected cell but problem is, if i have A4 & A6 color cells and i selected F2 cell & run macro then color cell A4 & A6 move down to cell A2 but cell A3 move to place A6. The sequence is

A1A2A4A6A5A3A7A8 & so on but i want cell A3 just push down the order & sequence will be

A1A2A4A6A3A5A7A8 & so on My code is as

Code:
Public Sub Move_colored_cells_rows()
' Instead of moving the entire row , 10 columns will be moved
Const NUMBER_OF_COLUMNS = 10

[Code]....

View 2 Replies View Related

VBA Code To Copy Selected Multiple Columns To Multiple Rows In Excel

Mar 13, 2014

I want to to copy selected columns of sales data into rows organized by salesperson. I have just started out with VBA and find that I cannot do it myself.

My original data are in the form of the following:

invoice_no
product
sales
qty
total

[Code] .....

I want to display the data in another sheet in the following format:

sales_a
sales_b
sales_c
sales_d

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

View 2 Replies View Related

Move Contents Of Manually Selected Cell

Aug 22, 2009

I have an array, letís say B1:D20. I would like to be able to manually select any cell within this array and then run a macro which will place the contents of the selected cell into the cell in column A in the same row as my selection.

View 3 Replies View Related

Cursor Movement :: Move To Selected Cells Only

May 16, 2007

to make cursor to move only on the selected cells.

E7, O21, O22, O23, O24, Z23, Z24, Z26, Z27, Z28, C26, C27, C28 ...

View 4 Replies View Related

Listbox Move Selected Items To Another Worksheet

Jul 3, 2007

I have listbox of information set up to have a user choose several items. I want the items to then transfer to another worksheet. I am using the code I found here:

Private Sub CommandButton2_Click()
Dim lItem As Long
For lItem = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lItem) = True Then
Sheet2. Range("A65536").End(xlUp)(2, 1) = ListBox1.List(lItem)
ListBox1.Selected(lItem) = False
End If
Next
End Sub

But it is only moving The first item in a column, instead of all the columns of information. What do i do to get it to move all the information??

View 9 Replies View Related

Move Multiple Selected Items To Another Listbox

Feb 14, 2008

The following code populates a forms' second listbox (Elements_lbx) with True. No amount of diddling (by me) can get the selected items from form's first listbox (Content_lbx) moved over to the second. (NB. the list box isn't the standard VBA listbox but an open source: ListEX from Marco Bellinaso.)

Private Sub CommandButton2_Click()
Dim lbx_Sel As Long
' loops through ListBox to test if it is selected
For lbx_Sel = 0 To Content_lbx.ListCount - 1
If Content_lbx.Selected(lbx_Sel) = True Then

Me.Elements_lbx.AddItem Me.Content_lbx.Selected(lbx_Sel)

'
'Clear the selected item
Content_lbx.Selected(lbx_Sel) = False
End If
Next
End Sub

View 9 Replies View Related

Copy Rows From Selected Sheet To New Sheet Based On Cell Value

Mar 27, 2008

i have a workbook that has a lot of sheets but i need to pull information from the one sheet "Veneer Log" i Need it to make new sheets with the same heading as on the "Veneer Log" (Rows 1 & 2) Sheet but it needs to be filtered by the "Product" Column (H) with a new sheet made for all the diffrent products i.e. Dimensional, Drywall, Corners - Thin V., Accents,..... so each product will have a new sheet with i am hoping someone can help me with this. This log changes Daily and it would be nice to have a sheet with only the same product on it to compare new orders so we can batch run. i hope i have given you enough information so someone can help me with this. i have attached a sample log the real log has about 10 worksheet for diffrent departments but i only need info from the Veneer Log Sheet.

View 14 Replies View Related

Summary Sheet Calculate Results Change If Rows Added/deleted In Detail Spreadsheet

Feb 27, 2009

[Excel 2003] I have 2 spreadsheets: one to summarize data from a 2nd detail spreadsheet. I'm analyzing work order information for a service operation.

I'm using dynamic name ranges, as follows, for the detail:

WO_Num =OFFSET('WO Tracking Log'!$A6,0,0,COUNT('WO Tracking Log'!$A:$A),1)

Other detail data is defined as these examples show:

GM_X =OFFSET(WO_Num,0,8)
OpenDate =OFFSET(WO_Num,0,1)

All detail data begins in Row 6 in the detail spreadsheet.

In the Summary spreadsheet, it appears to make a difference where my calcs are located in order for my COUNTIF's to work correctly. As long as I keep my summary calc (to total the number of work orders in the detail) in Row 2 of the Summary, it works fine...but if EITHER I move my calc down a row OR if my detail drops down a row because a row was added above (where I have just header info), my summary totals change?!?! I don't understand.

Here are two examples of the calcs I'm using in the summary:

=COUNTIF(WO_Num,">0")
=COUNTIF(GM_X,"X")

Can someone tell me what is going on? What I'm doing wrong?

View 8 Replies View Related

Move Selected Non-consecutive Text Characters From One Cell To Another

Feb 27, 2014

I am trying to select and move text from one column to another. I have roughly 1,000 cells in column A and I would like to tell Excel to select characters at certain positions and move them into the adjacent column.

I want it to look like this...

column A column B
ABCDEFGHI BCI

Each cell in column A has a 9-letter sequence. I would like to move characters 2,3 and 9 into the adjacent column

View 2 Replies View Related

Button Macro - Move Whole Row Of Selected Cell To Another Sheet

Jan 27, 2012

A button macro that will move the whole row of the selected cell to another sheet?

View 3 Replies View Related

VBA To Copy Selected Rows In One Worksheet To The End Of A Table In Another Worksheet

Jun 22, 2006

I would like to be able to select several non-sequential rows in a worksheet called "Data" (using a check box or just entering a value in Column A) and then be able to press a Command button to copy the selected rows to another worksheet called "Estimate" at the bottom of a table, and delete the designators in Column A (i.e. deletes the value, or unchecks the boxes) so I can repeat the process again if needed.

View 7 Replies View Related

Delete Rows Matching Criteria & Move Rows

Aug 28, 2007

I have a worksheet in which I have sorted the data based in date and numbering (column I and E). I would like to create 2 macros for following actions:

1- all rows with the value "TOM" in column C will have to be deleted.

2- all rows with a value of 601 or 602 in column E, will have to be moved to the bottom of the sheet after the last row with data. The rows that have been moved will have to be sorted based in date (column I) and numbering (column E).

View 2 Replies View Related

Find Rows With Commas, Then Move Those Rows To Another Row

Jan 19, 2010

I've got an excel file with over 20,000 rows with Column A being having values of a "Vendor Number" while Column B has a "Vendor Name" Here is an example:

Vendor #Vendor Name
1001ABC Supply
1002Larry, Moe, Curly Inc
1003John Smith
1004Fred, Wilma, Barney LLC

I'd like it to find the rows where the Vendor Name has a comma present, and then put it in another sheet, or in another column like column C and D. If I can't get both the Vendor # and Vendor Name re-inserted someplace, that is OK. The Vendor Name is the big one.

View 2 Replies View Related

Add Numbers From 2 Rows,then Move To Next 2 Rows & Repeat

May 24, 2007

I have 3 columns and 200 rows. The first column is for Name of product. 2nd column for number and 3rd for $value of number of products. Have 200 rows. Have done a sort and checked. 2 sets of rows are for the same product name. I want to know if it is possible to add up values in 2nd and 3rd column, 2 rows at a time , then 4th and 5th column and so forth, by some formula rather than doing it manually?

View 4 Replies View Related







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