Create Workbooks From Sheets & Append Current Date To Saved Names

Apr 22, 2008

I have a workbook with multiple worksheets. First 4 tabs are the standard tabs and rest of the tabs are created based ona macro with the unique names. Now i want to create the separate workbook for each tab by its name and , date and time stamp in a C directory.

ADVERTISEMENT

Create Sheets With Month Names By Date List

Jan 11, 2008

I'm trying to achieve is to write a macro that can search a column of dates then open new worksheets according to the months that are present in the column of dates. So, for example, if the column has dates ranging from January to June, I need the macro to open 6 new worksheets and label them January, February, March, April, May and June.

View 6 Replies View Related

SaveAs Current Date & Append With Number

Sep 19, 2007

I have saved an Excel file based on today’s date using: ActiveWorkbook.SaveAs "S:MTL_DATA Stock Orders" & "Stock_Order_" & oname & Format(Date, "dd-mm-yy") & ".xls"

If I wish to save a second file in the same day I wish to save as the date with “_1” or date with “_2” for the third file etc. How do I alter the above code?

View 4 Replies View Related

Append Current Date To Active Workbook Name

Mar 3, 2008

I want to save my active workbook with the current name together with the date Auto Merged Post Until 24 Hrs Passes;Sorry, new to this.

View 2 Replies View Related

Create Workbooks & Save-Name By Sheet Tab Names

Oct 10, 2006

Every month I work on an audit that has data from 35 different distributors. I have code below that puts each distributors audit/sales information on a new tab and each new tab is given the distributors name. This also creates a new workbook for each distributor.

When the new workbooks are created, how can I name each workbook with the distributor name it's being created for? Is it possible to predefine a file path to where these new workbooks will be saved?

The distributor names I'm using are in column AF.

Sub FormatList()
'The code below creates and names a new tab for each members info
Dim ws1 As Worksheet
Dim wsNew As Worksheet
Dim rng As Range
Dim r As Integer
Dim c As Range
Set ws1 = Sheets("Sheet1")
Set rng = Range("Database")


'extracts a list of member or distributor names
ws1.Columns("R:R"). AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Range("T1"), Unique:=True
r = Cells(Rows.Count, "T").End(xlUp).Row

'set up Criteria Area
Range("U1").Value = Range("R1").Value

For Each c In Range("T2:T" & r)
'adds the member name to the criteria area above
ws1.Range("U2").Value = c.Value
...............

View 9 Replies View Related

Create Multiple Workbooks With Names Based On List

Sep 2, 2007

I have some very tedious work to do in Excel:

table looks like following:
DepID name function
S1 a YY
S1 b XX
S1 c ww
S2 d oo
S3 e ii
S3 f ll
S4 t mm
. . . . . .. . . .
. . . . . .. . . .
. . . . . .. . . .

S7999 u ee
S7999 w aa

My task is to create new folders for each department according to DepID, which means if there are 7999 departments, I have to create 7999 folders, any VBA code can do this?

View 9 Replies View Related

Create Macro That Filter Date In A Column From One Week Previous Till Current Date

Mar 14, 2014

I have an excel sheet wherin there is a column that has the data where in the dates are displayed and many other columns.

I get this excel every Thursday so i want to filter this date column in such a way that it give me the data related to the date of the previous week only yet there is a catch here. When i say previous week i mean.

Suppose today is 03/14/14 then i want the data from 03/07/14 till today ie Last week friday to this week full( so cant use Current week option) and then paste it in a new sheet.

I tried the Record part but in that it is taking a hard coded value as i am selecting the date myself. I dont want to change the date manually every time.

this was the macro that was created

Code:
ActiveSheet.Range("$A$1:$BX$58").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "3/10/2014")
Range("A59").Select
ActiveCell.FormulaR1C1 = "=COUNT(R[-4]C:R[-1]C)"
Range("A60").Select

View 8 Replies View Related

VBA Create New Folder In Current Location And Save Selected Sheets As PDF

Feb 2, 2014

I have the below code that saves selected sheets of my workbook as pdfs in the current file location. What I would like this code to be able to do is to create a new folder (named with todays date), and then save each of the pdfs into this folder.

Code:
Sub SaveWorksheetsAsPDFs()
Dim sFile As String
Dim sPath As String
Dim fPath As String
Dim wks As Worksheet

[Code] ........

View 3 Replies View Related

List All Sheets Names From Multiple Workbooks & Copy Transpose Certain Columns

Oct 7, 2009

this may or may not be easy for some of you but its driving me nuts. Here's what I need to do.

1.Create a new workbook

2.Cycle through multiple workbooks and all worksheets within each workbook (all in the same folder). All workbooks will have the same structure.

3.Take the worksheet names and put them in rows

4.Take the data from the first column (column A) from the first worksheet of the first workbook and put them across the top (i.e. transpose the data). The first column will be the same in all workbooks so it doesn't matter where I get it from.

5.Copy the data from column E from each worksheet and paste them in rows in the new workbook (again transpose) corresponding to each worksheet.

6. Perform simple mathematical calculations at the end of each row.

I expect to have approximately 26 workbooks with a total of 7000 worksheets. In the target workbook (i.e. the new one), I expect there to be 7000 rows (corresponding to the 7000 worksheets) and about 260 columns.

The only reason I need to transpose stuff is because Excel 2007 doesn't have 7000 columns.

Here's an example of what it would look like.
Example worksheet (Input)-
Worksheet ABC
Col A Col E
1/1/2004 $25
1/8/2004 $30
1/15/2004 $15

Imagine another worksheet called LMN with the same ColA but different values in Col E.

Output workbook
ColA Columns B Column C Column D
Sheet 1/1/2004 1/8/ 2004 1/15/2004
ABC $25 $30 $15
LMN $xxx $yyy $zzz

View 7 Replies View Related

How To Create Sheets From A List Of Names

Mar 1, 2012

I have a macro that creates sheets from a list of names. I have a template which is copied.

Sub CreateSheetsFromAList()
Dim MyCell As Range, MyRange As Range
Dim MySheetName As String

[Code]...

Sometimes I have to update that name list.

What I need is to have some addition that checks if the sheet does exist, if it does I want to skip and move on to the next name.

View 3 Replies View Related

If Cell Is Empty Create Rule To Display The Current Date

Sep 5, 2007

Im trying to find a formula that when a cell is empty ie this cell is linked to another cell on another worksheet and info has not been entered or is 0 then i want the cell to display the the current date ie =NOW()

View 10 Replies View Related

Append Names To Totals

Feb 15, 2008

Adding variable text to existed value

I need to realize such a thing. I have some data looks lie this.

Total 23444.12
Jim
123
234
321
234
Total 2341.234
Kate
231234
2342
12345
2314
Total 2344.45
Mary
4432
342
234
5543
234
543
Total 23342.32

As you see it consist of names Jim Kate Mary, some numbers, and total. There are only 3 different names. And the order of the names is not fixed. So it can't be simple changing loop between jim kate mary. The script should search for name then assign it to variable (or something like that) then search for word total and adds name from variable to word total ex. Jim Total 22324.3

So I need to add name to word total (in the same cell) so after all it should looks like that

Total 23444.12
Jim
123
234
321
234
Jim Total 2341.234
Kate
231234
2342
12345
2314
Kate Total 2344.45
Mary
4432
342
234
5543
234
543
Mary Total 23342.32

View 4 Replies View Related

Find Current Date On Several Sheets & Convert Surrounding Cells To Values

Dec 2, 2009

I keep track of values in a workbook. I accumulate them on a daily basis (business days) and keep track of the older values.

On the first sheet I have all current values automatically displayed.

All subsequent sheets contain the values for the different locations (>60) by one location per one sheet with multiple entries per location.

Most of the values do not change daily. So I copy the values from the previous day and paste them to the current day’s fields (the row below yesterday's values).

Today’s date (and prior dates as well as subsequent dates) are in column A, the values to be copied are in column B through AZ. With over 60 sheets this job becomes very tedious very quickly...

What I would like to be able to do, with a click of a button, is to go into each sheet (except the first one), go to the current date (in column A), select the field to the right of that date (in column B), go up one field, select both fields (today and last business day) and go from B to AZ (or A to AY in relative terms) copy all those entries, go down one field (to the same row as today’s date) and paste the content. Then repeat that for every following sheet…

As the date field that I am looking for goes down one field with each day I cannot use fixed points to copy and paste from, but have to use the date field as an anchor from whence to find the proper cells.

I do have some values in the following day's fields, that is why I need to copy two rows and not just the values from the previous day...

View 4 Replies View Related

Append Unique Data To Workbooks

Oct 30, 2006

I could use some help in modifying it so that instead of creating new workbooks to copy to, it copies to EXISTING workbooks whose names match the YEAR ("yyyy") in the Dates fields in column "B" (and only creates new workbooks for non-existing Years, IF needed).

Each workbook name is a "Year" (ie. 2000, 2001, 2002, etc.), and all unique data in A:D are to be copied to each corresponding Year workbook, again as per the Year in the Date field.

I’d like both columns "A" AND "B" tested to make sure that only original (non-duplicate) data is added to the corresponding Year Workbooks (all residing in one folder).

Btw, the code also copies the header, which is ok for new workbooks, but not needed for already-existing wbs.

View 9 Replies View Related

2000 Files All Saved As Different Names

Jan 24, 2009

I have 2000 excel files all saved as different names.

The Names of the the files are all from greyhound racing results, here are some examples.

4th January 2008 7.30
4th January 2008 7.45

So we have the date of the race and the time of the race.

In these 2000 files there is certian information I want to retrieve into 1 excel sheet to run analisis on them.

So cell A1 in every file is always the same and may contain a number I need.There are several numbers I want to retrieve from each file but I want it to display in 1 sheet, now I can do this manually and may have to but lets see.

View 9 Replies View Related

Close Workbooks Saved As Elements In An Array

Feb 3, 2010

I have an array of data type Variant, who's elements are workbooks opened by a user.

The array size is static, which for now isn't a concern but I can't work out how to close the workbooks in the array via a loop and the usual vba code of Workbooks("file").Close

Code I have that doesn't work is:

Sub Close_Workbooks_In_An_Array ()

Dim dFile (1 to 6) As Variant
Dim i As Integer, j As Integer

' // Some code to open files, set each dFile(i) as a file and then process
' // them. Max value for i is 6

j = 1
For j = 1 To i
MsgBox ("Closing: " & vbNewLine & vbNewLine & dFile(j))
Workbook.(dFile(j)).Close
Next j

End Sub

View 9 Replies View Related

Saved Sheet To Create Hyperlink

Nov 3, 2009

I have a workbook for Purchase orders.

how it works at the moment is when I fill in the Purchase prder sheet then save it, I have a macro that

Copies Sheet "Purchase Order" creates a new sheet to paste it to then also copies some details to A Sheet called "Register.

I would like to be able to (if possible)

1/ automaticly create a hyperlink between the P/o Nomber stored on the register as it is storing the new sheet &

2/ automaticly change the sheet tab to reflectthe P/order number in Cell G8

I have very little knowlage of VBA & am learning how to record macros so please be gentle.

here is the macro I recorded ....

View 6 Replies View Related

Create Auto Saved TXT File

Oct 17, 2012

I have an excel file that gets updated every month but i only want one of the tabs to get saved automatically into a txt file when i click on a "finish" button or something like that.

View 4 Replies View Related

VBA - Create Folder With Date In Name, Populate With Sheets

May 27, 2009

I have a workbook that will have many modules (5) that will perform all sort of checks etc. The output for each module is a worksheet that i need to export to a new workbook named with the name of the original sheet and current date appended e.g. "Dbase 27 06 2008.xls".

Every time any of the 5 modules is run a check is performed whether a folder with a specific name and date exists e.g. "Audit Tool 27 06 2008" and if it does not exist yet to create it. The new workbook should be saved to this folder with above mentioned name e.g. "Dbase 27 06 2008". I found some info on this topic but I just cannot assemble all pieces of code together (I am new to this).

View 2 Replies View Related

Saving Cell Contents To XML File Saved As Current Workbook File Name

Dec 12, 2012

I have numerous spreadsheets that I need to open and unhide a sheet, that has XML data stored in cell A1. What I need to do is copy that data in cell A1 and paste it into a text document and save that as an XML file saved as the XLS workbook name with a date stamp.

I'm running into many issues, the main issue is the saving as current file name, and the formatting of the text/XML file.

Here is my current code, which doesn't reference the current file name and is just very generic. Once I get the saving as file-name correct and the formatting of the xml file correct, I will work on it a bit more.

Code:
Sub Test()
Dim Rng As Range
Dim wb As Workbook
Set Rng = Range("A1:A2")
Set wb = Workbooks.Add
With wb
Rng.Copy

[code]....

View 4 Replies View Related

Create Dropdown That Will List All Names Starting With Initial Letter Of Names?

Jan 13, 2014

I have a long customer listing, names 5 to 36 characters and several with their location in the name as well as a few common duplicate names. I am trying to produce sheet where the customers name once selected opens in the customers spreadsheet and data can be added/amended for sales etc.The lists are not in alphabetical order as when created a customer number is automatically allocated. My aim is just to type in the first letter of the name and the dropdown appears the customer is selected and their card appears. I have tried data validation, lookup, vlookup, Dropdown and Match/find. they only return the first record found and no sign of any others. Find returned all instances of the letter appearing in every name.

View 9 Replies View Related

Can Create Data Validation List Of Names Created In Name Box Or Sheet Tab Names

May 7, 2012

Can I create data validation list of the names created in the name box or of the sheet tab names?

View 5 Replies View Related

Create Array Of File Names/sheet Names

May 1, 2008

Two part question:

1) I'm relatively new to arrays, but what I need to do is generate a list of file names and the sheets within each one. I would like to use an array for this, but since I don't have much experience.... well....that's why I'm here. Can someone point me in the right direction?

2) And the second part of this.... I was planning on using the FileSystemObject to determine the files in a selected folder and loop through that list of files, opening each one and harvesting the required info (file name and all sheet names). Should I use the FSO or is there something built into Excel that might be better (and also limit the number of dependencies for this little "project" of mine).

View 9 Replies View Related

Excel 2010 :: VBA - Hide Sheets Using Code Names Not Sheet Names

Oct 15, 2013

Code:

Sheets(Array("Sheet 1", "Sheet 2")).Visible = False

How do I convert the above to using Sheet Codes Names, Sheet1 and Sheet2?

Want to ensure my code will work if the user changes the sheet name.

View 2 Replies View Related

Copy & Append To Report, Rows From Multiple Sheets If Any Cell Meets Format Color

May 1, 2008

I've seen a few threads on here about this issue but none of them do quite what I am looking for. I'd like for a single page "report" to be created when a user presses a button (which runs a macro, of course) The macro should be able to run through certain named sheets (even if hidden) and if a cell in any row is red within a sheet then the entire row or rows that meet the criteria should be copied and pasted into the Report sheet.

On the report sheet, for each sheet that has had rows that were copied, I'd like to have the name of the sheet as the header above the pasted rows so that the user knows which sheet the data came from. Any sheet that doesn't have red cells would be excluded from the report. I've attached a sample file but had to limit the number of sheets because of Orgrid's file size limit. Hopefully, you'll see what I am getting at here.

View 8 Replies View Related

Date Format Is Not Saved In CSV

May 5, 2014

I have an excel file in which the date format for a column was in the following format -: 3/14/01 Since I wanted the column to display in 'mm/dd/yyyy' format, I changed the type to -: 03/14/01 and the sheet was saved. I then for a specific purpose converted the xls file to csv and noticed that the date formatting I did is not getting saved. That is, every time I open the csv the date format changes back to 3/14/01.

how to retain the date format in excel? I need to use the date format in mm/dd/yyyy only for the application I'm using.

View 2 Replies View Related

Last Date Saved Code

Nov 29, 2006

does anyone have a simnple code that when entered in a cell only returns the last date the file was saved? better yet, could it somehow be specific based on a modification to a specific worksheet modified?

example: i have 8 worksheets. how can i show when one worksheet is updated, say November 27th 2006, and another worksheet on November 28th 2006?

View 9 Replies View Related

Last Date Saved Formula

Dec 20, 2006

Is there a formula that will get the date & time the workbook was last saved? I am using an earlier posted macro now but would like for the information to be visible constantly in a certain cell. Possible?
Macro used:
Sub WhenSaved()
MsgBox "This file was last saved on " & Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "mmmm d, yyyy") & ".", 64, "Date of most recent save:"
End Sub

View 9 Replies View Related

Macro To Copy Current Sheet, Create, & Rename New Sheet From Current Open Sheet

Oct 27, 2008

EXAMPLE: Complete Sheet called "Day1". When day1 is complete you click on button and it then copies itself and creates and renames new sheet to "Day2", then when "Day2" is complete you click on button and it then copies itself and creates and renames new sheet to "Day3", and so on and so forth to "Day30".

View 9 Replies View Related

Last Saved By Time & Date In Cell

Jul 18, 2009

I'm looking for a way show the username of the person who last saved the spreadsheet, and the date & time it was saved. I would like to be able to ouput this data in certain cells on the worksheet. I have tried using something like:

View 2 Replies View Related

Tip To Show 'last Saved' Date On Worksheet

Sep 24, 2008

how I can have the latest date a file was saved showing on the worksheet? For example, I open a worksheet that was last saved on Sept 22nd, and after updating it today, I save it and want the date to show today's date?

I'm pretty sure I've seen it in some files in my working life, so would appreciate advice on this!

View 9 Replies View Related

Determine Last Saved Date Of Workbook

Sep 7, 2007

I am looking for a macro that will run on worksheet activation. it needs to run only if the file had been saved from the previous week. would something like this work?

Private Sub Worksheet_Activate()
If application.worksheet.lastsaved = msolastweek Then
range("RANGE").clearcontents
End If
End Sub

View 7 Replies View Related

Append Variable Based On Date Ranges?

Oct 10, 2013

I have a reference dataset that looks like:

Adweek Start_Date End_Date
201201 05-Jan-12 11-Jan-12
201202 12-Jan-12 18-Jan-12
...

In the dataset I would like to merge the variabe Adweek, looks like:
Date Sales
05-Jan-12 $100
06-Jan-12 $110
...
15-Jan-12 $150
...

I'd like to get to here:

Date Sales Adweek
05-Jan-12 $100 201201
06-Jan-12 $110 201201
...
15-Jan-12 $150 201202
...

View 2 Replies View Related

Append Date Variable To Header/footer

Dec 4, 2007

I'm trying to append a date variable to the end of headers for let's say 3 worksheets in a workbook. Each worksheet has a different string value, and I want to add a date variable at the end.

For example, sheet1, sheet2, and sheet3 says "Country Analysis", "Regional Analysis", and "State Analysis", respectively. I want to add the month and date to that so it would say something like "Country Analysis December 2007" for Sheet1, without hard coding it. Essentially, loop through however many worksheets and add a date variable at the end of each header on the left side.

I know how to get the date variable (format(date, "MMMM YYYY")) and the code behind the headers.

View 9 Replies View Related

Append Multiple Workbooks With Multiple Worksheets

Sep 5, 2008

I would like to append multiple workbooks with multiple worksheets in a separate workbook. For eg. I have workbook "A" with sheets 1,2,3 and workbook "B" with sheets 4,5,6. Now I want to append "A" and "B" to create workbook "C" with sheets 1,2,3,4,5,6.

View 9 Replies View Related

Extract Data From Different Workbooks To Current Sheet

May 5, 2006

I am working with 3 different worksheets. Lets say they are named A, B, and C and for simplicity, and let us say they are all stored in C:worksheets (they are actually located on different network drives). I would like for excel to open and extract data from the Machine_List page in each workbook. Then output it to the current sheet that I am working with and just add the data to the next available empty cell on row A. They are also headers on each sheet so I would like to delete it or start copy from cell A2.

View 9 Replies View Related

Userform - Insert File's Last Saved Date

Dec 15, 2009

if there is an easy way of showing the active file "Last Saved Date" on a Userform and have it show automatically when the Userform is opened? The Scenario is:

I have a "Main" userform screen and I want to have a text line which says, "File last updated on xx/yy/zzzz ". This must show up automatically when the "main" userform is opened.

View 3 Replies View Related

Open File With Last/Lastest Saved Date

May 5, 2008

I'm looking for a code which is checking the file name first before opening and operating on it. File name format is filenameyyyymmdd.xls but the problem is files in that directory are saved irregularly (couple times a week) and I need to open the newest saved file.

View 2 Replies View Related

Send Last Saved Date & Time To Cell

Jun 24, 2008

I have a macro that returns the time the sheet was last saved:

Function LSDate()
LSDate = Application.Caller.Parent.Parent. _
BuiltinDocumentProperties("Last Save Time").Value
End Function

Unfortuantely, the cell doesn't update without recalculating the cell. Is there a way to get the cell to update automatically every time the sheet is saved?

View 2 Replies View Related

Copy Data From Sheets In Workbooks In Folder To Main File Sheets Of Same Name

Aug 29, 2008

I would like to use VBA to search a folder and copy data from tabs within the excel files there. The data will be pasted to a tab of same name in the the main file. All the files are in the same format.

So far I have only managed to list the files in the folder using code I found on your site!

View 7 Replies View Related

Calculate Next Due Date Based On Start Date Frequency And Current Date?

Mar 9, 2014

I'm trying to workout how to take a known initial date a repeating frequency and work out the next due date from today.

Example

Initial Date :- 1st of January 2014

Frequency :- every 5 weeks

Current Date :- 9th of March 2014

Next Due date should be :-12th of March 2014 (if I worked it out correctly from my paper calendar)

I want to use a cell formula to do this for different initial dates and varying frequency periods (the frequency will always be whole weeks i.e. 1,2,3,4,5,6,7,8,8,10)

View 4 Replies View Related

ADVERTISEMENT