automate creation of sheets in excel

One way:

This will add one sheet for every 30 items in your master list.

Assume you master list starts in A2 and extends down without blanks
intervening.

Public Sub AddSheetForEach30()
Dim nNumSheets As Long
Dim nLastRow As Long
Dim i As Long

nLastRow = Range("A" & Rows.Count).End(xlUp).Row - 1
nNumSheets = Application.Ceiling(nLastRow / 30, 1)
Do While nNumSheets > 0
Worksheets.Add Count:=Application.Min(nNumSheets, 256)
nNumSheets = nNumSheets - 256
Loop
End Sub

In article <#[email protected]>,
"Daniel" <[email protected]> wrote:

> automate creation of sheets in excel
>
> is there anyway to automate creation of sheets in excel? I would like to
> have one sheet that has a master list of all items. then a have sheets which
> are automaticaly generated, 1 sheet for every 30 items on the master sheet.
> can this be done? is there some vba built into excell that i could use to do
> this?

One way:

This will add one sheet for every 30 items in your master list.

Assume you master list starts in A2 and extends down without blanks
intervening.

Public Sub AddSheetForEach30()
Dim nNumSheets As Long
Dim nLastRow As Long
Dim i As Long

nLastRow = Range("A" & Rows.Count).End(xlUp).Row - 1
nNumSheets = Application.Ceiling(nLastRow / 30, 1)
Do While nNumSheets > 0
Worksheets.Add Count:=Application.Min(nNumSheets, 256)
nNumSheets = nNumSheets - 256
Loop
End Sub

In article <#[email protected]>,
"Daniel" <[email protected]> wrote:

> automate creation of sheets in excel
>
> is there anyway to automate creation of sheets in excel? I would like to
> have one sheet that has a master list of all items. then a have sheets which
> are automaticaly generated, 1 sheet for every 30 items on the master sheet.
> can this be done? is there some vba built into excell that i could use to do
> this?

automate creation of sheets in excel

is there anyway to automate creation of sheets in excel? I would like to
have one sheet that has a master list of all items. then a have sheets which
are automaticaly generated, 1 sheet for every 30 items on the master sheet.
can this be done? is there some vba built into excell that i could use to do
this?

One way:

This will add one sheet for every 30 items in your master list.

Assume you master list starts in A2 and extends down without blanks
intervening.

Public Sub AddSheetForEach30()
Dim nNumSheets As Long
Dim nLastRow As Long
Dim i As Long

nLastRow = Range("A" & Rows.Count).End(xlUp).Row - 1
nNumSheets = Application.Ceiling(nLastRow / 30, 1)
Do While nNumSheets > 0
Worksheets.Add Count:=Application.Min(nNumSheets, 256)
nNumSheets = nNumSheets - 256
Loop
End Sub

In article <#[email protected]>,
"Daniel" <[email protected]> wrote:

> automate creation of sheets in excel
>
> is there anyway to automate creation of sheets in excel? I would like to
> have one sheet that has a master list of all items. then a have sheets which
> are automaticaly generated, 1 sheet for every 30 items on the master sheet.
> can this be done? is there some vba built into excell that i could use to do
> this?