Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    Excel


Macro To Copy Paste Values And Formulas

I have an existing macro that copies a worksheet and pastes it into another workbook, renames it and then attaches it to an email. My problem is that it pastes just the values. I need it to paste part of the original worksheet as values and part copy the formulas. So on the new workbook Columns A through F will be values only and G through Z will copy the formulas.

View Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
Copy The Information From The Row Directly Above The New Row And Paste (values, Formulas, Formats, Etc) Into The New Row
1. In whatever cell is selected when the macro is run, enter a new row.

2. Copy the information from the row directly above the new row and paste (values, formulas, formats, etc) into the new row.

3. Return to column P in the new row, i.e if the new row is row 11, then return to P11, for row 12 return to P12, etc.

I have tried recording the macro but because it is hard coded to specific rows, its not working. I have attached a sample copy of the sheet (had to zip due to the size of the file).

View Replies!   View Related
Macro To Paste Formulas As Values
found a great macro which copies data from multiply worksheets and pasts them onto master sheet.

I have adjusted the macro to my spreadsheet, but my macro should past formulas as values.

View Replies!   View Related
Macro To Paste Formulas As Values On Specific Pages
I have a macro that pastes formulas as values on specific pages (("CTY EME", "Int Center", " Total SW dist cost", "Int, pubs & oth", "Total". Is there a way to compress the macro ie with the sheet names?

Sheets("CTY EME").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

View Replies!   View Related
Macro To Copy/paste Specific Rows (and Formulas) Based On Drop Down
I have about 10 rows of data that have columns of information describing computer hardware and pricing. There are 10 rows, because each row represents a different country and different tax rates and pricing changes per country. So each column of a row has a specific formula to calculate information for that row's country information. All these 10 rows of formulas are kept as a reference at the bottom of the sheet.

At the top of the sheet I need to have a drop down menu to choose a country and then it will automatically copy and paste the row of that country to the current row at the top.

Is there any easy copy/paste macro for such a thing?

View Replies!   View Related
Paste Formulas As Values (strip Out Unwanted Formulas)
I have a macro running this code to strip out unwanted formulas and formatting.

Sub Quote_Wrapup()
'To stop screen flicker
Application.ScreenUpdating = False

Range("qdata5,qdata6").Font.ColorIndex = 2

'To delete delivery address lines if 1st line empty
If IsEmpty(Range("deliver_line1")) _
Then Sheets(1).Range("deliver_rows").EntireRow.Delete
'No End If required as only one action as a result of the If

Columns("A:E") = Columns("A:E").Value .........................

A spreadsheet based on my template has been sent to me because the macro won't run properly. When I try to run the macro I get a Runtime Error '1004' Method 'Range' of object '_Global' failed on the following line. Columns("A:E") = Columns("A:E").Value.

View Replies!   View Related
Macro To Copy, Paste Values, And Remove Blanks
I need a macro that will take the values that are in the far right cells and move them to an area on the left. the columns they will be pulling from are the IU & IV column starting with row 2 down to row 460. from there I need the values to be pasted into the D & E Columns starting at row 6. The two columns IU & IV are a date and a task for that date. When they are pasted into the columns D&E they will need to be sorted by dates (or just all of the blanks removed), with the soonest occurrence at the top. The reason for pasting values is because I have formulas pulling the tasks and dates off of another sheet. The last thing is that the macro needs to be triggered by the information in cell c2, when that cell is changed the formulas go to work and everything in cells IU & IV update. That is when I would like the macro to kick in and work the miracle.

I have been trying to build a colony of formulas that could do it, but I have given up, then I tried to make an array index it for me, but that wasn't working for me either.

View Replies!   View Related
Conditional Copy/Paste Special Values Macro
I have 9 worksheets in a book with sheets 1-8 used for data entry, and sheet 9 used for a weekly data upload. Sheets 1-8 are all formatted the same, they just represent different vendors. I need a macro to look through column F (invoice number) on sheets 1-8 and see if the value of each cell already appears in column c on sheet 9. If the value is not found and the row value for column M (sheets 1-8) is >0, I need to copy the data from columns D:K and paste special values into the next blank row on sheet 9.

Basically I'm trying to see if I've already paid an invoice, and if not then I need to automatically add the data for payment. I've tried to mess around with a VBA code myself and ended up with a migraine every time. I've also tried to use the advanced filter, but the cell values I need to copy over contain formulas and conditional formatting...not to mention I can't delete the data on sheet 9 that has already been added.

View Replies!   View Related
Macro That Allows The User To Copy And Paste A Set Of Date And Time Values
I am trying to develop a macro that allows the user to copy and paste a set of date and time values, move them to the next sheet and increase the month by 1. I need help trying to find out how can I create a counter for the program to keep running without the need to reprogram the macros again.

View Replies!   View Related
Macro To Open File, Copy Paste As Values And Save As Excel Html
I have a folder containing 40 single sheet excel workbooks and I would like to automate following tasks:

- Open each excel file (need to open the file so as to update it since it gets the data from another workbook through =formulas)

- Copy paste as values

- Save this as excel html in the same folder as original excel files (keeping the original file name)

- Close (original excel file should not be changed ie formulas should remain in place, only the html file will contain values)

- Since there will always be xHtml files with same name need the macro to replace the excisting file

My abilities with excel are limited to functions, no VBA knowledge other than finding ready codes and pasting them in the module.

Since this routine is to be run almost daily the macro should run all files, instead of one by one.

I just hope that I am not asking too much for excel to handle and I hope that explanation is clear.

View Replies!   View Related
Copy/paste Values (copy Values Of Cells From B4 Till B-empty To C Column)
Sheet linked from external file, new data coming daily. How to copy Values of cells from B4 till B-empty to C column? The attached file has a properly displayed data.

View Replies!   View Related
Copy/paste Formulas Only
I have setup a forecast model and now find it necessary to update many formulas

I have set period 1 formulas correctly and would like to copy through periods 2-12. However each period has already been populated with data that need to remain intact in this process

For example,
I have formulas to copy at I5 and I9. I6,7,8 should be skipped

These formulas should be pasted to K5 and K9 respectively, while leaving K6,7,8 intact

This is of course a simple example, the column contains 15 formulas to be copy/paste

View Replies!   View Related
Paste Special - Values To Delete Formulas.
Sub import()
On Error Resume Next
Dim wb As Workbook
Dim c As Range
Dim rngTo As Range

For Each c In Range("D1:D10").Cells
Set wb = Workbooks.Open(Filename:=c.Value)
With Workbooks("DigitalTicketMaster.xls"). Sheets("All")
Set rngTo = .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0)
End With
wb.Sheets("Combined").Range("A2:C100").Copy rngTo
wb.Close .............................................
we have a change on our sheet, make it easy for our guys. Column A, is the date. Today 6/29.

They enter it once at the top, and it pastes for them automatically (a simple cell = $E$1)

But now, when I use the macro, it pastes over the formula that I don't want nor need, and have to call the second macro for. But then everything in that column shoes E1 on my new sheet, which is not the date... and each sheet changes dates, so I can't just have the date all the same.

What can I do in my original code to still make it loop, pull all my pages that I tell it to, but paste values only?

Would it be possible, in my loop, to highlight my cells, on that sheet... A2:C100, copy them, paste themselves right onto themselves, as values only, then copy over to my new sheet?

View Replies!   View Related
Losing Formulas In Copy & Paste
This is probably a simple one but I can't figure it out. I am building a workbook from scratch. It has about twelve of thirteen tabs at the bottom. On one of the tabs I would like to copy and paste a stand alone worksheet. The worksheet functions properly when it is stand alone. However when I copy and paste the worksheet into this new workbook none of the formulas transfer with it. I do get the cells filled in, but I would like to get the formulas.

I have done this before and it worked fine. In fact I can open a new workbook and copy / paste the worksheet into it and everything works fine. Again when I copy / paste it to this new workbook the formulas do not transfer.

View Replies!   View Related
Copy Range & Paste To Display Formulas
I'm working on a large set of data, so rather than read/writing lots of times to the sheet, I've followed the tip of reading a range to a variant array, processing the array, and then writing the whole thing back to the sheet (and it is indeed much much faster).

Dim vdata As Variant
vdata = Range("SummaryOutput")
'do a bunch of logic
Range("SummaryOutput") = vdata

To make things simpler (fewer ranges/variants to manage) I've defined a large range which includes non-data cells (blanks, labels, SUM formulas, etc..). The problem is when I read the range into variant array, it only copies the cells' values -- which means that once I write it back to the sheet, the formulas are lost.

So what I'm looking for is some way to read range into a variant whilst keeping the formulas (which I would see just being a string value in the variant array?). Does anyone know how this could be done?

View Replies!   View Related
Paste Visible Formulas Cells As Values In Filtered Table
in the sample worksheet, I need help with a VB code to copy the formulas in column D, to paste them as values in the same cells (without removing autofilter by clicking on menu Data>Filter>Autofilter, then edit>copy>paste special>values).

View Replies!   View Related
Copy Values Instead Of Formulas
I am working with an Address Worksheet where the house#, street name and street type are 3 seperate columns. I need to combine that data into one "Address1" column. I can use a Concatenate() formula to combine the data, but I need to be able to have that data output to a new column, independent of the formula.

The problem that I am having is if I try to "copy" the concatenated data to either a new column or new worksheet it only wants to copy the formulas. I don't need the formulas anymore, I need the data.

View Replies!   View Related
Copy Rows Formatting And Formulas But Not Values
How would you copy a row's formatting and formulas but not value. for example: A1 1 B1 =a1+2
I would like the copied row to be: A2 (blank) B2 =A2+2

View Replies!   View Related
Copy/Pasting Formulas But Only Changing Certain Values In Formula
I'm trying to copy and paste this formula to multiple cells and am having difficulty doing so without everything in the formula changing.. SUMIF(Bankroll!Q14:Q6000,U143,Bankroll!Y14:Y6000)

I only want the U143 to change to U144, U145, etc. Yet when I copy and paste down the sheet it changes the Q14:Q6000 and the Y14:Y6000 values as well. I've been having to go through and paste the formula one line at a time and then manually change the U143 to the current U cell that I want it to represent in order to keep the rest of the values the same. Is there a faster way than this?

View Replies!   View Related
How can i use this code to make it working also on a range filtered

Sub CopyPasteValues()
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

View Replies!   View Related
Copy & Paste Values Only
I paste cell information into cells already formatted to have certain colored backgrounds, ect. However, upon pasting the cell format from the copied cell is obviously applied.

Is there a way of locking the cell formatting so that I can paste information from a different cell, but the font/bground colors stay the same?

View Replies!   View Related
Copy And Paste Values ...
How do I tell VB to copy the values from whole row on one worksheet to the row with the active cell on another worksheet?

View Replies!   View Related
Copy And Paste From One Sheet To Another Based On Column A Using A Macro Copy Button
I want to copy and paste from one sheet to another based on column a using a macro copy button.

E.g. if column a value = apple then copy that row into the apple sheet.

View Replies!   View Related
Automatically Copy And Paste Values
I need to automatically copy cell IR18 value to cell JT18. I've been searching the forum for some code and I came up with something that only partially works for me:

View Replies!   View Related
Copy Range & Paste Only Values
I want to press a commandbutton and fillacrosssheets but I only want to fill the values, no formatting, no formulas.

The following code works, but carries over the formulas and values.
I tried changing xlFillWithContents constant but without success.

Private Sub CommandButton1_Click()
Dim msg As Integer
Dim ws As Variant

msg = MsgBox("You are about to copy over the existing cells in columns D through P of the Bill Of Materials. Do you want to continue?", vbYesNo + vbQuestion, "Paste Cells")

If msg = 6 Then
ws = Array("Bill of Materials-2", "Admin")
Sheets(ws).FillAcrossSheets _
Worksheets("Bill of Materials-2").Range("D20:BottomLineC"), Type:=xlFillWithContents
End If
If msg = 7 Then
Exit Sub
End If
Application.CutCopyMode = False
End Sub

View Replies!   View Related
Copy & Paste One Or More Cell Values To
Tried all day to find a way of selecting text ( from several cells) on one sheet and then having it pasted into the textbox on another sheet. I did originally paste the text to a cell but it makes the row's vary in size depending on the copied text and gets a bit annoying. Seems to be This is the paste to Cell code

View Replies!   View Related
Copy And Paste In Absolute Values
we have numbers in cells at positive and nigative values, how can we copy and paste in absolute values

View Replies!   View Related
Range Copy & Paste Values Only
I can copy one range to another with:

Rng1.Copy Rng2

How can I modify this so I only paste over the values (not formulas)?

View Replies!   View Related
Copy Paste Cell Values Only
I need to copy the cell values from one worksheet to another. the code works, just that it copies the formatting as well What should be changed in order to copy the values only?

For outerLoopNum = 2 To Application.WorksheetFunction. CountA(wksNew.Columns("A:A"))
For innerLoopNum = 2 To Application.WorksheetFunction.CountA(wksUpdate.Columns("A:A"))
If wksNew.Range("A" & outerLoopNum) = wksUpdate.Range("B" & innerLoopNum) Then
wksNew.Range("AG" & outerLoopNum & ":AJ" & outerLoopNum).copy
wksUpdate.Range("AP" & innerLoopNum).Select

View Replies!   View Related
Copy Paste Values & Push Down Row
I was trying to build a macro which will push - copy and paste (but only values) the last raw down for one line. I tried to use existing answer for copy, paste and pushing down rows find on this forum, but raws a just moved without pasting the values.

View Replies!   View Related
Copy Range & Paste As Values

View Replies!   View Related
Copy & Paste Macro Won't Paste
I want this macro to find in this case "406" in column A which is at the very end of the last block of 160 rows of information.

I then want it to move up 159 rows and copy 160 rows of information underneath the last block of information.

i.e.go to A5280 , then go to a5121, copy rows 5121:5280 to 5281.

It falls over on the very last line of code I can see A5281 selected but it won't paste....

View Replies!   View Related
Use Input Box For Values Then Copy And Paste Into Column
I know it's very simple; I'm obviously a beginner. What I would like to do is to have an input box prompt me and then take these values and paste them into columns. One value for each column. Ideally what I would like to have happen is for the values input into the inputbox to be pasted to specific cells. I have attached an image for reference. The beginning of the range B10 and C10 will be fixed but the ending cell range B14 and C14 will be variable based on the number of entries; essentially one less than the total number of forms on row 15.

View Replies!   View Related
VBA Lookup Value Copy, Paste Values Between Two Workbooks
I have a standard template worksheet called "Input" (the workbooks name is "Input Capture") which spans C12:U1100.

In addition I have a seperate worksheet which is based in an all entirely seperate workbook called "People Data" (the workbooks name is "Succession Planning") which again spans C12:U1100.

What I would ideally like is a macro which matches the value in column C and populates the entire row (much in the same way as a HLOOKUP, only pasting values) with the exception of columns M and Q.

View Replies!   View Related
Copy And Paste Values Based On A Criteria
a VBA code to do the following:

I have a worksheet consist of some 17,000 records - from ColA:ColDZ. In Datasheet, I have all values. From this, based on some values in ColA all records should be copied into another sheet(s).

I have attached a sample workbook in which I have explained the requirement.

View Replies!   View Related
Copy Pivot, Paste Values And Borders
Need to know how to copy a pivot table and paste only the data and formatting of the table, but not the whole pivot table. So I'd be leaving the links to the original data behind. If I do it manually I can copy my pivot table, do a PasteSpecial Values, then do a PasteSpecial Formats. Any idea how to do that via VBA?

View Replies!   View Related
Copy & Paste Values In Adjacent Cell
i had data in html format.i want the data to be splitted into columns in excel.

Employee name
Emp id

johnabraham wesley peter neiljohn and so on....... 254800 254801 254802 254803

i tried copying the data from html to excel. Then applied text to columns but i m getting incomplete names from this step.

My problem is how would i get the full name in one Column(Column B) & the emp id in the next Column (COLUMN C).Column A will have the data copied from html page. The length of the employee name differs. The only saving tip is that the employee name will suffix with sno like

Johnabraham -1

View Replies!   View Related
Copy/Paste Rows With Specific Values
I have workbook "Sheet1" that has many rows and columns with values. Could I have code to find the cells value "plant2300" in column A and copy all the rows in column A that has the cell value "2300" into workbook Sheet2 (also copy with headers from Sheet1 to Sheet2 row 1).

View Replies!   View Related
Macro Paste- Macro To Get The Values From Cells D29 And H24 In The Resource Calculator Sheet
I need a macro to get the values from cells D29 and H24 in the Resource Calculator sheet and populate it into cells N8 and O8 in the Input form.

Users will then be able to change the information in the calculator and click the macro again to populate N9 and O9 and so on.

Is there a way to do this?

I've attached the file for you to see.

View Replies!   View Related
Insert Blank Column And Copy/paste Values
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 Replies!   View Related
Copy And Paste Worksheets As Values To Named Folders
Am trying to copy 50 worksheets from One workbook, into separate existing files (overwriting previous file) in existing folders; once copied, destination files can not be linked to source file.

I'm able to copy the tabs into new workbooks, in the correct folders, but when trying to perform PasteSpecial in new books, original source file is also pasted over.

The parts of the file name and folder location are cell values located on each sheet.


For Each sheet In ThisWorkbook.Worksheets
Set workbook = ActiveWorkbook
With workbook.Sheets(1)
.UsedRange.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With

View Replies!   View Related
Find Column Values Between 2 Files & Copy Paste Into Another
1. For a file moving from one cell to the next, down the column, get the values and seach for the values in file number two.

2. If that value is found, copy a cell from file 1 to a cell of a column on the same row where the value was found on.

3. Do what was done on number two, but with a different column.

this is what i have so far...

Sub replace()
' Macro2 created by david

' for the entire sheet, moving from one cell to the next down the column, changing rows
' search for the contents in another sheet, and then if that is found,
' copy the row number to a variable, and then
' copy column K from sheet 1 to column N of sheet 2, using the same variable above
' after that same, but L goes to P.
Rng = Selection.Rows.Count
Dim toFind As String
ActiveCell.Offset(0, 0).Select
Application. ScreenUpdating = False
Dim i As Integer
For i = 1 To Rng
toFind = Range("A + i")

View Replies!   View Related
Copy Non Blank Cells & Paste As Values To Another Range
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 Replies!   View Related
Copy And Paste Special Values Issue/question
In the code below, I am copying information from a master sheet to various sub-sheets, but I cant figure out how, based on the way I have written my code, to copy and paste special values. I commented out the line that I need pasted special values.

Dim intData As Integer
Set wsData = Worksheets("Data")
LastRow = wsData. Range("A" & Rows.Count).End(xlUp).Row
Set wsCrit = Worksheets.Add
wsData.Range("E3:E" & LastRow). AdvancedFilter Action:=xlFilterCopy, CopyToRange:=wsCrit.Range("E3"), Unique:=True
LastRowCrit = wsCrit.Range("E" & Rows.Count).End(xlUp).Row
For I = 4 To LastRowCrit
Set wsNew = Worksheets.Add
wsNew.Name = wsCrit.Range("E" & I).Value
wsNew.Range("a3").Value = "Estimator"
wsNew.Range("a5").Value = "IP Number"
wsNew.Range("b5").Value = "Project Name" ......................

View Replies!   View Related
Copy Cells Based On Criteria & Paste Only Values
I am very new to Macro programming. I want to set up a macro which will copy data from few cells in a sheet and paste them as "Values" to certain specific locations in another sheet based on criteria. This copy paste needs to be done for about 40 different cells. I want to fix this with a button on the source sheet, so that this process happens when the button is clicked. I am attaching a sample file showing what I need.

View Replies!   View Related
Copy Formula Rows & Paste Values To Last Row Of Another Worksheet
I am trying to find a way of copying values from cells that are linked to another workbook and paste them to another sheet in same workbook to the end of last row entry. This needs to be done via VBA from a button. There are 35 rows and 9 columns linked to another workbook and they don't always have values (depending on source workbook). To cycle thru each row and copy if they have values and paste them to end of last used row on another sheet.

View Replies!   View Related
Copy Pivot Table & Paste As Values & Formats
my macro pulls download in on sheet1. On sheet2 it makes a pivottable of it with horizontally displayed the suppliers and vertically the codes of products. This is of course dynamic (one month it may contain 10 suppliers + 8 products, other month 15 suppliers + 20 products). On sheet3 is the (static) lay-out of all suppliers and all products. Now, what I want is that all fields <> empty (or zero) from the pivot table are to be copied and placed in sheet3, the 'report' I have to fill in. index and match won't do the job I think.

View Replies!   View Related
Copy To Another Sheet, Rename And Paste Special Values
i would like to copy a sheet to another sheet, rename, copy and paste special values. but after the sheet is copied to another, the macro stops working...?

Sheets("Proposal").Copy After:=Sheets("Proposal")
ActiveSheet. Name = "ProposalEmail"
ActiveSheet.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
:=False, Transpose:=False

View Replies!   View Related
Copy Multiple Worksheets With Paste Special (values)
I am trying to create a macro to copy multiple sheets to a single named worksheet, all within the same workbook. The code below works, except I want to copy only the data (no formulas). Can I add code to paste values, or do I need to start over?

Public Sub CopyandPaste()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Summary" Then
ws.Range("a2"). CurrentRegion.Copy _

End If
Next ws
End Sub

View Replies!   View Related
Copy Paste Special Values Of Named Ranges
Been playing with this for some time and can't quite figure it out. I'm trying to copy a named range and paste special value to another named range of the same size. I recorded a Macro that does what I need, and I'll use if necessary, but thought I'd try to consolidate the code a bit and can't get it to work. The recorded macro is as follows:

Sub PasteRanges()
Application.Goto Reference:="DataCopy30Yr"
Application.Goto Reference:="DataPaste30Yr"
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
End Sub

My attempt to consolidate was this:

Sub PasteRanges()
Range("DataCopy30Yr").Copy Destination: Range("DataPaste30Yr").PasteSpecial (xlPasteValues)
End Sub

I get the Run-time error 1004 Copy method of Range class failed when I try to run this. Again, I can use the longer version with no problem, but in the interest of learning and since I have spent some time not being able to come up with the solution, I thought I'd ask the experts opinions before I gave up on it.

View Replies!   View Related
Running Macro To Copy Rows Of Formulas
I have 2 speadsheets, I want to copy rows of Formulas from Spreadsheet 1 and copy them into Spreadsheet 2 but convert them into Values.

Is it possible to create a button on Spreadsheet 1 and assign macro to do exactly what i want? I also want the macro to look for the first empty row in the database so that the information being copied are on the next row and not overwritten.

View Replies!   View Related
Copyright 2005-08, All rights reserved