I'm having a toughs time with what I thought was a simple task. I need to cut and insert/paste a range of cells and then repeat in a loop. Explicitly, I have 3 columns with 2990 rows. Every 46 rows is a 'group' and I want to cut each group and paste at the top of the sheet so I have only 46 rows and (2990/46*3) 195 columns. I need to preserve the order so that the group at the bottom becomes the rightmost group........
View 5 Replies
I am looking for some example code that when I get an error using workbook.open, because a file is corrupt, I can cut from the list and paste into a range to show that file had errors, then delete that row and continue.
For example
My list:
Column A Column B Errors List Error
File path B and name Information File Path A Information
File path C and name Information
File path D and name Information
I can cut and paste File path C into an errors list, then delete the row A and B and shift the below lines up.
I've created a named range (A500:AB500) called "RowTemplate_C"
This row only contains specific formatting which I would like to use throughout my workbook.
How can I create a macro function whereby:
When I select a cell or row, and click a button (called "InsertRow_C" ),
This inserts a new row, and pastes the named range there.
I've recorded my actions and made several attempts .. but my knowledge in VBA is, as you can see, quite limited.
Sub Macro1()
Selection.Insert Shift:=xlDown
Range("RowTemplate_C").Paste
End Sub
I have a workbook with 100 worksheets, and one TOC (table of contents) sheet. The TOC sheet is full of hyperlinks, linking to specific places in the workbook, and all other worksheets have a link that take it back to TOC sheet, selecting the cell that would link back to the sheet I just came from.
When I insert a new row, say above row 18, the links in all sheets that point to anything below row 18, point to a wrong cell now. Anything that pointed to A26 will continue to point to A26, but because of the row I inserted, the cell it should be linked to is now cell A27.
Is there a way to insert a row, and have all hyperlinks in the workbook adjust accordingly?
I have a very large spreadsheet that I imported from a Text File into .xls. I need help changing some of the cells around. there is a macro that change the format into the desired look. It takes me about 4 hours a week to clean up this spreadsheet. This is what is the spreadsheet looks like after importing:
Row 1Column AColumn B
Row 2340 Name
Row 3
Row 4
Row 5Actual
Row 6Activities
Row 7AAAAAA16:34
Row 8BBBBBB35:08
Row 9CCCCCC0:02
Row 10DDDDDD57:25
Row 11EEEEEE8:56.....................
I have made really huge downloads out of our SAP system (needed over 20 separate Excel files ;-). I need to analayze the data, but unfortunately the date is not 100% consistent as some cells are emtpy. Is it possible to have Excel look down a column, and have it insert a blank cell in another column on the same row where it found the empty cell? (and move the cells right a a result?)
I have attached an example of what Excel should do as it is hard to explain (as you can tell ;-). I am likely to spend the next days figuring out how I can best combine the data and analyze it!
I would like to have a VBA code to the following:Please note that the rows are dynamic and I need the results row for every customer.Currently it is totalling and displaying the results column at the botton of every customer but I need it at the start of every customer
1.When the new customer number starts the cells are shifted and moved one row.
2.Insert the results word and it displays the results thats displayed currently at the bottom,shoudl be displayed at the top where the row gets inserted in (1)
Current view:
Customer Date of POD Del date Diff Percent
123456 03.02.2009 03.02.2009 0 100
05.02.2009 10.02.2009 5 0
Result 0
(The result is that if all the rows are 100% ,the result row is 100% else it is 0%)
Preferred View:
Customer Date of POD Del date Diff Percent
123456 Result 0
03.02.2009 03.02.2009 0 100
05.02.2009 10.02.2009 5 0
I have a large spreadsheet that I am managing and there are many users who access this for information. Because of this, we have all created "custom views" for our departments.
I continue to struggle with how to save changes in these custom views. Yesterday, I added and moved some columns to the spreadsheet and now all the custom views are messed up. The only way we have been able to work through this is deleting and creating new views.
I would like to create a macro that could archive entries from one sheet and insert them in another. I created one but the problem is that the entry has to be the same row each time.
Example:
Sheet 1 – is current jobs and sheet 2 is old jobs.
My macro moves an entry from Row A-5 of Sheet 1 and moves it to the top of Sheet 2.
I would like to be able to scroll through each entry select it and have it moved to the top of the Old Jobs sheet.
Macro, which can cut/Paste from sheet "Pastin" to Sheet "Robot".
The input in sheet Pastin is veritical and the the result is in a row horiontsal.
There can be no references between the names for the columns or rows, only the cell to move.
I would like it to be so when I run the macro it example move it to sheet robot from row A3, and if I do again it make the next one from Row A4.
What I want to move can be seen in below.
Cell on the left is sheet "Pastein" and cells on the right is sheet "Robot"
Special is that one move have to be taken from on cell comma separated input, so it goes to sheet "Robot" for each text/number, between the comma.
I have attached a test sheet to work with also.
[Code] ...
Testmove.xls‎
I am trying to use a conditional macro to move data around in a spreadsheet. Is there a way to use an IF AND conditional statement in a macro? As an example:
Range Select ("M3")
' THIS IS THE LINE I AM HAVING A PROBLEM WITH
If Selection("M3").Select And Selection("N3").Select = "1" Then
Selection.Offset(6, -9).Select
Selection.Copy
Selection.Offset(-6, 0).Select
ActiveSheet.Paste
Selection.Offset(0, 1).Select
Selection.Copy
Selection.Offset(6, -1).Select
ActiveSheet.Paste
Else: Selection.Offset(0, 1).Select
End If
End Sub
I have an excel worksheet with contact info in columns rather than rows. For example, C1R1 is company name, C1R2 is address, C1R3 is City/St/ Zip, C1R5 is phone. I recorded a macro to cut and paste address to C2R2, C/S/Zip to C3R1 and phone to C4R1. That works but I cannot repeat it as I move down the list. Just re-runs macros over same cells all the time. How do I get it to start and run wherever I want it too? Also, how would I get it to delete the now vacant rows?
View 9 Replies View RelatedI am trying to find a macro that will filter on Column F (non-blanks - just cells with dates) cut just the filtered data (A:G inclusive)without the Header Rows and then paste/move this data to the first empty row on another sheet called "Complete"
So that I get the cells in columns A:G with dates in moved to the "Complete" tab and they are no longer in the sheet "Deliverables"
Designing very simple macro, it simply trims of some bits from the spreadsheet.
I paste special the trimmed cells over the top of the existing cells.
The macro works fine on my computer.
I took the code from my computer and put it on the other persons computer. The macro didn't work claiming issue with the paste special.
When I copy a cell with CTRL-C and paste elsewhere, a small clipboard pop-up appears to give paste options. The pop-up is the size of an average 'starter' cell. I find it a nuisance as it always covers a cell I might want to paste into, but I cannot see that cell anymore because of the pop-up. How can I get rid of the pop-up?
View 2 Replies View Relatedi need to have 6 or so cells copied and pasted into another sheet. (when a button is pressed) However before the data is pasted it checks if there is anything in the cell(s) that are being pasted into, if there is something then move down a line and paste. Here is the code i have already:
Sub Order2Invoice()
Sheets("OrderDatabase").Select
Range("B65536").End(xlUp).Offset(1, 0).Select
With ActiveCell
.Value = Orderform!G5.Value
.Offset(0, 1) = Orderform!E10.Value
.Offset(0, 2) = Orderform!E11.Value
.Offset(0, 3) = Orderform!E12.Value
.Offset(0, 4) = Orderform!E13.Value
.Offset(0, 5) = Orderform!E15.Value
.Offset(0, 8) = Orderform!E15.Value
End With
Sheets("Invoice").Select
End Sub
I have named a column as a range (in this case, "Data"). I have a macro that needs to always insert a line in range "Data" at row 3 and paste a value there. Currently I do not use ranges but rather use specific cell location. This works but is a royal pain when I add new columns.
View 3 Replies View RelatedI'm copying rows and pasting to a new worksheet but want to insert at the bottom not simply paste at the bottom of my destination table.
If wsExists(ShtName) Then
Set NextCl = Worksheets(ShtName). Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
cl.EntireRow.Copy Destination:=NextCl
End If
I've tried adding
If wsExists(ShtName) Then
Set NextCl = Worksheets(ShtName).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
NextCl.EntireRow.Insert
cl.EntireRow.Copy Destination:=NextCl
End If
it adds rows but alternately and isnt correct.? I would also like to paste as Values not copy and paster the formulas
i try to paste in active cell copied range.
I mean that i do follow:
- i select range of cell - mostly range of column f.e. A2:A500
- i click/select on any free cell (f.e. B1)
- then i run macro
i expected it paste unique values (text or number)
this dont work
i dont know how defined the range
Looking for a code to do the following:
If rows 1 through 20 are unlocked and rows 21 to end are Locked
I want to use a Command Button to automatically
> Insert a new row (after row 20 and not before)
> Copy row 20 (which is already formatted)
> Paste row 20 onto the newly inserted row with all formats
The 'Add new material' button at the SMX sheet paste a range of formatted cells and formulas. The user is suppose to type in the description into the yellow filled cells. The problem is once the user enter sthe description in the yellow filled cells, i need the data to be copied into the FastCheck Sheet. Before that, a new row must be generated to copy for the data to be pasted.
View 2 Replies View RelatedI am trying to copy one worksheet using the "move/copy" function that is available when you right click a tab name and want to copy the worksheet in the same workbook
The steps I'm using are:
1. Right click the tab name
2. Select Move or Copy,
3. Select Create a Copy
4. Click OK
Doing all of the above does not work. When the new worksheet opens, all columns are the same width. It seems to be stuck on "autofit column width" setting of 8.5. The original worksheet is several columns wide all with different width settings.
I've also used Copy, Paste Special and selected column widths and that does not work either.
Using DataEntry sheet for data.
Trying to rearrange the data to DataFormatedProperly sheet.
So far all I can accomplish is DataFormatedWrong sheet.
Edit: Not sure what happened but file was NOT understandable before. It should be correct now.
I'd like to have done is to have a blank column inserted between columns W and X(these values change so the VBA statement should reference the end of the columns) and the values that are now in column Y(April 17th values) pasted as values into the now empty column X. I would like to do this for tabs Ann-Sheet 2. I'm having a bit of trouble with setting up the loop that would go through the desired sheets.
View 4 Replies View RelatedI'd like to know if it's possible (Excel 2007) to insert a function/button into a cell, which when clicked, will paste whatever is on the clipboard?
You can see a screenshot of my document here, and I'd like to insert a paste funtion in the red circle. Is it possible?
[URL]
I'm looking for a way to write a macro to insert 5 lines at the end of the data in column A. Then I want to copy a range into the newly inserted lines. I would press a button anytime I need this to occur.
Current last line of data A39
Need to insert 5 rows after A39
Then copy range BA30:CB34 into the newly inserted rows.
writing a code where i can copy a worksheet (Sheet1), insert a new worksheet at the END (as the last worksheet), and paste to that new worksheet (which will have a different name each time a new one is added). I am using the code below, but it adds a worksheet after Sheet1 instead of at the end, and it also adds another weird worksheet that says "Dim Worksheet" in one cell, and "Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count), Count:=1, Type:=xlWorksheet)" in another. This is not in the VBA window, it is just text in a cell in another inserted worksheet. I only want one worksheet added at the end that I can paste too (knowing that the inserted sheets will always have new names).
Code:
Sub CreatePercentageSheet()
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Paste
End Sub
I have two spreadsheets in Excel 2003.
Spreadsheet 1 has 10 columns of data (A-J). I want to copy a variable number of rows from spreadsheet 1 to spreadsheet 2.
When I paste into spreadsheet 2, I'd like to automatically insert blank cells in three places, taking the total number of columns to 13. I'd like columns C, F and I to be blank, and the last column with data to be M.
I will perform this task regularly, and add the copied cells to the bottom of spreadsheet 2, so I'd only like to insert blank cells within the range that I'm copying, not the entire spreadsheet.
I will then populate the blank cells with a VLOOKUP function. Do I need another macro to automatically add the formula to the cells, or is there a way to include this in the cell-inserting macro?
I have mananged to find and tweak the following code in order to serve my copy / paste to master sheet requirements.
At the bottom of the code I have added a delete rows based on column contents routine although I'm not sure if it is actually the right one to use.
I have included it in the same module in order to tidy up the whole process and have it all operate under one click.
As stated on the sheet in this exmple, The paste could consist of any number of sheets although the range is always the same on each sheet. (only amounting to around 20 rows that we are dealing with so no reams of data with odd empty rows that would take an age to find otherwise).
The data can look like it does on Sheet 2 here and also could look like it does on sheet 3. (this data is coming from a sales rep's order sheet)
From the routine in module 1, I just don't know where an "add an empty row" or delete all empty rows bar 1" code would need to be inserted in order to keep the process going until all sheets are copied.
I'm aware that with the delete code at the bottom, the whole copy process is completing before the delete process then does it's bit so think I'm on the right track in thinking that the delete all empty rows but leave one" requirements needs to be further up the code but I just don't how to get the result I need or where that code should break into the routine.
The only other way I can think to acheive the result is to allow the range to increase by 1 row on the form but somehow make sure that the last row in the range contains a character in column B to "trick/force" the delete routine to leave that row in. That would be do-able but the trouble is, how do you get a value into a cell that the delete proces would treat as data but not be visible so keeping my spacer line tidy? I've tried just putting a space in the last row of the range in column B but the row still gets deleted.
I'm working from a sales ledger file whereby I want all invoice data in one row although the Item Number & Item Description are on the first row. Rows 2-10 (for example) are the actual details of the invoice: Invoice #; Date; Customer ID; Customer Name; QTY; etc.
Is there a formula or easier way than copying/pasting the "Item Description" to the first column (J in this case) without any related invoice data?
