i came up with this..
Sub Copy_To_New_Workbook()
Application. ScreenUpdating = False
Dim strFileName As String
strFileName = Application. GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls", Title:="Please select the excel file to be copied")
Copy data from workbook, open existing workbook, select range and paste. But my copied data is lost.
Sub Select_Copy_Paste()
'
'
Windows("ElektroFunctiesDatabase.xlsm").Activate
Sheets("PowerSupply's").Select
Range("A2:I6").Select
Selection.Copy
[Code] .........
' Here i need to do something to paste data into r.address?
Here's my macro:
Code:
Sub CopyRow()'
'Copies row to new sheet, highlights it, marks column 'A' as copied.
'
Dim cCell As Range
Set cCell = Selection.Cells(1, 1)
Selection.Copy
Sheets("Sheet2").Select
Rows("2:2").Select
[Code] .....
Is it possible to modify it to paste into a different workbook called c:filesDestination.xlsm, instead of the existing workbook (Source.xlsm)? The destination sheet name is the same (Sheet2). It's OK if both workbooks are open at the same time.
I have a range of weekly data that I need to copy into another workbook, paste it below the data that already exists there and then delete the data from the original workbook. I would love to do this with vba but after hours of searching on how to do this my brain is frazzled.
I have 50 workbooks that I need to import weekly into one master sheet (Master.xlsm) but they need to be done individually after the weekly data has been checked. The master sheet will therefore have existing data and the new data needs to be appended at the bottom. Also column A will be blank in both workbooks so to find the last used row it will need to look in column B.
The number of rows in the weekly sheet will also vary rather than be a fixed range so I guess the last used row will also need to be found there too.
The attached file is a cut down version of my working file showing where the data starts on Row 14, I won't need to copy the headings.
Example file 21.03.xlsm
The amazing code I saw was from this thread Auto lock cells after data entry when file saved... where the code was made by Jafaar Tribak.
It basically locks cells that have had data inputted into them when the file is saved (with a nice prompt warning of the used cells being locked.
This is Jafaar's file [URL]
And this is my file where I'm trying to make it work in the "Employee data entry" Sheet:
[URL]
And finally this is the file after I tried to copy the code over : [URL]
Trying to make it so that in the employee data entry sheet locks cells after an employee inputs some data into said cells.
I thought that by setting an "inputrange" on the employee data entry sheet the code would track it down automatically but maybe I'm completely wrong. I cant see anything wrong with it (probably because I"m not that good at vba) but I fear I may have left out something really simple!
I seem to disable my other macros when i try to insert this code in (I have a macro that when you click on a cell a calendar pops up so you can click on a day from the calendar rather than typing out the date)
I have a very brief question
dlgAnswer = Application.Dialogs(xlDialogOpen).Show
Selection.Copy
Windows("Derivative YK pricing Mod G.xls").Activate
Columns("B:B").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("C5").Select
Application.CutCopyMode = False
Windows("EXPORT1.xls").Activate
ActiveWindow.Close
As you can see, I open a workbook with the dlgAnswer, I was wondering how I could close that opened workbook
Currently I have
Windows("EXPORT1.xls").Activate
ActiveWindow.Close
however the workbook will not always be called export1.xls, I want it to close whichever one I opened earlier.
Trying to create a new workbook from another open workbook, then copying all the sheets that aren't called "Summary" to that new open workbook and then saving it. I get a subscript error on this line:
[Code]....
All i did was i just created a form to open a workbook from the directories.
Code to copy the data from that recently opened workbook to my workbook where I have my forms. I need to copy that data as in the case that i don't know the workbook and the sheet name i'am going to open as i may open any of the files!!
I have created userform and it works fine. Following code assigned to 'SUBMIT' button in userform - works fine. I am trying to include code where certain data from userform is also copied to workbook2 ( of course without opening it)- as marked in red...below
[Code].....
Please see attached files.
Book1.xlsx
test.xlsm
I am trying to copy the emf image object from "Book1" into the "test" workbook whilst the test workbook is open and Book1 is closed. The code I have put together currently sort of works, I mean that it copies the text data over but does not copy the object which is what I require.
So I basically have a template workbook that the code is stored in. I need it to pull an entire row if Column C in workbook "rawdata" contains specific text, in this case "PRCH - Purchase".I have never had to do anything like this before, it has always been working in the same workbook. It's failing at the 'mp = ...' line every time. There might be other errors in the code too, I just cannot resolve the first one!
[Code] .....
I have created a macro that copys pivot table from one Workbook to new workbook. Problems I am encountering are print selecting from source workbook are not copied to new workbook.
Dim AmountofColumns As Long, AmountofRows As Long
Dim ColumnCount As Long, RowCount As Long
Dim ThisWorkbookName As String, ActiveWorkbookName As String, ActiveSheetName As String
Public Sub CreateGroups()
Application. ScreenUpdating = False
Sheets("Preferences").Select
ThisWorkbookName = ActiveWorkbook. Name
AmountofColumns = Range("A1").End(xlToRight).Column
For ColumnCount = 2 To AmountofColumns......................
I want to save my workbook under a different name, i want to keep it an excel workbook, but so the user cannot use the actual VB coding.
So i set up the sheet using the coding and when given out to others, i want them to be able to look at it change it if they want but so it just acts like a normal excel sheet, with no VB. So if i send out to another company to look at it the cant use the program.
I am trying to set up a template for my MD to use to calculate budgets and have so far encountered a number of problems most of which i have overcome thanks to help from this forum.
What i am trying to do is have a 'Selection sheet' which contains a number of drop down boxes from which the user can choose several different options.
Based on what they have choosen on this sheet a second sheet 'initial budget' is populated.
What i am trying to do is a formula similar to the following. but i can't seem to get it to work.
I am trying to automate the process of filling out monthly reports and I have run into a problem I just cannot seem to work around.
These reports contain both weekly and monthly information, but because most months do not end on a friday or begin on a monday I have to have a couple of the week reports as partial weeks (e.g. April ended on a Thursday and so that week's report has both April 27-30 and May 1). When the first week of the next month's report runs I would like it to prompt the user to locate the last month's report, open the report, find week 5 of that report and copy the relevant data into the current month's report. (Hopefully that explanation is sufficient)
What I am running into is, after prompting for and opening the past month's report I am trying to select the Range A137:I232 on Sheet5 but instead the previous month's report just opens to wherever it was when it was last saved and won't select any ranges I tell it to, it just selects the range it was on last time it was saved. It will then copy that range and paste it into the Current Month's report.
below is my code ...
I have "wbThis" as the original workbook to be pasted to and "wbTarget" as the workbook that is being opened and copied from. (2 different workbooks). I have written a code for the user to chose the workbook (wbTarget) to open and copying the data from (the getopenfilename). I want to paste these values to the "wbThis" worksheet. The code is running, however it does not copy paste the values from one workbook to another, and it is not giving me an error either.
Code:
Private Sub CommandButton1_Click()
Dim wbTarget As Workbook
Dim wbThis As Workbook
[Code].....
I tried to open an existing Excel workbook, it tells me that it is already open. There is nothing on the screen. I closed Excel (using 2003 version) and restarted computer also. I tried to open the file again - nothing shows up on the screen. When I attempt to open the file again I get a message that says "(file name).xls is already open.
Reopening will cause any changes you made to be discarded. Do you want to reopen (file name).xls?". Even if I reopen the file, it still does not show up on the screen.
How do I insert an existing worksheet (previously exported from the same workbook)? I need to be able to do it programmatically.
Is there a way to copy a sheet in one Workbook to and Another Existing Workbook?
I have attachment two Workbooks to this thread.
The one entitled: Copy a Sheet to An Existing WorkbookI would like to copy any Sheet to Workbook "Create PowerPoint"
I would like it to be the first sheet in the Workbook "Create PowerPoint"
The one entitle: Create PowerPointIt has three sheets that have data already in it
I need a macro to add a work sheet template to an existing work book, I can add a blank work sheet no prob but it needs to be a template
View 3 Replies View Relatedthis is the macro code I am using to copy the currently selected worksheet to an existing workbook:
Sub test2()
Workbooks.Open Filename:= _
"C:Documents and SettingsManagerDesktop PS444Log.xls"
Windows("PS444.xls").Activate
Sheets("sales").Select
Sheets("sales").Copy Before:=Workbooks("PS444Log.xls").Sheets(1)
End Sub
The source workbook is named PS444
The receiving workbook is named PS444Log
The sheet to be copied and moved is named sales
The source workbook is already open and the code is executed by clicking a button on the worksheet.
If I perform the steps manually the worksheet in the source workbook gets copied correctly into the receiving workbook.
The problem lies when I try to execute the code, the source worksheet doesn't get copied to the receiving workbook.
The receiving workbook gets opened but the worksheet does not get transfered.
Neither of the workbooks are protected nor are either of the worksheets protected in the workbooks.
Can someone tell me why the code is not copying the sheet to the receiving workbook.
I developed the code using the macro recorder so I don't understand why it doesn't work.
I inherited a spreadsheet that contains a link to another spreadsheet. I want to remove the link and I can not find a way to do this. I have checked under Edit/Links but there is not a delete or break links options. The linked spreadsheet does not exist.
View 4 Replies View RelatedI have a user who is trying to use <EDIT><MOVE OR COPY SHEET> to copy a sheet to an existing workbook. She has them in the same directory and has them both open, but when she tries to copy a sheet from either of them to the other, the only workbook listed in the "TO BOOK" drop down menu is the one she is in. NO other workbooks show up as an option for her to copy to.
View 12 Replies View RelatedI have a vbscript that creates a workbook in an existing spreadsheet. I would like to have the script create the spreadsheet if it does not exist. That part is easy enough. The part I don't know how to do is to have the macro that has to run on the sheet created by the script.
View 9 Replies View RelatedI am working on this estimating template. To be used on Excel 97, 2000 and XP systems.
I have a few issues i am unable to resolve.
There are 2 of the worksheets (Short Quote and Stores Req) which individually need to have a button on them so i can create a new workbook as an exact coy of that sheet. but with just the values and not the formulas.
Also i am unsure on the macro on the workbook currently( as i dont know how to do macros) i dont know what it does?
I have a VBA script that works great when run each day, as it's intended. But if a user skips a day, we end up with an error when deleting an old worksheet. The old worksheet to be deleted has a date as the sheet name (i.e. "2014-May-23").
We've developed some code to find the most recent FILE if there wasn't one created on the previous business date, but what VBA code can I enter to correctly identify and delete the old, outdated worksheet? My final spreadsheet should contain just two dates worksheets - one each for the past 2 business dates.
Here's a snippet of my current coding:
Code:
Sub Master_3D_Macro()
'
' Master_3D_Macro Macro
'
' Keyboard Shortcut: Ctrl+j
'
Dim CurrDate As Date
Dim Holidays(1 To 9) As Date
[Code] ..........
The two sheets are...
1. Sheet1.xlsx (regular excel sheet as the extension is .xlsx)
2. Consolidated.xlsm (macro enabled sheet as its extension is .xlsm)
1. Copy both the files on your system under a particular folder.
2. Now make 9 replica's of Sheet1.xlsx and name them as Sheet2, Sheet3, Sheet4, .......... Sheet10
3. Open the sheet Consolidated.xlsm and see the button i have added called "Pull Data".
Now write down the code by adding a Module in that excel sheet from the code window.
4. Write a code that will open each of these sheets (Sheet1, Sheet2, Sheet3, Sheet4, .......... so on) one at a time and will copy the data from these sheets to the Consolidated.xlsm sheet.
5. Make sure that the data is appended(and not overwritten) from the multiple sheets (Sheet1, Sheet2, Sheet3). that is once you paste the data from sheet1 to Consolidated.xlsm then the Sheet2 data will be pasted at the end and after that sheet3 data will be pasted and so on..
6. In this way at the end we will have all the data from Sheet1, Sheet2, Sheet3...in the consolidated sheet.
7. The Division column in the Consolidated sheet will have the value of first row in these multiple sheets. So after making the replicas of Sheet1, please change the value in first row (Range A1) to any other value to avoid the confusion.
8. I have highlighted the data for two sheets in yellow and grey color in the consolidated sheet.
how do i go about creating a macro to copy a range in sheet 1 in workbook A and paste that to a new tab(the last one) in the existing workbook B. i would like the tab to be renamed based on a cell value. preferably workbook B doesnt have to be open, and the save and close it
View 6 Replies View RelatedI want to merge different worksheet of an existing workbook into one by macro .I did not want to repeat the rows label for each worksheet data.Also I want to get at right hand side i.e in G column the data to be extracted for respective worksheet in the merged data.I have enclosed in attachment an expected solution in a sheet name "merged".However the number of worksheet is here only 3 for sample purposes.However,in reality there is more than 3 .
View 9 Replies View RelatedJust curios if this is the most efficient way to copy a workbook x number of times.
I tried copying 77 workbooks and not sure exactly how long it took, but about 2 mintues. The original workbook is 300 KB.
