Copy Instead Of Move
Dec 1, 2008
Can this code be modified to copy pictures rather than move them? I want to keep them in a tidy library column A:A. The workbook finds a picture based on the picklist, it is an example I found online but I need it to copy and paste the picture (and leave the original where it is).
F1 cell
=VLOOKUP(A2, PicTable, 2, FALSE) this is connected to a 2 column validation table called picTable that has names in the first column (values in the picklist) and picture names in the second column (which corrosponds to the actual picture names)
Also, long after they have been copied, I need to clear all of what I have copied (with a macro button), but when I record a macro to do this it doesnt work because the copied "picture number' changes each time it is copied and the recorded macro only deletes the picture object number that I deleted when recording it!
View 4 Replies
ADVERTISEMENT
Jan 24, 2010
i am trying to get a vba procdeure to copy Sheet "Template" and move to the end, but when i run the code, the code copies the template but does not move to the end, how can the below be modifed?
Sub Macro3()
Sheets("Template").Select
Sheets("Template").Copy Before:=Sheets(6)
End Sub
View 9 Replies
View Related
May 20, 2014
I want to copy all 25 worksheets to a new file and don't know how to do this easily.
View 2 Replies
View Related
Dec 17, 2008
Is it possible to disable the ability to right click on a tab and select "move or copy"?
I've already disabled the Edit->Move or Copy Sheet... feature on the menu.
I'm sending a file to users that I don't want them to print. The workbook itself has the print function password protected and copy/paste disabled. Any help would be appreciated.
To clarify I already have the printing part solved, but I don't want them to be able to move or copy the tab or tabs to a new workbook and print from there.
View 10 Replies
View Related
Aug 13, 2009
I have the following code to move/copy worksheet and then copy and paste
special values. Is it possible during this process to get the user to change the 'moved' worksheet name ?
View 4 Replies
View Related
Mar 23, 2014
Here's a sample sheet.
I receive spreadsheets with data sorted by column. There might be 500-600 records in approximately 1-8 categories, 14 columns wide. One column is used for the category. I would like to copy or move the data in each category to a new sheet within the file, so I can work with each category separately. I do this manually now, and have to do it multiple times for each file, as the data changes daily.
The category names are rarely the same from one batch to the next, so the routine will have to look at the categories and understand their names in order to put the data on a new sheet. Category names are alpha-numeric, like RA114, RC109.
This seems like a VB app, but I don't know VB! Is there a way to do this without VB? If not, is there a well-documented VB template or utility I might use to modify?
View 4 Replies
View Related
May 8, 2009
I would like to copy or move data from one worksheet to another automatically. I have one sheet (Data) with multiple pieces of data for specific individuals. I have several other sheets titled their last name. Can data for example from John Doe be copied to the sheet Doe and data for John Smith be copied to sheet Smith. In essence I would like the sheet to paste everything below John Doe to Doe's sheet and recognize the next name and past that into the next sheet and so on. It may be several different codes, Im ok with that.
One other item all cells do not have data I do need the blank cells copied as well at to not lose the formatting. There is also a blank 2 rows between each person.
If you need a copy of what the data looks like I can send it.
View 9 Replies
View Related
Sep 12, 2006
I want to copy old worksheet from old.xls (screen 1) to new book new.xls
(screen 2 ) on an extended desktop.
Screen 1 containing old.xls file in originally opened excel.
Screen 2 has new file new.xls in newly opened excel.
Dragging over is unsuccesful.
So is Edit-Move or Copy to new.xls.
View 8 Replies
View Related
Dec 29, 2006
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
View 9 Replies
View Related
Apr 2, 2008
I do have an excel file that I do not want to be moved to another location. I was wondering if it is possible to hardcode a location for the file and then check its current location in the drive and if both locations does not match delete its contents.
I tried something like below but I keep getting an obeject required error. I would really appreciate if someone can guide me to the right direction.
Private Sub Workbook_Activate()
Dim location
location = "C:InetpubwwwrootLeadershipJC est.xls"
Dim currentloc
currentloc = ActiveWorkbook.FullName
If location = currentloc Then
MsgBox "Due to security settings of this file you can not save this file."
Else
Sheets("JobCosting"). Range(Selection, A2.SpecialCells(xlLastCell)).Delete
End If
End Sub
View 6 Replies
View Related
Aug 11, 2014
I have a large spreadsheet which I have extracted the data I need, but I am now having a problem tiding it up.
To simplify. I have 2 columns, both containing data formatted as text, each column has some data, but on different rows.
I need to merge the 2 columns without overwriting the data on the second column, with blank data from the first column, and without the column shrinking or growing.
Here is a section of my spreadsheet that needs merging : Excel-1.PNG
I have tried copy > Paste Special > Skip Blanks, but it just copies the column to the other - no merging.
View 1 Replies
View Related
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
View Related
Jun 21, 2009
I have a spreadsheet (Sheet 1) listing current Work Orders with each work order occuping a seperate row; Column E lists the status of the work order, with the status being chosen from a drop down list.
I would like to have a macro that will copy the entire row and paste into (Sheet 2) when the status is changed to CLOSED, and clear the contents of the cells on Sheet 1.
The aim of this being of course to have all open work orders on sheet 1 and all closed orders on sheet 2.
View 9 Replies
View Related
Oct 5, 2009
I have to report on 6 departments each with 6 sub departments weekly. First I need to consolidate 6 ( move/copy worksheet to consolidated workbook using a macro) separate worksheets (all saved in the same folder) per department into single workbook (preferably generated automatically by macro/code). I then need to repeat the above process for another 6 files per sub department. The output files should be pasted as "values" while retaining all other formatting. In essence I need to automate the whole right click on tab, select move or copy worksheet function in excel to take the load out of doing it manually.
View 2 Replies
View Related
Sep 6, 2006
copying within a workbook...
I have an external .xls file I'd like to copy to a new directory from within VBA. I know how to create the directory, but is there a way to do it other than opening the required file, and doing the " saveas" thing?
Can I just create a copy directly?
View 5 Replies
View Related
Sep 8, 2006
I have to issue template workbooks to people for budgeting purposes.
Within the workbooks are various numbers of worksheets pre -formatted and ready for these people to enter data.
Some of the data in the worksheets is important to them as individuals but not to me so I have a series of macros that lift the information from the worksheets and put it into a worksheet more specific to me.
Because the users are on the whole not that good with Excel I have put in easy to use look up tables and various proctections to stop them adding or deleting rows or columns as this plays havoc with my macros.
There is one thing I have "so far" been unable to do and I wondered if anyone could help.
Is there a macro that I could put somewhere in the workbook which would detect when someone tried to cut and paste and would either put up a message box or stop them doing this?
The reason being they are cutting from one row to another and this is messing up the calculations which are protected.
Is there also a way to stop them changing the name on the sheet tab in the smae way?
View 9 Replies
View Related
Sep 1, 2007
I press Shift and click on the selected sheet tabs, goto Edit> Move or Copy Sheets... the dialog box allows move or copy to a new workbook or to an open workbook. Macro doesn't record syntax for the Dialog box. This build-in function also doesnt allow me to selectively choose the worksheets in the active workbook.
I am looking for this code or a sample dialog box as I need to incorporate it as a part of my task automation macro. I would like a dialog box that allows eg. listbox to choose the individual sheets, then with option to Copy only (collectively Copy or Move are also fine) the selected sheets to a new Workbook or an already open Workbook. I am using Excel 2003.
View 4 Replies
View Related
Sep 28, 2007
I'm setting up a spreadsheet for work and i have a question. I'm not familiar with the formulas. If i want to set up a formula to where if i type "complete" in the cell it will move the entire row over to the next sheet.
View 2 Replies
View Related
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
Aug 11, 2006
I have a list of names in sheet1, starting with cell A3. I would like to copy sheet3, insert it after sheet3 and rename the sheet to correspond to the names in the list.
If i have 30 names I would like 30 sheets. If i add a name, I would like to repeat the copy, insert and rename steps for the extra names as i add them.
View 7 Replies
View Related
Apr 15, 2011
In versions prior to Excel 2007, I was always able to copy a chart when I copied a tab. However, when I copy a tab in 2007, the data copies fine, but the chart does not. Something similar happens when I try to move a tab with a chart on it to another workbook.
View 5 Replies
View Related
Jan 15, 2013
I am trying to copy a file, rename it, and save it to a new folder. I keep getting a "Compile Error ; Syntax Error" at line FileCopy (ImagePath & oldName, NewPath & newName). I am using Excel 2010.
FileCopy (ImagePath & oldName, NewPath & newName)Sub RenameFiles()
'Renames file based on "sheet 1" - Column 1 Old file name - Column 2 New file name
Dim oldName As String
Dim myfile As String
Dim newName As String
Dim ImagePath As String
Dim NewPath As String
[code]....
View 5 Replies
View Related
Mar 15, 2013
I have a Reporting workbook I designed. There is a "Parent" workbook with the following design.
It has 6 Pivot Tables on a Sheet called "Data"
It has 6 Pivot Charts that were created from these tables on a page called "Summary"
These 6 Pivot Charts are all linked through a pair of slicers.
There is a "control" page which has instructions and buttons that trigger "Refresh All" and "Create Child Workbok".
This design is so that someone unfamiliar with excel could conceivably create the final product.
Essentially I have written/put together VBA to Create a new workbook "child" which has should be a funcitoning copy of the "parent".
The problem is the copiedmoved (I have tried both) Pivot Charts no longer update/refresh when the pivot tables change. I have script that reconnects the Pivot Tables to the Slicers. Slicers are fully funcitonal. Links in cells are fully functional.
Some of this code might look familiar.
Code:
Sub createWB()
' Copies VBA modules, Calls
Dim wbNew As Workbook, wbT As Workbook
Set wbT = ActiveWorkbook
On Error Resume Next
Kill ("PATHmod1.bas")
Kill ("PATHmod2.bas")
[code].....
View 2 Replies
View Related
Mar 8, 2007
i 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
View 4 Replies
View Related
Aug 30, 2012
Using Excel Office 2003.
I have been using VBA to copy and move files to create backups for 7 or 8 years now, and it works great. However, recently I have been working on a way to use SD cards for the backups and the FileCopy command is much slower than using Windows Explorer.
I am looking for some alternate command lines that might do the job faster. I would like to know what Explorer is using.
View 8 Replies
View Related
Aug 5, 2009
I'm trying to make a macro that will search a folder and move all files from 2008 into another folder. So far it can do this, but what i need is for it to search subfolders also. At this point it moves all files from the main folder, but nothing from the subfolders.
Option Explicit
' Reference site [url]
Sub Copy_and_Rename_To_New_Folder()
Dim objFSO As FileSystemObject
Dim objFolder As Folder
Dim PathExists As Boolean
Dim objFile As File
Dim SrcFolder As String
Dim DestFolder As String
Dim x, Counter As Integer, Overwrite As String, strNewFileName As String
Dim strName As String, strMid As String, strExt As String
Dim LastModYear
View 5 Replies
View Related
Mar 18, 2014
I 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.
View 3 Replies
View Related
Mar 7, 2008
I have two different Excel reports and the data needs to be copied from each column on one spreadsheet and pasted to the bottom of the equivalent column on the other spreadsheet.
So, is it possible to get a macro that will copy the data from one column then paste it to the next free cell in the column on the other spreadsheet.
If I could get some code to do one column then this should be enough to get me started and I could apply this to the other columns I need to copy.
View 8 Replies
View Related
Jun 24, 2014
I need to do VBA coding. Got 12 Sheets for 12 month of Sales. Every Sheets are in same Header Format.
For Column R (Status), there's Filter Data "TRUE" and "FALSE". I have to move/copy "TRUE" item into Sheet Aging 2014.
I manage to transfer using only one Sheets using Advanced Filter VBA, failed with other Sheet.
I attached the file : Sales 2014.xlsx
View 5 Replies
View Related
Jul 7, 2009
is there a way to stick a few row of cells together so that when i move one they all move.. i have some rows that when i sort them i want them to move together with the other ones..
View 9 Replies
View Related
