Form Numbering

[max1565]

I have an application that gathers information from the user via userforms, the information goes into excel database. When the user completes the last userform, they want to save the form. If the user selects yes, then the info is transferred from the database to a form I have set up on sheets("form&quot.

What i would like to have happen is for code to number the form with the next number, and place that number in Sheets("form&quot.Range("e1&quot

Appreciate any help you can provide. Using excel 2000, win 2000.

Thanks

 

[michaelbr55]

Hi Max1565,
Huh, Excel is not a database, information can't be saved onto a form, I'm not sure what you want it to do, but maybe this will get you going in the right direction?


Sub doThis()
Dim variable1

variable1 = ActiveWorkbook.Worksheets("sheet1&quot.Range("e1&quot.Value
variable1 = variable1 + 1
ActiveWorkbook.Worksheets("sheet1&quot.Range("e1&quot.Value = variable1
ActiveWorkbook.Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count).Name = "Form" & variable1
End Sub