Insert Existing Working Code From Another Workbook Into Own Workbook

Jan 14, 2014

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)

View 9 Replies


ADVERTISEMENT

Copy Worksheet To An Existing Workbook Not Working

May 30, 2007

I 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 Related

Insert Existing Worksheet Into Workbook

Oct 18, 2008

How do I insert an existing worksheet (previously exported from the same workbook)? I need to be able to do it programmatically.

View 10 Replies View Related

Excel 2003 :: How To Amend Existing Code In Workbook

Feb 3, 2013

How to amend existing code in a workbook that is used by many different users. I am working in Excel 2003. The existing code copies data from certain cells in the active worksheet (which is password protected) into a new worksheet and saves that new worksheet to a temp folder, sends it to a particular email address using outlook and closes it, returning the user to the first workbook. You will see that it also unhides then rehides columns of the first worksheet during this process so that the user never has to see them. Problem here is that none of the users are using outlook anymore and I would prefer that this new spreadsheet that is created just be saved to the users desktop. I have found bits and pieces of what I needed on the web, but I can't seem to put it all together (I usually end up being sent to the debugger just short of having the newly created spreadsheet saved to desktop). Here is the existing code:

Private Sub CommandButton1_Click()
Range("A2:G2").Select
Selection.ClearContents[code]....

Essentially what I need to do is circumvent the whole email bit and save the spreadsheet that is created to the users desktop instead of a temp folder.

View 2 Replies View Related

Copy Data From Workbook / Open Existing Workbook - Select Range And Paste

Mar 26, 2012

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?

View 4 Replies View Related

Modify Existing Macro To Copy To Different Workbook Instead Of Open Workbook?

Dec 7, 2012

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.

View 2 Replies View Related

Improve Coding For Copying Existing Workbook To New Workbook

Sep 18, 2006

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")

View 9 Replies View Related

Copy Range To New Workbook & Close Existing Workbook

Jun 30, 2008

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.

View 9 Replies View Related

Insert Code Into This Workbook Mod

Apr 7, 2009

I want to put the vba code into each "ThisWorkbook" in each workbook that is in a folder. I want the code that is placed in each "ThisWorkbook" to run whenever that workbook is opened.

How would I go about doing that? I have this code so far to open the workbooks that are in the folder.

View 6 Replies View Related

Workbook Save Not Working With Basic Code Included?

Feb 26, 2014

I am attempting to save a workbook when it opens, but when the code is run, it is not saving. For the purposes of finding the problem with the code, I have simplified it down to the following:

Code:
Private Sub Workbook_Open()
Range("C3") = "HEY"[code]......

View 8 Replies View Related

Save Single Sheet To New Workbook And Delete VBA Code From New Workbook

Jun 25, 2014

I'm trying to find a way to save a single sheet of an excel workbook and in the same process delete all vba code and shapes from the new single sheet workbook. I was looking around and found this code which does save only the single sheet to a new one sheet workbook but doesn't delete the vba and shape that I have used to assign macros to in the original.

Code:
Sub SaveSheetAsNewBook()
Dim wb As Workbook
Dim InitFileName As String
Dim fileSaveName As String
Dim wshape As Shape
InitFileName = ThisWorkbook.Path & Format(Date, "mm.dd.yy")

[code]....

View 2 Replies View Related

Make Workbook Code/Macros Unique To Workbook

Sep 12, 2006

How is code or functions kept unique to a workbook? for instance i create a few toolbars that are relevant to "work book 1", however when i open another workbook "2" the toolbars do not function properly or are removed by the opening/closing of the work book, similarly other macros seem to struggle with more than one workbbok open at a time.

View 5 Replies View Related

Open An Existing Workbook

Aug 13, 2009

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.

View 4 Replies View Related

Copy A Sheet To An Existing Workbook

Apr 1, 2009

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

View 13 Replies View Related

Add Worksheet Template To Existing Workbook?

Oct 4, 2011

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 Related

Copy Worksheet To An Existing Workbook

Dec 20, 2009

this 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.

View 9 Replies View Related

Break Link To Non Existing Workbook

Aug 14, 2007

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 Related

Insert Picture Code Not Working In 2007

Aug 18, 2009

I have used the following code behind a projects Command button for some time, and works well in Excel 2002/2003.
It's used to look for and insert a Picture file, located on the users PC, select cell C2, re-size it to fit inside a bordered cell area and then nudge it over, off the border line.

