I am new to VBA and am trying to work with a Userform
On my user form I have listed all contract #'s and they are not in any
particular order. When I click on my userform I want to copy all the tests
for the contract I highlighted to another sheet (sheet 1). How is this done?

ie:
contract #
123
456
789
456
123

I want every test for contract # 456 copied to sheet 1 starting on cell A2.
Can anyone help me??? Please.

Eric

Prvate Sub CommandButton1_Click()
for i = 0 to Userform1.Listbox1.listcount - 1
if Userform1.Listbox1.Selected(i) then
' call Ron's macro altered to work with your data
end if
Next
End Sub

Autofilter
http://www.rondebruin.nl/copy5.htm

--
Regards,
Tom Ogilvy

"Eric" wrote:

> I am new to VBA and am trying to work with a Userform
> On my user form I have listed all contract #'s and they are not in any
> particular order. When I click on my userform I want to copy all the tests
> for the contract I highlighted to another sheet (sheet 1). How is this done?
>
> ie:
> contract #
> 123
> 456
> 789
> 456
> 123
>
> I want every test for contract # 456 copied to sheet 1 starting on cell A2.
> Can anyone help me??? Please.
>
> Eric

Tom,

The "Create a new sheet for all unique values" macro works well but I don't
want to have a new sheet for every contract Number as a matter of fact I
don't want the sheet to even change names. I just want to copy all the
identical contract numbers to a separate sheet so that I can graph the
results. Each time I transphere the information I want them to end up back
on the second sheet no matter what the number is. I hope I explained what I
am looking for. If I haven't I will try again. Please be patient with me.
Thank you

Eric

"Tom Ogilvy" wrote:

> Prvate Sub CommandButton1_Click()
> for i = 0 to Userform1.Listbox1.listcount - 1
> if Userform1.Listbox1.Selected(i) then
> ' call Ron's macro altered to work with your data
> end if
> Next
> End Sub
>
> Autofilter
> http://www.rondebruin.nl/copy5.htm
>
> --
> Regards,
> Tom Ogilvy
>
> "Eric" wrote:
>
> > I am new to VBA and am trying to work with a Userform
> > On my user form I have listed all contract #'s and they are not in any
> > particular order. When I click on my userform I want to copy all the tests
> > for the contract I highlighted to another sheet (sheet 1). How is this done?
> >
> > ie:
> > contract #
> > 123
> > 456
> > 789
> > 456
> > 123
> >
> > I want every test for contract # 456 copied to sheet 1 starting on cell A2.
> > Can anyone help me??? Please.
> >
> > Eric