I have a really large excel file (90 Megs) And i want to copy the values and formats of certain sheets to another workbook. Ive tried using a copy/paste macro i had from work but the sheets have alot of groups and info so it kept freezing
View 9 RepliesAttached is my code, pay attention to the bold part. I want the sourceSheet to be copied as a sheet and pasted in the targetSheet (the Sheet2 of "NewBook") but I want it pasted asvalues. Here is the specific part which needs to be looked at...and below is the full code.
VB:
Set sourceBook = Application.Workbooks.Open(sourceFilename)
Set sourceSheet = sourceBook.Sheets("Current")
Set targetSheet = NewBook.Sheets("Sheet2")
[Code].....
Need a simple macro for paste value - it used to work in Excel 2003 but not 2010.
View 1 Replies View RelatedI need a macro that can copy a simple formula
I have 2 columns one for the number of items and a column next to it that cumulatively add the totals down the sheet e.g. =E12+G13 etc.
A B
2 2 (=A1)
4 6 (=A1+B2)
1 7
3 10
2 12
If I copy the formula all the way down the page my graph becomes distorted
Is there a macro that will only copy the formula when there is data in the first column and run in the background without needing to be activated
I am trying to implement a simple macro. Here is my
Function Age(DOB)
Age = Int((Now - DOB) / 365)
End Function
Sub Macro1()
Age (Selection)
ActiveCell.Offset(0, 1).Select
******
End Sub
The function basically calculates the persons age using their date of birth. What I need to know is how to copy the result of the function into the cell next to the selected one. (The code above only selects the adjacent cell).
I would like to implement specific cell ranges from two specific worksheets each within 33 workbooks (which all have several tabs) into a summary page in a separate workbook.
The cell ranges are going across my spreadsheet in rows and I would like for them to transpose into a columns depending on the data which I have separated by catergory on the summary page. They are all on the same location in each workbook which is separated by country. The cell ranges are E26:P37 and I would like to transpose them and have them put below eachother without overwriting for my format on the summary page, how I can put this together in a macro?
I have one workbook that needs two macros.
On the "Complete Backlog" tab of my workbook, I want users to enter in the requested information based on the column header. Then I would like a Macro attached to a button that says "Refresh" that the user would click after they have entered in all of the information. This macro should look in Column M (WIP Status) and if any of the cells say "Close", it should Cut the entire row from the spreadsheet(Ex. A2:M2) and Paste it into the speadsheet titled "Closed Jobs".
This is so that as jobs are closed/finished, they are removed and stored on a separate sheet. The items would have to be pasted so that it pastes into the next available row - not just on top of each other.
I also need another macro that i can put into a button that doesn't "delete" a row from the sheet, but just copies over to another sheet - so that there are two instances in the workbook.
If would look something like: If a cell in "Column G / Director" of the "Complete Backlog" speadsheet is equal to "Snodgress" then copy columns A-L of the same row to the spreadsheet titled "Snodgress" - of course skipping down the rows to the next blank row.
.....is equal to "Herr" copy row to "Herr" spreadsheet.
....is equal to "McCormick" copy row to "McCormick" spreadsheet.
and so on.
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.
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....
I tried writing a macro to copy data from one tab and paste it on another. It gave me an error message every time.
So I tried recording one doing just that, and when I went to play it, it still gave me an error.
So here is what I came up with:
I have a total of 30 sheets in my workbook. I would like to copy rows 21:1000 from sheets 5 - 27 and paste them into sheet 4 starting on row 21. The data ranges vary within sheets 5 - 27. For example, sheet 6 has data in rows 21:50, whereas sheet 10 has data in rows 21:500. I chose 21:1000 as a safe measure to ensure that all data starting on rows 21 onward gets copied.
I am having trouble thinking of how to create a macro which will copy the data from sheets 5 - 27 and paste into sheet 4 leaving no blank spaces in between pasted rows. Ultimately my goal is to use the filter boxes I have set up in the column headers of sheet 4 to quickly sort all the data pasted from sheets 5 - 27.
im trying to record a macro that allows me to copy b22-b25 so i can copy it sp its on my clipboard to use in other applications
but i have this and it doesnt allow me to paste
I need a macro that will copy row 7, then let user select desired row, then the macro will paste the copied row onto it.
View 5 Replies View Relatedi'm currently building a project with VBS2008, i'm currently stuck on 2 things.
I have the beginning of my code here(it's a button):
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Shell("C:Program FilesMicrosoft OfficeOFFICE11EXCEL.EXE")
AppActivate("Adobe Reader")
'copy stuff wants to go here
'Then i want to paste into Excel
AppActivate("Microsoft Excel")
'Then run a macro
(PERSONAL.XLS!Eden)
End Sub
Adobe Reader will always be running.
I'm trying to copy all text data from Adobe and paste it into Excel. I'm having trouble trying to mimic pressing [Ctrl-A] [Ctrl-C] and then mimic the paste [CTRL-V] into excel, then running the Macro in Excel.
I have a requirment to be able to copy a data range from one sheet to another. However each time the macro is run I need to be able to change the ROW the data is pasted to via user input.
EG First time macro is run, range to be copied from sheet 1 is A1:D1 and then pasted to sheet 2 range A5:d5.
the second time the macro is run I need to tell it to paste the data from Sheet 1 A1:D1 to Sheet 2 range A6:D6.
I guess the ultimate way to achieve my need would be for excel to find the last row of data on sheet 2 and automatically paste to the next free row, but thats way beyond me.
i am trying to record a macro that copies and pastes data from a webpage into a sheet in excel and then copies and pastes different data from a different webpage into another sheet in excel.
when i replay the macro it just pastes the same data twice instead of 2 different sets.
i am obviously making a basic error - is the way i copy and paste?
I have an index page with all my employee numbers and a summary page.
All my employees work on a time payment basis.
So for every Employee there is a worksheet with a calculator that determines their working hours.
I need a macro that copies the information on every worksheet to the summary worksheet.
On the worksheets the information is in calls: A53:F53
The Macro needs to paste that information under each other. So for instance employee 255 has a worksheet with the label of 255. His information needs to be pasted in the summary in cells A2:F2.
The next employee is 503, he also has a worksheet with the label of 503. his information is in cells A53:F53 (the same for all the employees). This needs to be pasted to the summary page in Cells A3:F3 (underneath employee 255)
I have 802 worksheets and 1 Summary. All the information for all the employees is in A53:F53.
I tried to do a record macro, it worked but excel gives me an error that sad : Procedure to long.
this is the code that i used:
Sheets("002").Select
Range("A53:F53").Select
Selection.Copy
Sheets("Summery").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Every employee has a coding like this..... so you can understand that excel thinks the procedure is to long.... ha ha ha..
I need the macro to paste only values and not the formula.
I have an excel form that I fill out when I service a vehicle. This form has a couple of cells that I would like to transfer to different workbooks by way of a macro.
The form cells that I want to transfer are labeled as follows:
InvoiceNumber or cell Q3
Date or Cell R5
TotalLabor or cell R31
TotalParts or cell G31
Tax or cell R40
I have 3 external files named:
Tax - this file has 4 columns: Date, InvoiceNumber, Tax
Parts - this file has 4 columns: Date, InvoiceNumber, TotalParts
Labor - this file has 4 columns: Date, InvoiceNumber, TotalLabor
I would like to have each external file copy the info into the next row and keep a running total at the bottom.
I would now like to adapt it to do something else. The code is as follows:
Sub addtaskstnmtce()
ActiveSheet. unprotect
Application.DisplayAlerts = False
myrow = Cells. Find(" Total Station Electrical / Cable / Mechanical / Civil Maintenance Estimate").Row - 6
mycell = Cells(myrow, 2)
mynum = Right(mycell, Len(mycell) - InStr(mycell, "#")) + 1
With Range(Cells(myrow, 2), Cells(myrow + 5, 2))
.EntireRow.Copy
.EntireRow.Insert Shift:=xlDown
End With
Application.CutCopyMode = False
Cells(myrow + 6, 2) = "Task#" & mynum
Application.DisplayAlerts = True
ActiveSheet.protect
End Sub
i have two work sheets open. with the press of a button on the screen, i need a selection of the sheet to be coppied, different data per button clicked. In the other open sheet depending on which button the user clicks on, i need that data to be pasted. I have tried it by using the record button, but when i have finished recording, the paste option does not come up in the next sheet. I know it can be done manualy, but i have lots of data all over the place.
View 4 Replies View RelatedMy application requires the user to use a check box to copy live date in a row, into the row that the perticular check box is in.
View 3 Replies View RelatedI have a financial model (attached) which calculates the final cash flows (in a calculation sheet named 9.Operations, rows 428 to 437) for a particular plot. However,the model has a list of 17 plots in the input sheet (3.Input-Plot Details). The macro must change the plot number in the 9.Operations sheet(cell G11), re-calculate the final cash flows and paste all the final cash flows for 1 to 17 plots in a single separate sheet consecutively.
View 6 Replies View Relatedsee the attached file below. I have monthly precipitation data for yrs 1950-1999. I need to have the data formatted such that the precipitation data is copy/pasted into one single column, going all the way from jan 1950 to feb 1950 (next row) to mar 1950 (next row).....dec 1999 (last row). On occasion, I will also have data for shorter/longer time periods. the macro code I'd need to take this data and line it all up into one single column?
View 7 Replies View RelatedExample:
from cell b12 to i5, then
From cell d12 to j5 then
From cell d13 to k5 then
From cell d14 to l5 then
[Code]...
Each time back to cell b, i have to add 3 cells, like from b15 to b18.
I would like to automate this process, but i did not know how to make macro increment by 3. Etc. I have hundreds of numbers to deal with.
I am coping form "SAC May'14 workfile" sheets "Top 20 FM" & "FM Major Inc&Dec" to "SAC Register Analysi Template" sheet "Top 20 FM" work perfectly but if i copy from e.g "SAC Feb'14 workfile, March'14 workfile" etc..
I have attached the file for ease of reference.
I would like to use a macro to do the following...after selecting a cell eg C12 the macro would copy its contents and paste them into S12. However I would like it to be able to do this with any row I select and column "S" contains links to another worksheet, for example... C12 contains 123456, S12 contains =654321!C41.
I need the numbers to be the same in both cells. So after the macro has run C12 would still be 123456 and S12 would now be =123456!C41. The numbers in the cells and the rows are variable (columns are always the same, "C" & "S").
Macro copy & paste highlight. I HAVE THIS CODE
View 4 Replies View RelatedI'd like to copy/paste from different spreadsheets. The place it will be pasted is specific.
Sub Family1()
Range("A2").Value
Sheets("Black Market").Select
Range("C3:C35").Copy
Sheets("Profiles").Select
Range("B2").PasteSpecial
Sheets("Real Estate").Select
Range("E3:E30").Copy
Sheets("Profiles").PasteSpecial
End Sub
I am having problems with 1 of my macro's and I am at a loss as to why!
I anticipate there is a simple answer and I apologize in advance, but....
This line of code is no longer working
I have a range B2:S47 that I would like a macro to copy and paste values not equal to zero in cells below the range starting from cell B49 so column values align. For example,
X78 0 0 G570 0 G990
Would give me the result,
X78 G570
G990
Using XL07