incrementing a number in a cell

rmfry · May 10th, 2002, 03:58 AM

We are racking our brains here trying to design a form in Excel that automatically increments the number (i.e. 5600) by one each time the form is opened. Is there a formula or macro that will accomplish this task?

Nibbles · May 10th, 2002, 04:10 AM

Hi,

Do you open your form with a button?

If you do you could add the following line:

YourForm.Show
Nmbr = ActiveSheet.Range("A1").Value
ActiveSheet.Range("A1") = Nmbr + 1

Let me know if I've missed the point and your number isn't actually in a cell.

Nibbs

BenNV · May 10th, 2002, 04:35 AM

Under VBA project, click This Workbook and select Workbook_Open. Put the code in here and each time you open the file the cell should increment.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 10th, 2002, 03:58 AM	#1
rmfry New Member Join Date: May 2002 Location: Roger M. Fry Posts: 1	We are racking our brains here trying to design a form in Excel that automatically increments the number (i.e. 5600) by one each time the form is opened. Is there a formula or macro that will accomplish this task?

May 10th, 2002, 04:10 AM	#2
Nibbles Board Regular Join Date: Apr 2002 Location: Surrey, United Kingdom Posts: 75	Hi, Do you open your form with a button? If you do you could add the following line: YourForm.Show Nmbr = ActiveSheet.Range("A1").Value ActiveSheet.Range("A1") = Nmbr + 1 Let me know if I've missed the point and your number isn't actually in a cell. Nibbs

May 10th, 2002, 04:35 AM	#3
BenNV Board Regular Join Date: Mar 2002 Posts: 160	Under VBA project, click This Workbook and select Workbook_Open. Put the code in here and each time you open the file the cell should increment.