Improvement for office

[Robert Adams, from Argentina]

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

[Don Guillett]

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
[email protected]
"Robert Adams, from Argentina" <Robert Adams, from
[email protected]> wrote in message
news:[email protected]...
>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

[Don Guillett]

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

--
Don Guillett
SalesAid Software
[email protected]
"Don Guillett" <[email protected]> wrote in message
news:[email protected]...
> 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
> [email protected]
> "Robert Adams, from Argentina" <Robert Adams, from
> [email protected]> wrote in message
> news:[email protected]...
>>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
>
>