Populate more than one worksheet from a user form

Hi,

I've only just starting using Excel for anything other than basic calculations and have got a little stuck with a user form. On my attached spreadsheet I am trying to set up a form for staff incident reporting. There is a Contents worksheet and then each incident has it's own detailed worksheet. The user will click on 'create new incident' on the Contents page. This opens a user form. From this form I want to populate the contents worksheet. I then also want it to populate the relevant incident worksheet. I can populate the contents page but I need help getting the correct Incident worksheet populated at the same time. Hopefully all will become clear running the file.

Thanks in advance for any help.

Alan

Not sure why you need all those identical forms. You are taking the wrong approach.

The data shold be saved from the UserForm to a table of data, ideally with a unique ID number in Column A of the data sheet. You can then quickly fill the sheet that acts as the form by using VLOOKUP

Also, finding the next row in your code by looping is very inefficient. I also, can't see why you use End in the code.

Private Sub cmdOk_Click()
    Dim NextCl As Range
    With ActiveWorkbook.Sheets("Contents Page")

        Set NextCl = .Cells(.Rows.Count, 3).End(xlUp).Offset(1, 0)

        NextCl.Value = txtEmployee1.Value
        NextCl.Offset(0, 1) = txtEmployee2.Value
        NextCl.Offset(0, 2) = txtEmployee3.Value
        NextCl.Offset(0, 3) = txtEmployee4.Value
        NextCl.Offset(0, 4) = cbonature.Value
        End With
    End Sub

Here is a worksheet with a modified macro for your needs.
Note:
I re-ordered the worksheets because they were in reverse order (this always happens when adding worksheets)..

HTH

It would be much simpler to follow my suggestion, then a very simple macro could be used to automate printing a series of forms.

I agree with royUK but I digress it would take me a bit to learn that method than to program it.
Although, if it works....

http://www.excelforum.com/forum-rule...rum-rules.html
10. Please acknowledge the response you receive, good or bad. If your problem is solved, please say so clearly, and mark your thread as Solved: Click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Edit button will not appear -- ask a moderator to mark it.