Consecutive numbering

  • Follow


Hope someone can help.

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

TIA
Esra
>(*-*)<
0
Reply Esradekan 4/1/2010 12:28:17 AM

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

On Apr 1, 5:28=A0am, Esradekan <esrade...@gmail.com> 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.
0
Reply Subodh 4/1/2010 1:36:13 AM


On Apr 1, 2:36=A0pm, Subodh <getsub...@gmail.com> wrote:
> You should use VBA code for this.
> As far as my knowledge goes Worksheets functions won't work.
>
> On Apr 1, 5:28=A0am, Esradekan <esrade...@gmail.com> 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
>(*-*)<
0
Reply Esradekan 4/1/2010 2:34:10 AM

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 <getsub...@gmail.com> 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 <esrade...@gmail.com> 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
>> (*-*)<
0
Reply Roger 4/1/2010 7:50:14 AM

On Apr 1, 8:50=A0pm, Roger Govier <ro...@technology4nospamu.co.uk>
wrote:
> Hi Eara
>
> Try this
>
> Sub Numbersheets()
> =A0 =A0 =A0Dim i As Long, ws As Worksheet
> =A0 =A0 =A0i =3D 1
> =A0 =A0 =A0Application.ScreenUpdating =3D False
> =A0 =A0 =A0For Each ws In ThisWorkbook.Sheets
> =A0 =A0 =A0 =A0 =A0ws.Range("B35") =3D i
> =A0 =A0 =A0 =A0 =A0i =3D i + 1
> =A0 =A0 =A0Next
> =A0 =A0 =A0Application.ScreenUpdating =3D 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 <getsub...@gmail.com> 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 <esrade...@gmail.com> 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. =A0Can 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
>(*-*)<
0
Reply Esradekan 4/1/2010 10:02:45 AM

4 Replies
165 Views

(page loaded in 0.094 seconds)

Similiar Articles:
















7/15/2012 7:18:33 AM


Reply: