Improvement for office
 

I always work a lot with the same file. Excel and Word. Its possible to put a
option that every time I save the file it includes a information about the
file. It can be version, date, etc.

Example

I haves this file = cashflow.xls or .doc

I want with and option to put information on the file that I save =

cashflow-01.xls

and so on

cashflow-01.xls
cashflow-02.xls
cashflow-03.xls
cashflow-03.xls

Another Example

I haves this file = cashflow.xls

Every time I save the file I what to put info Example "date and version"

cashflow-30-06-06-ver-1.xls
cashflow-30-06-06-ver-2.xls
cashflow-30-06-06-ver-3.xls
cashflow-30-06-06-ver-4.xls

Improvement for office
 

try changing this to suit your needs. Place in the ThisWorkbook module by
right click the excel icon just to the left of file on the bar.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
With Sheets("sheet25")
mlr = .Cells(Rows.Count, "b").End(xlUp).Row + 1
Cells(mlr, "b") = ActiveWorkbook.Name
End With
End Sub

--
Don Guillett
SalesAid Software

"Robert Adams, from Argentina" <Robert Adams, from
wrote in message
...
I always work a lot with the same file. Excel and Word. Its possible to put
a
option that every time I save the file it includes a information about the
file. It can be version, date, etc.

Example

I haves this file = cashflow.xls or .doc

I want with and option to put information on the file that I save =

cashflow-01.xls

and so on

cashflow-01.xls
cashflow-02.xls
cashflow-03.xls
cashflow-03.xls

Another Example

I haves this file = cashflow.xls

Every time I save the file I what to put info Example "date and version"

cashflow-30-06-06-ver-1.xls
cashflow-30-06-06-ver-2.xls
cashflow-30-06-06-ver-3.xls
cashflow-30-06-06-ver-4.xls

Improvement for office
 

add a dot before
Cells(mlr, "b") = ActiveWorkbook.Name
..Cells(mlr, "b") = ActiveWorkbook.Name

--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
try changing this to suit your needs. Place in the ThisWorkbook module by
right click the excel icon just to the left of file on the bar.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
With Sheets("sheet25")
mlr = .Cells(Rows.Count, "b").End(xlUp).Row + 1
Cells(mlr, "b") = ActiveWorkbook.Name
End With
End Sub

--
Don Guillett
SalesAid Software

"Robert Adams, from Argentina" <Robert Adams, from
wrote in message
...
I always work a lot with the same file. Excel and Word. Its possible to
put a
option that every time I save the file it includes a information about
the
file. It can be version, date, etc.

Example

I haves this file = cashflow.xls or .doc

I want with and option to put information on the file that I save =

cashflow-01.xls

and so on

cashflow-01.xls
cashflow-02.xls
cashflow-03.xls
cashflow-03.xls

Another Example

I haves this file = cashflow.xls

Every time I save the file I what to put info Example "date and version"

cashflow-30-06-06-ver-1.xls
cashflow-30-06-06-ver-2.xls
cashflow-30-06-06-ver-3.xls
cashflow-30-06-06-ver-4.xls