Creating New Workbook Then Giving It A Custom Filename?
May 25, 2012
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.
When I go one column and Click custom filter and give the command one number and or another numbers ( I Have attached an excel sheet with screen shot) This filters the data, and I need to copy the same and paste in the next sheet.
I have to do like this for about 20 times for 20 sets of data). I have already done this and pasted the data in sheet2. I did everything manually. ( sample sheet is attached) I need a macro to do this work for me.
When I run the macro If get 2 text boxes I can enter the numbers. and click ok,the data has to filtered in sheet1, and result has to be pasted in the next sheet.with the header. Again I will run the macro i will give 2 numbers and the result should be pasted in sheet 2 after the 1st set of data leaveing one row as blank. ( exactly like the sample data in sheet 2). If I run the macro for 10 times giving 10 different numbers, the result should be pasted one after the other in sheet 2.
I have a worksheet that I would like where you can just enter the date, then it builds a filename based on that.
Example. Filename I would like to load information from is "C:EXMay 2009May 21,2009.xls" The sheet is "Data" and the cell/row is A1
The Filename could be entered simply as 'C:ExMay 2009[May21,2009.xls]Data'!$A$1
But what I would like to do, is be able to generate a weeks worth of filenames from the date I entered.
I have one cell with the root directory (lets say A1) A1 = C:EX A2 = May A3 = 21 A4 = 2009
So in cell A5 I would like to combine them all to load the information from that filename.
I tried to do something along the lines of
A5 = A1 + A2 + " " &A4 (etc etc), but that wasn't working at all. The main reason for breaking them up is so that I could just increment the date to get a weeks worth of files.
I would like excel to create the folder C:/Bill if it doesn't already exist when I click save/save as option and save the workbook in it with a filename that is a combination of text/values in cells A1 and A2 on Sheet1. Better if the save as dialog box appears with this option selected so that I have to just click Save in the save as dialog box to save it in "C:/Bill".
My indirect formula doesn't work when I have the entire path defined. I have the entire filepath specified (which will never change), and then I have cell A6 with the tab name of the worksheet on the workbook . Workbook 1 named 'Testme' contains the table with range a2:b5 Worbook 2 contains the formula
I put this formula into workbook2 (the tab in the example is named hitab & I put that name in cell B6)
Here is what I have:Does not work even when other workbook is open =VLOOKUP(B6,INDIRECT("'H:CUSTOMERSCurrentClientAMRO and General SuppliesBearings, Motors, PTsSavings Tracking[Testme.xls]"&A6&"'!a2:b5"),2,FALSE)
This DOES work when workbook is open, but not when it is closed (which would seem logical if when the workbook is closed, the formula needs the exact path) =VLOOKUP(B5,INDIRECT("[Testme.xls]"&A6&"!$a$2:$b$5"),2,FALSE)
I can hard code everything except the tab name. Why doesn't Indirect recognize an entire file path and also why does it give a REF error?
- I did a search and found that some people said to use the add-in Indirect.exe. I followed the link and the page was no longer found.
I'm looking at what appears to be a custom chart. It is a box divided into 4 equal quadrants. In each quadrant is a percentage with the total equaling 100%. In each of the quadrants there is fill equal to the percent that is numerically written in that quadrant. I'll post a picture with this, but if I was talking cells then....
A1 = 15% B1 = 66% A2 = 4% B2 = 15%
The backround image behind the number is filled up by volume equal to the percentage indicated. They are also color coded with red representing the highest percentage quadrant filled.
To top that, there are little arrows along the sides of each quadrant indicating an average score.
My first question is WHAT TYPE OF CHART IS THIS THING!, and second can this be done in excel?
I want to create a custom format for a cell for entering in "cup measurements". I want to be able to type in 5, 1/4, 1/16, etc. and have the word "cups" appear after the number in that cell. I formatted the cell to say the word cups after typing in the numbers in my cell using the code "cups".
ex: 0 "cups" works fine for whole number
so then if i change it to 0/0 "cups" is works great for only 1/8 but not 1/16 or whole numbers. Then I looked at other custom codes that already existed in my formatts so I attempted to try this code which I just kinda came up with
_(0/00);_(0);_(0/0); "cups"
well it isn't doing what I want and If I use the 0/00 "cups code and I type in 4 cups the cell then says 4/01 cups.
What does my code need to be for me to show whole numbers and and size fraction without having it look weird?
I work with excel docs that have alot of sheets. I managed to create a vba form that has a listbox populated with the sheet names, that when clicked goes to the respective sheet. The problem is that when the form is open i cannot focus on the excel sheet - the form needs to be closed first.
1 ) Is it possible to make an excel vba form dockable (so it could be displayed on the right where help would be)
Or
2) Would it be possible to create a drop down in the toolbar that would have the sheet names.
I think the latter is a cleaner solution (if possible).
I need a way to make a customized legend for a scatter plot, is there any way to do that through VBA? I have a scatter plot with some points highlighted green, and some points grey depending on the user selection and need to be able to create a legend based on what the user selects (e.g. Green - Category B, Grey - Category A, etc.).
For some reason I can't get Excel to rename points on the scatter, so I feel like there is only one option: create custom images and align them correctly with labels on the plot.
Finally after 3 days of intensive studying VBA, my first add-in pack is ready to be installed in the office. I've got my custom form all ready, now all I need is to have excel create a custom button on the toolbar that calls up my custom form when clicked.
The idea of assigning a shortcut key doesn't really appeal to me. I'll be packaging it up in .xla format. Would be greatful if anyone can direct me on how to add a button to call up my form (only one form in fact).
I have a workbook that creates three temporary menu buttons when I open it. These work fine until I try and open more then 1 workbook at a time. This creates duplicate menu buttons (3 times the number of workbooks that I open).
I call up the procedure when each workbook is opened using this code in the "ThisWorkbook" code area: ....
I was wondering if it is possible to create a custom pivot table report filter? I would like to take an existing pivot table report filter and manually add values into it. I would like to do this because I have multiple pivot tables, some with the same values and some with different values and I have a VBA code from Contextures that applies a mass filter to all fields with the same name. So if i could manually add values into one report filter, I could filter from one location and have all my pivot tables update at the same time if they contain the value that i would like to filter by.
I am trying to ensure that m work book keeps the same name even when I email it to others.
I have been told on this forum that it is possible for a workbook to check its own name once opened?
I have two different names that this file can be called 1st is the one that is in use all the time and the 2nd is a archive version where the name changes each month.
The file name I wish to keep the same for the no archived version is Toolbox and a predetermined number I have a workings sheet called workings and in a cell i have a formula =TEXT("Toolbox Application " & Cover!E10,) this will give me the file name that i need to check for example it could be Toolbox Application 00089 or Toolbox Application 00967.
I also have a cmd that archives the workbook and saves it as Toolbox and the Month it was for Toolbox for Jan for example
I also need this to open if it is an archive
if neither of the names match i need the workbook to close and a msgbox to tell user to rename the workbook correctly.
I have a VBA form that the user enters information into and once they click submit on the form the code opens a new workbook and then enters the information from the form into that workbook. What I need is for that code to then save the workbook with a filename from one of the fields entered into the form but I'm not too sure how to do this.
I'm trying to record a macro that calls up the saveas dialogue and uses a filename from a cell (it's the w/c date). I can start recording the macro, open the dialogue box and copy the contents of the cell but i can't get it to paste as the filname.
What I'm trying to achieve is to allow users of a muli-sheet workbook to be able to click on a 'save' button on any sheet and have the workbook save with a filename which includes the current week commencing date. This way all the weeks changes will be in just one file and from the following monday a new file will be started the the old one left alone as an archive.
Am working on a procedure to open all files in a folder and copy some data from the files into another workbook (master). I have this piece of the code. However, I also need to get the filename (from which data was copied) and paste this into an adjacent cell in the master (so I know which file each data point came from).
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:
There was an article in ozgrid new about excel custom toolbars (<<hover over). The article addressed making the custom menu option available in one workbook with Private Sub Worksheet modules as follows
Private Sub Worksheet_Activate() Application.CommandBars("Worksheet Menu Bar").Controls _ ("My Menu").Enabled = True End Sub
Private Sub Worksheet_Deactivate() Application.CommandBars("Worksheet Menu Bar").Controls _ ("My Menu").Enabled = False End Sub
How do you get the first module to run apon opening the workbook and the second module to run when you close the workbook.
I have created a workbook and made a custom toolbar to perform the macro functions for the sheets in the workbook. Everything works great for me, but I want to attach the custom toolbar to the workbook so that whenever someone else pulls up the workbook they pull up the custom toolbar too.
I used the tools menu, clicked customize, toolbars, attach, selected the custom toolbar and clicked copy.
No toolbar appears.
I can select View, Toolbars, and select the custom toolbar, then the toolbar appears, but when I close the sheet the toolbar remains.
When someone else opens the sheet, the toolbar appears without any "buttons." It is an empty toolbar.
The help text isn't helping because the instructions for attaching a custom toolbar to a worksheet (tools/customize/toolbars/attach/copy) do not attach the toolbar to the workbook.
How can I have a custom defined workbook run a particular macro?
I'm using the Run Application Method:
Application.Run("'Workbook.xls'!Macro")
However the workbook.xls field is static as my program loops through a folder containing various workbooks, opening these workbooks, and running a specific macro housed in their specific module.
Dim MyFile as Object MyFile = Dir("C:Test") While MyFile ""
Workbooks.open Filename:="C:Test" & MyFile Application.Run("'Workbook.xls'!Macro") MyFile = Dir
How can I define the current active workbook in the run method? Using the custom 'MyFile' in place of the workbook does not work.