ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Can Excel AutoNumber (https://www.excelbanter.com/excel-discussion-misc-queries/79156-can-excel-autonumber.html)

Globe Director

Can Excel AutoNumber
 
Can a cell be set up to function as AutoNumber does in MS Access? Each time
a worksheet is opened the cell increments one number, or can a macro be
generated to do this function after the workbook is opened?

Gary L Brown

Can Excel AutoNumber
 
To increment a number by 1 everytime a worksheet is activated, put the
following code in that worksheet's module.

To do that, get into the VBE (Alt-F11). In the Project window,
double-left-click on the worksheet you want to use. In the Code window (to
the right of the Project window), put the following code.

'/===============================/
Private Sub Worksheet_Activate()
Range("A1").Value = Range("A1").Value + 1
End Sub
'/===============================/

"A1" can actually be any cell you want the number to appear in.

HTH
--
Gary Brown

If this post was helpful, please click the ''Yes'' button next to ''Was this
Post Helpfull to you?''.


"Globe Director" wrote:

Can a cell be set up to function as AutoNumber does in MS Access? Each time
a worksheet is opened the cell increments one number, or can a macro be
generated to do this function after the workbook is opened?


Globe Director

Can Excel AutoNumber
 
Gary,
Thanks!!! I put your code into the WorkBook's module, and each time the
file is opened the cell increments. FYI this is for a Return Material
Authorization form.

Globe Director

"Gary L Brown" wrote:

To increment a number by 1 everytime a worksheet is activated, put the
following code in that worksheet's module.

To do that, get into the VBE (Alt-F11). In the Project window,
double-left-click on the worksheet you want to use. In the Code window (to
the right of the Project window), put the following code.

'/===============================/
Private Sub Worksheet_Activate()
Range("A1").Value = Range("A1").Value + 1
End Sub
'/===============================/

"A1" can actually be any cell you want the number to appear in.

HTH
--
Gary Brown

If this post was helpful, please click the ''Yes'' button next to ''Was this
Post Helpfull to you?''.


"Globe Director" wrote:

Can a cell be set up to function as AutoNumber does in MS Access? Each time
a worksheet is opened the cell increments one number, or can a macro be
generated to do this function after the workbook is opened?


ryadav

I am working on a spreadsheet with the following field Reference number, Location, Date Raised, Priority of Request, Faculty and department. I want the reference number to be an auto number, therefore I have tried out the code below. However, when I fill in the information the autonumber isn't generated. What should I be doing?

Thanks

------------------------------------------------------------------------------------------
Quote:

Originally Posted by Globe Director
Gary,
Thanks!!! I put your code into the WorkBook's module, and each time the
file is opened the cell increments. FYI this is for a Return Material
Authorization form.

Globe Director

"Gary L Brown" wrote:

To increment a number by 1 everytime a worksheet is activated, put the
following code in that worksheet's module.

To do that, get into the VBE (Alt-F11). In the Project window,
double-left-click on the worksheet you want to use. In the Code window (to
the right of the Project window), put the following code.

'/===============================/
Private Sub Worksheet_Activate()
Range("A1").Value = Range("A1").Value + 1
End Sub
'/===============================/

"A1" can actually be any cell you want the number to appear in.

HTH
--
Gary Brown

If this post was helpful, please click the ''Yes'' button next to ''Was this
Post Helpfull to you?''.


"Globe Director" wrote:

Can a cell be set up to function as AutoNumber does in MS Access? Each time
a worksheet is opened the cell increments one number, or can a macro be
generated to do this function after the workbook is opened?



All times are GMT +1. The time now is 06:58 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com