Sub Load_Image()
Dim oPict, PictObj
Dim sImgFileFormat As String
'Open file
GetPict:
oPict = Application.GetOpenFilename("All Pictures (*.tif; *.bmp; *.jpg; *.gif; *.jpeg; *.png; *.cpt; *.tiff),*.tif; *.bmp; *.jpg; *.gif; *.jpeg; *.png; *.cpt; *.tiff")
If oPict = False Then End
Range("C2").Select
Set PictObj = ActiveSheet.Pictures.Insert(oPict)
With PictObj
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Width = 712#
.ShapeRange.Height = 510#
End With
PictObj.Select
With PictObj
Selection.ShapeRange.IncrementLeft 1#
Selection.ShapeRange.IncrementTop 1#
End With
Range("A1").Select

End Sub

Unfortunately, Excel 2007 doesn't seem to identify the Cell reference "C2".
It modifies the Picture size OK but does not position the picture in the correct position.
I've tried re-recording it but 2007 misses most of actions.???
Despite my efforts looking on other forums, I don't seem to find a code that works on both version of Excel.

View 9 Replies View Related

Vbscript To Creates A Workbook In An Existing Spreadsheet

Dec 28, 2007

I 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 Related

Create New Workbook From Existing Worksheet Data

Feb 17, 2009

I 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?

View 7 Replies View Related

VBA To Identify And Delete A Sheet In Existing Workbook

May 30, 2014

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] ..........

View 9 Replies View Related

Copy Paste Worksheet Range To Existing Workbook?

Jan 24, 2014

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 Related

Merge Multiple Sheets Of Existing Workbook Into One Sheet?

Mar 27, 2014

I 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 Related

Macro To Copy Existing Workbook X Number Of Times

Dec 4, 2009

Just 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.

View 7 Replies View Related

Userform To Fill Data Entered Into Different (existing) Workbook?

Feb 7, 2013

I have a userform that I want to add to a button click event, to fill userform data into a different (already existing) workbook.

What I have is a userform for entering Purchase order information (Supplier, Date, PO#, Products, Descriptions, Qty's, expected dates etc.) What I am trying to accomplish with this particular button, is to 'Generate Purchase Order'... Have a seperate workbook, with a 'blank' pre-formatted formal purchase order that will be autofilled with said userform. The now generated Purchase Order ready for print/ save-as.

View 1 Replies View Related

VBA - Save File As New Workbook BUT Without Existing Data Connections

May 23, 2013

I'm trying to use vba to create an offline backup file for a sheet that is linked to an access database. the code I have is simple and worked for a file that is not linked to any database.

Code:
Sheets("Data").Select
Sheets("Data").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=myfilename
Application.DisplayAlerts = True

Now that I insert it into the actual file, which is linked to the database I get an error. I also tried to move the display alert up, before the select instructions, but also this does not work. this is not what I wanted since I want this file not to possibly connect to any database.

View 9 Replies View Related

VBA Automatic Default Colour Change To Red Or Green On Existing Workbook?

Mar 7, 2014

I am looking for a vba where by the default colour of the font for new text typed in any cell of a workbook change to green or red and the default black automatic becomes secondary. The existing text in the workbook in its existing font colour must not change i.e stays in black or red.

View 1 Replies View Related

Can I Change A Setting Somewhere To Make Close Its Default Blank Workbook When I Open An Existing One

Feb 9, 2007

I have Excel 2002. If I start the program it opens with a blank workbook, called "Book 1".

If I then open an existing workbook, I have two Excel buttons in the Windows taskbar: the one I just opened, and the blank one titled Book 1.

At work I have Excel 2003. The blank "Book 1" is also there when I start the program, but if I then open an existing workbook, the Book 1 goes away. I like this way better.

My question is: Is this just the way versions 2002 vs. 2003 work, or can I change a setting somewhere to make Excel 2002 close its default blank workbook when I open an existing one?

View 9 Replies View Related

Excel 2010 :: Macro To Upload SharePoint Project List Then Copy To Existing Workbook?

Jul 11, 2014

I need to be able to export a project list to Excel and overwrite the contents in an existing Summary Report with the exported list. Is this possible? I am using SharePoint 2013 and Excel 2010.

View 4 Replies View Related

2002 Code V 97 Code: Add A Small Workbook Open Event Code Which Works For Me But Debugs For The Others

Jan 27, 2009

I use excel 2002 but some of my office are on 97, i want to add a small workbook open event code which works for me but debugs for the others?? The code is basically, go to a tab, on that tab and that range sort..

View 2 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved