Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automatic File Name based on cell content
I think I am almost there. The content of A1 is from C11 (text and dat
combine). I got two sheets in the workbook. Sheet 1 name is "data sheet 2 name is "calculation". The "A1" that I need is from sheet 1 This is what I tried... Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim CellName As String CellName = Range("A1") ActiveWorkbook.SaveAs Filename:="C:\Document an Settings\Owner\Desktop\comparable\" & CellName & ".xls" End Sub When I pressed "save as", it saves but did not use the file name that want and it did not go to the folder that I want it to go. Which on is wrong on the code. Thanks agai -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automatic File Name based on cell content
It looks okay, but try this version
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim CellName As String Dim FileName As String FileName = :="C:\Document and Settings\Owner\Desktop\comparable\" CellName = Activeworkbook.Worksheets("Sheet1").Range("A1") ActiveWorkbook.SaveAs FilenameFileName & CellName & ".xls" End Sub If that fails, insert a MsgBoc FileName & CellName & ".xls" and see what you get. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Prangk " wrote in message ... I think I am almost there. The content of A1 is from C11 (text and date combine). I got two sheets in the workbook. Sheet 1 name is "data" sheet 2 name is "calculation". The "A1" that I need is from sheet 1. This is what I tried... Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim CellName As String CellName = Range("A1") ActiveWorkbook.SaveAs Filename:="C:\Document and Settings\Owner\Desktop\comparable\" & CellName & ".xls" End Sub When I pressed "save as", it saves but did not use the file name that I want and it did not go to the folder that I want it to go. Which one is wrong on the code. Thanks again --- Message posted from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automatic File Name based on cell content
I can't make it work. I just copied and pasted your code but nothin
happened. Almost giving up. Any last help before i stopped trying thi automation problem -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Automatic cell content deletion | Excel Discussion (Misc queries) | |||
insert picture from file based on cel value/content | Excel Worksheet Functions | |||
Add name by vba based on cell content | Excel Programming | |||
Automatic File Name based on cell content | Excel Programming | |||
Format Row based on Cell Content | Excel Programming |