increment/populate numbers by worksheet

B

br549

I want to populate cell A1 in each worksheet in my workbook with a number
that increments by one every sheet. So A1 value in first worksheet would be
1; in second worksheet, 2 etc.

How?
 
G

Gord Dibben

br

This code was originally written to increase a date in A1 across sheets.

Have re-written to increase a number across sheets. Left in the date
parts(commented) in case you ever wanted to use that.

Sub Date_Increment()
''increment a date in A1 across sheets
Dim myDate As Long 'Date
Dim iCtr As Long
myDate = 1 'DateSerial(2004, 4, 19)
For iCtr = 1 To Worksheets.Count
With Worksheets(iCtr).Range("A1")
.Value = myDate - 1 + iCtr
.NumberFormat = 0 ' "mm/dd/yyyy"
End With
Next iCtr
End Sub


Gord Dibben Excel MVP
 
R

RagDyer

If your sheets are the default XL names (Sheet1, Sheet2, ... etc.)
OR
You care to name them in such a way that the last character in the sheet
name is the "page" number, you could simply use this formula in A1 of each
sheet:

=RIGHT(CELL("filename",A1))
--

HTH,

RD
==============================================
Please keep all correspondence within the Group, so all may benefit!
==============================================


I want to populate cell A1 in each worksheet in my workbook with a number
that increments by one every sheet. So A1 value in first worksheet would be
1; in second worksheet, 2 etc.

How?
 
Top