Pulling Lists from Userforms to a New Worksheet

[jimmybangs]

Hi,

I've created a UserForm in Excel that feeds a workbook - I would like to create a user form that can create a separate worksheet (new document) based around the selection I make in the form.

e.g.

My form looks like this:

<a href="http://www.flickr.com/photos/67298551@N07/6169185913/" title="ListBuilder by digiteers, on Flickr"><img src="http://farm7.static.flickr.com/6174/6169185913_4fd654a631.jpg" width="304" height="137" alt="ListBuilder"></a>

The data looks like this:

<a href="http://www.flickr.com/photos/67298551@N07/6169720226/" title="ListBuilder2 by digiteers, on Flickr"><img src="http://farm7.static.flickr.com/6154/6169720226_3b92462b86.jpg" width="394" height="335" alt="ListBuilder2"></a>

Say if I wanted to create a list by selecting 21/09/2011 and Healthcare it would only pull this information into the seperate document - can anybody help?

Cheers,
James

 

[Trevor G]

Hi James,

I created this code for someone last month, it is using filters and placing the data into another sheet, but you can change that (I hope), theres a couple of things to change like the combo box names, and column information.

Hope it helps you out.

Private Sub cmdTryME_Click()
Dim LR As Long, i As Long
With Sheets("Sheet1")
LR = .Range("E" & Rows.Count).End(xlUp).Row
For i = 1 To LR
If .Range("E" & i).Value = Me.cboMSG.Text And .Range("J" & i).Value = Me.cboDate.Text Then .Rows(i).Copy Destination:=Sheets("Rooms").Range("A" & Rows.Count).End(xlUp).Offset(1)
Next i
End With
Sheets("Rooms").Select
frmShow.Hide

End Sub

 

[jimmybangs]

Do you have the original link for this macro to give me a point of reference?

 

[Trevor G]

Its in a normal workbook.

Send me PM with your email details I will send you a copy.