Create multiple rows of data from one Userform

[daithiboy]

Hi Guys,

I'll do my utmost to explain clearly and hopefully one of you excel mages can help me!

I have a userform in which audit data is input. At the top of the userform are combo and text boxes for selecting "Department", "Area" and inputting the date.

Below that are some rows of labels and text boxes for inputting results and the auditor's name.

I'll do my best to show the layout with a table

[TABLE="class: outer_border, width: 500"]
<tbody>[TR]
[TD] ******* (Combo)[/TD]
[TD]Counters (Combo)[/TD]
[TD]Date (text box)[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Standard 1 (Label)[/TD]
[TD]Result 1 (Text box)[/TD]
[TD]Auditor Name (Text box)[/TD]
[/TR]
[TR]
[TD]Standard 2 (Label)[/TD]
[TD]Result 2 (Text box)[/TD]
[TD]Auditor Name (Text box)[/TD]
[/TR]
[TR]
[TD]Standard 3 (Label)[/TD]
[TD]Result 3 (Text box)[/TD]
[TD]Auditor Name (Text box)[/TD]
[/TR]
</tbody>[/TABLE]

I would like for a command button to write to the next available row and include as follows:

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD="align: center"]A[/TD]
[TD="align: center"]B[/TD]
[TD="align: center"]C[/TD]
[TD="align: center"]D[/TD]
[TD="align: center"]E[/TD]
[TD="align: center"]F[/TD]
[/TR]
[TR]
[TD]Date[/TD]
[TD]Department[/TD]
[TD]Area[/TD]
[TD]Element[/TD]
[TD]Result[/TD]
[TD]Auditor[/TD]
[/TR]
[TR]
[TD]11/11/11[/TD]
[TD]*******[/TD]
[TD]Counters[/TD]
[TD]Standard 1[/TD]
[TD]95%[/TD]
[TD]John[/TD]
[/TR]
[TR]
[TD]11/11/11[/TD]
[TD]*******[/TD]
[TD]Counters[/TD]
[TD]Standard 2[/TD]
[TD]75%[/TD]
[TD]Tim[/TD]
[/TR]
[TR]
[TD]11/11/11[/TD]
[TD]*******[/TD]
[TD]Counters[/TD]
[TD]Standard 3[/TD]
[TD]90%[/TD]
[TD]John[/TD]
[/TR]
</tbody>[/TABLE]

So the data from combo boxes and date box at the top of the Userform remain the same (Column A, B & C) but the next three columns change dependent on what is input.

I hope that makes sense and please let me know if you need clarification on anything.

Cheers,
Dave

 

[Tinbendr]

That should have been

Format(Me.Controls("txtRst" & A), "0.0%")

 

[daithiboy]

Thanks Tinbendr. Worked a treat.