ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Consecutive numbering (https://www.excelbanter.com/excel-worksheet-functions/260425-consecutive-numbering.html)

Esradekan

Consecutive numbering
 
Hope someone can help.

How can I get one cell (B35) on each of 100 worksheets to number
consecutively?

TIA
Esra
(*-*)<


Subodh

Consecutive numbering
 
You should use VBA code for this.
As far as my knowledge goes Worksheets functions won't work.

On Apr 1, 5:28*am, Esradekan wrote:
Hope someone can help.

How can I get one cell (B35) on each of 100 worksheets to number
consecutively?

TIA
Esra



(*-*)<- Hide quoted text -


- Show quoted text -


U should use VBA code.

Esradekan

Consecutive numbering
 
On Apr 1, 2:36*pm, Subodh wrote:
You should use VBA code for this.
As far as my knowledge goes Worksheets functions won't work.

On Apr 1, 5:28*am, Esradekan wrote:

Hope someone can help.


How can I get one cell (B35) on each of 100 worksheets to number
consecutively?


TIA
Esra


(*-*)<- Hide quoted text -


- Show quoted text -


U should use VBA code.


Thank you for the reply. Can you point me in the direction of how I
can get VBA code for this?

TIA
Esra
(*-*)<


Roger Govier[_8_]

Consecutive numbering
 
Hi Eara

Try this

Sub Numbersheets()
Dim i As Long, ws As Worksheet
i = 1
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Sheets
ws.Range("B35") = i
i = i + 1
Next
Application.ScreenUpdating = True
End Sub

To Install
Copy code above
Alt+F11 to invoke the VB Editor
Alt+I+M to insert a new module
Paste code into White Pane that appears
Alt+F11 to return to Excel

To Use
Alt+F8 to bring up Macros
Select macro name
Run

--
Regards
Roger Govier

Esradekan wrote:
On Apr 1, 2:36 pm, Subodh wrote:
You should use VBA code for this.
As far as my knowledge goes Worksheets functions won't work.

On Apr 1, 5:28 am, Esradekan wrote:

Hope someone can help.
How can I get one cell (B35) on each of 100 worksheets to number
consecutively?
TIA
Esra
(*-*)<- Hide quoted text -
- Show quoted text -

U should use VBA code.


Thank you for the reply. Can you point me in the direction of how I
can get VBA code for this?

TIA
Esra
(*-*)<


Esradekan

Consecutive numbering
 
On Apr 1, 8:50*pm, Roger Govier
wrote:
Hi Eara

Try this

Sub Numbersheets()
* * *Dim i As Long, ws As Worksheet
* * *i = 1
* * *Application.ScreenUpdating = False
* * *For Each ws In ThisWorkbook.Sheets
* * * * *ws.Range("B35") = i
* * * * *i = i + 1
* * *Next
* * *Application.ScreenUpdating = True
End Sub

To Install
Copy code above
Alt+F11 to invoke the VB Editor
Alt+I+M to insert a new module
Paste code into White Pane that appears
Alt+F11 to return to Excel

To Use
Alt+F8 to bring up Macros
Select macro name
Run

--
Regards
Roger Govier



Esradekan wrote:
On Apr 1, 2:36 pm, Subodh wrote:
You should use VBA code for this.
As far as my knowledge goes Worksheets functions won't work.


On Apr 1, 5:28 am, Esradekan wrote:


Hope someone can help.
How can I get one cell (B35) on each of 100 worksheets to number
consecutively?
TIA
Esra
(*-*)<- Hide quoted text -
- Show quoted text -
U should use VBA code.


Thank you for the reply. *Can you point me in the direction of how I
can get VBA code for this?


TIA
Esra
(*-*)<- Hide quoted text -


- Show quoted text -


Perfect, thank you Roger, most helpful

Esra
(*-*)<



All times are GMT +1. The time now is 05:16 PM.

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