increment/populate numbers by worksheet
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? |
Hi
maybe the following helps you: http://www.dicks-blog.com/archives/2...eet/trackback/ -- Regards Frank Kabel Frankfurt, Germany "br549" schrieb im Newsbeitrag ... 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? |
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 On Tue, 4 Jan 2005 12:05:04 -0800, "br549" wrote: 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? |
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! ============================================== "br549" wrote in message ... 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? |
All times are GMT +1. The time now is 08:28 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com