excel

[frank]

I need a formula for excel to autonumber a sheet as it is
saved as.
This is for a customer file which is used as an order
input suite.
Does anyone know how to do this

Frank

 

[Bob Phillips]

You need VBA

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Worksheets.Range("A1")
.Value = .Value + 1
End With
End Sub

Put this code in ThisWSorklbook code module

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Frank Kabel]

Put this code in ThisWSorklbook code module
^^^^^^^^^^^^^^^

Bob
Interesting module name <vbg>

Frank

 

[Bob Phillips]

Isn't it the same in German?

Bob

^^^^^^^^^^^^^^^

Bob
Interesting module name <vbg>

Frank

 

[Frank Kabel]

Hi Bob
besides the typos we use
'DieseArbeitsmappe"

Frank

 

[Bob Phillips]

Don't you mean
DieselArbeitenmappel?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Frank Kabel]

lol
time for some beers

 

[Bob Phillips]

Scotch! Mine's a Lagavulin!

Bob

lol
time for some beers

 

[Frank Kabel]

Deal
mine is a Glen Garioch

 

[Norman Harker]

Hi Bob!

I'll have the top half of the bottle!

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
(e-mail address removed)
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.

 

[Norman Harker]

Hi Frank!

I'll have the top half of the bottle!

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
(e-mail address removed)
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.

 

[Bob Phillips]

Now that's just greedy, hitting on both of us!

Bob

 

[Norman Harker]

Hi Bob!

No! It would be un-Australian if I didn't

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
(e-mail address removed)
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.

 

[Frank Kabel]

Bob, Norman
thought the same: 1 bottle in total