You created the general module and pasted the PrevSheet function into that
module.

You entered a 1 in L7 of sheet1.

You grouped sheet2 with rest of sheets.

You entered =IF(K100,prevsheet(L7) +1,"")

If you are getting the formula showing maybe the cells were pre-formatted as
text.

Re-format to General then re-enter the formula on sheet2 with the sheets
grouped.

Or, if as your example shows, you did not precede the formula with an = sign
then do so.


Gord

On Sun, 20 Apr 2008 20:16:00 -0700, tourpro
wrote:

maybe i'm missing something but after i create my general module i put a 1 in
L7 on sheet1 and then i past this code into L7 on sheet2, sheet3, sheet4 all
i get on each sheet is:
IF(K100,prevsheet(L7) +1,"") in the cell.
i put number 1 in L7 on sheet1 but on sheet2 it does not become number 2 in
L7 and 3 on sheet2 and so on

"tourpro" wrote:

i need a little more detail on how to do this...
1. what is a general module in your workbook?
2. Copy/paste this Function into a single cell or?
3. Select second sheet then SHIFT + Click on last sheet to group these
sheets. not sure what this means or excatly how to do this...


Assuming L7 on each sheet is where you want the incremented number..........

Copy/paste this Function to a general module in your workbook.

Function PrevSheet(rg As Range)
Application.Volatile
n = Application.Caller.Parent.Index
If n = 1 Then
PrevSheet = CVErr(xlErrRef)
ElseIf TypeName(Sheets(n - 1)) = "Chart" Then
PrevSheet = CVErr(xlErrNA)
Else
PrevSheet = Sheets(n - 1).Range(rg.Address).Value
End If
End Function

Enter the number 1 in L7 on first sheet.

Select second sheet then SHIFT + Click on last sheet to group these sheets.

Select L7 on active sheet and enter this formula which will be entered on all
selected sheets.

IF(K100,prevsheet(L7) +1,"")

Ungroup the sheets and you're done.


Gord Dibben MS Excel MVP

On Fri, 11 Jan 2008 21:22:00 -0800, albertmb
wrote:

Hi Everyone,

I have a mini invoicing system and I would like to insert invoice numbers
that would increment automatically.