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.
View 2 RepliesProject is shared, cannot use vba.
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 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.
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]....
Creating a macro to compare 2 sheets in a workbook and print the differences to a 3rd sheet.
Each sheet will have the same number of fields, 5 columns with the header in the first row.
All values in the cells are integer except for the last field which will be a character.
The key is the value in the 2nd column. If it's not in the other sheet, then it's a new record. If it's a new record then highlight it a color depending on what sheet contains the new record. Now if the key is the same in both sheets, then check the other columns to see what's different. If there is a difference, print the record for both sheets in the third sheet and highlight the differences. I attached a sample of what I want.
I've created a chart in sheet 1 in a workbook. I want to copy and paste that chart into another sheet (lets take sheet 2) of the same workbook. I am using Excel 2010 version.
Whenever, I try to copy a graph and want to do "Paste Special as Link picture". The problem I am facing as "Paste Link" option is inactive.
I am attaching the Excel for your reference.
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.
I have been trying to edit a code which previously saved a copy in a new workbook to a specific folder/path. (Additionally it copies and clears some figures, but this is working as it should.)
However I would like the copy to be saved at the same location as the original workbook, regardless of the path the original workbook is saved.
I.e if I need to move the workbook containing the code to a new folder/location, when using the macro, the new copy should be stored in the same folder/location as the original one.
For now it is only saving the copy into "My Documents"
Code:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 16-02-2009 by ceng
'
Sheets("Bunker ROB").Select
Sheets("Bunker ROB").Copy
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & Range("D3"), _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
[Code] ........
I have data in 2 different workbooks, and I need to transfer all data in 'Jx_ex1' to sheet1 in the 'template' workbook, and all data in 'Gr_ex1' to sheet2 in 'template' workbook. All data should be transferred to the same cell numbers, from A1 to Y5000. I actually have loads of workbooks to transfer to the template but if I have an example with the two then im sure I can work out how to modify it. All files will be in the same folder.
View 8 Replies View RelatedI'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]....
I'm trying to figure out a way to find a specific sheet in a workbook that does not contain the macro. Within the macro I have a cell which holds the name of the specific sheet I would like to find but I can't get it to work for some reason...
'Dim officen As Integer
'Dim thiswb As Workbook
officen = Range("A2").Value
Set thiswb = ActiveWorkbook
' Open the Active Info file
Workbooks.Open "C:My DcoumentsActive 20080616.xls", , , , "xxxxxx"
' Dim sourcewb As Workbook
Set sourcewb = Workbooks.Open"Active 20080616.xls"
Sheets("officen").Select
RowCount = ActiveSheet.UsedRange.Rows.Count
Range("B2").Select.............................
My requirement is as follows......
I want to get a copy of worksheet from specific workbook to active work book in which i want a copy of sheet get moved.
I have a Picture in a workbook kept open. ( workbook 1 )And i have some X workbook open....i want a copy of sheet from workbook 1 To X workbook which is currently active.
View 1 Replies View RelatedI just want to copy from one sheet from a workbook to someother workbook.
I am getting an error "Copy method of the worksheet method failed"
creating some VBA code to move the last sheet in my active workbook to come before all the other sheets in the same workbook.
View 2 Replies View RelatedWhile in a workbook called "Main_Workbook.xls", I use a sub to open another workbook called "SecondWorbook.xls". Here's the code to do that:
Sub OpenWorkbook()
ExcelFile = Application. GetOpenFilename(FileFilter:="Microsoft Excel
Files(*.xls),*.xls", Title:="Choose an Excel file To open...")
Workbooks.Open FileName:=ExcelFile
End Sub
This works fine. When you view the workbooks in the Project Explorer you will see:
VBAProject(Main_Workbook.xls)
Module1
Sheet1(ABC)
Sheet2(Sheet2)
Sheet3(Sheet3)
ThisWorkbook
VBAProject(SecondWorkbook.xls)............
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?
View 9 Replies View RelatedI 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
[Code] .........
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
VB:
Sheets("Ruooinys" & i).Select
ActiveSheet.Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Cells.Select
[Code] .....
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.
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.
Is there a way to auto name sheets within a workbook by creating a list. or by a different way.
Each list will have a person name.
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.
View 7 Replies View RelatedI 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.
View 3 Replies View RelatedI 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.
Attachment 47491A.xlsx
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.
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.