I have a workbook with several sheets- lets call it MyWorkbook (The VBA Project should be locked so no one can view code). What I need is to run a code from MyWorkbook to make a copy of this � call it NewWorkbook. Now in NewWorkbook I need to hide sheets Kong,Bong and Dong��then save it as �Workbook name�& Date & time. Then email NewWorkbook. (I don�t want to keep any copy of NewWorkbook)
After that I need to Save MyWorkbook (so basically MyWorkbook keeps getting updated with new info everyday, and there are no hidden sheets)
VBA Codes should be password protected in both workbooks. I tried to write the email code , this is what I have so far.
wb.SendMail "person@address", _ "This is the Subject line"
and this seems to work fine. Could there be any potential problems with this? All senders and recipients should be using outlook. Also is there a way to send the workbook but lose any macros attached. I'm not sure that all recipients will be able to receive workbooks containing macros.
I have an original workbook that I use daily stored in a folder called 'Live'. I also have this same workbook saved in a different folder call 'In Progress' because I am constantly improving and making changes to it. While I'm in the revision mode, I keep it in this folder. Once I've completed my revisions, I move it to the folder where the live workbook is located and replace the old version. Therefore, I have two copies of the workbook at all times. The name of the workbook in both folders is the same (IRQT)
I have a macro in this workbook that will allow you to save a copy of the workbook in a folder called IRQTArchive. The macro will create the folder if it doesn't exist, then store a copy of the workbook using a name in a cell. After that is complete it renames the workbook back to the original name (IRQT).
This macro works perfect in my live version, but when I execute the macro in the 'In Progress' version, I get a Compile error: Sub or Function not Defined when it reads the dirExists command in the first line of code. The code in both sheets is identical. Here are the first few lines of code. The command dirExists is highlited in yellow when it errors out.
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:
I would like to run a macro from a worksheet that creates a new workbook for each worksheet (there will be 20 plus) and saves it in a new folder i.e. all the same directory L/Utilisation/Team/name of the worksheet.
Is it possible to create new workbook which contains sheet1 datas only from master workbook by clicking command button,and the name of workbook will be asking by inputbox and create accordingly?
I have a workbook with four worksheets named FilteredData FilteredDataFormat array arrayFormat
The two sheets named FilteredDataFormat and arrayFormat exist strictly to preserve headers , and column widths.
So that for convenience sake I can clear my data without specifying a range that excludes the headers. I simple clear the contents of the 'FilteredData' and 'array' then copy and paste 'arrayFormat' and 'FilteredDataFormat'.
Sort of an unconventional and lazy approach but I see no reason why this will not work.
Here is my original code and what happens is that excel creates another workbook for some reason unknown to me
Ok, I'm trying to learn how to create and save a new workbook using VBA...having some issues with this error:
Run-time error '1004':
Method 'SaveAs' of object '_Workbook' failed.
The line is highlighted in red.
Code: Sub Copy_ActiveSheet_1() Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String
VB code, recorded by macro, it is working, but I need create different workbooks with different names , this one create just one specific name here is the first problem , second would be for saving in desktop folder "Ataskaitos" here another because it just for my computer , on other computer directory would not be found and third , then I deleting existing sheet in workbook from there I run the macro and copy sheet to new workbook it asking if I sure want to delete that sheet, so I don't need asking that I just need to delete it
I have in A2 - A12, The names of different sheets in the workbook. I would like to create a link so when a user clicks on the cell, it will take them to the specified sheet.
Lets say cell A2 contains the text '1208', when pressed I would like it to open up the sheet 'A1208'
I am working on creating a summary page for my workbook. I want the code to create a destination sheet called Summary, then look at each sheet in the workbook, check for a value >0 in cell N7, if it is >0, the copy the tab name and the value in N7 and paste it into the destination sheet starting in cell A1(text of source tab name) and B1(dollar amount). Then move to the next sheet in the workbook and copy paste if N7 is >0 sheet name and value. It needs to skip the sheet XMOE. The Summary sheet would then create a dollar amount subtotal of the values copied from the sheets and populate it into Cell D1. Cell C1 would state "Workbook Subtotal"
I would like the code to delete any sheet where N7 = 0.
I want to create a completely uneditable locked workbook.
I know how to do the simple stuff like unlocking cells for the purpose of entering data values and locking the rest of the sheet.
What I want to do is also lock out users from changing headers, footers, etc.
Ultimately, what I'd like is, when the file is launched by the user, all that is displayed is the sheet with no toolbars and no menu bar. Finally, the last thing, is to have 'print' button (with obvious macro built in).
Simply put, this is an electronic version of a paper worksheet, so no saving is required either.
i want to create a menu in the worksheet named "Main Menu" that lists all the other worksheets within the workbook with the option to select the required worksheet and view or print it.
I am building a macro and am just not figuring out how to do this. I am trying to create a new workbook, then give it a name. Simple right? Well, I have the format for the file name to be "mm-dd-yy Transmittal #.xlsx" but I can't figure out how to make the # part of that equation start as 1 but if the file already exists change it to 2, if that exists, change it to 3, and so on. Here's what I have so far:
Code: Sub Transmittal() Dim NewBook As Workbook Dim MyPath As String
[Code]....
I don't think I'm allowed to do "x + 1" so that is probably where my problem is coming from.
I want to create a custom tool bar for a work book but when I right click in the unused part of the tool bar area the only options I get are customize Quick access tool bar and customize the ribbon.
I have a My.xlsx file that has data for single month and I want to make a single file in which I can have contents for whole year by copying this file 11 more times in the same excel work book. Finally I would have 12 sheet in a single workbook.
E.g. Jan-14, Feb-14, .... ,Dec-14
I don't need any calender data just 11 more copies of my original sheet in a single work book.
I have an excel file as attached. I have two departments Digital and Industrial. Under this I have done a drop down option for different quarter for different projects.
When I open my excel file I just want to see the Quarter column under Digital but when I double click on Digital all other columns appear.
Second this is it possible to create a master filter or sorting for Quarter above the table so that if I select Q1 in it it will displays all the project and corresponding values in both Digital and Industrial.
I have an excel workbook with about 40 worksheets. I have a formula in A1 of each sheet that returns a 1 or a 0 depending on whether or not the name of the worksheet is in a list.
What I am trying to do is create a macro that will print all worksheets that have a 1 in A1.
How I solved my problem of sending out information to more than one email recipient using Lotus notes email and Excel 2003 vb code. I created groups in Lotus Notes for those with more than one email address Then I assigned a string to vaRecipient like so:
.SendTo = vaRecipientThe string was either one email address or a lotus notes group name.
1. In the same Workbook, I have one sheet with email addresses. 2. On Sheet 1, in Cell D3, I have the actual email address I want to send(Used data validation drop-down to get email address) 3. I�ve used many codes and it sends very well, however it does not send the email as a fully functioning workbook. 4. The recipient gets the following message "This book contains links to other sources"
I have a spreadsheet that I email daily after I update the information in it. I was unable to find a "Code" to do so when I wrote it so what I did instead is use the Sendkeys funtion to emulate the keystrokes as if I were doing it manually. This works well with one exception.
I now have 5 email accounts and I do NOT want it to email via the default. I need to SPECIFY wich account to email thru. But I can ot figure out how to do this.
Macro for creating new excel work book based on Partner names.
I have a master file which contains 3 worksheets - 1 - Code Summary 2 - Labor 3 - Expense
On column "T" of code summary tab I have a list of Sales Partners. So I want a macro which will create a new workbook for every single Sales partner on Column "T" of code summary tab along with corresponding data from column A:T on code summary tab.
The macro should also take data from the other 2 tabs Labor and Expense for the respective Sales Partners. On Labor tab the partner info is on column "Y" and on Expense tab the partner info is on column "M". So the new file should be renamed after the Sales Partner and have 3 worksheets just like the master file.
Basically I have a master file which has data for all Sales Partners. I need individual files for each sales partner for sending to respective partners.
have seen macros that create a seperate sheet & save by tab number etc, & wonder if its possible to save each sheet in a workbook as the value defined in each sheets cell A2. is there a vb macro available to do that ? if so where ?
I'm trying take a reference from some workbooks (e.g. WB1.xls,WB2.xls,WB3.xls,...etc) They are all placed in one folder but there filename is subject to change,
I need to get the result of Cells A1 from WB1.xls+A1 from WB2.xls + A1 from WB3...etc to shown on AA1 in another workbook(e.g. Collected.XLS)
Is this possible knowing that workbooks filenames are changeable? Moreover Can the value of A1 from any new workbook added to the same folder be added automatically?...
Can the formula typed in AA1 from Collected.xls be draged down?(So as to show the sum of Cells B1 and C1.....etc) from each workbook?
When I attach a 1 page spreadsheet to an email and send it to my boss, the spreadsheet is no longer on one page when he opens it. What causes this and how can I fix it on my end or fix it from his end to keep the same format?
Add worksheet as an attachment to an outlook email by having a button on the spreadsheet itself. However I have added another worksheet which i would like to add to the same email ie 2 attached worksheets to the same email this being decontamination certificate. I have tried to do this myself by copying and pasting some of the code and changing the paths and name but all I get is one or the other or the wrong name to the worksheet.
I am trying write one to search a range of cells and attach all files located in those cells to an email. I can get most of the code to work, but am having difficult getting it to search through specific cells.
