If your range start in A and you want to filter on column C

then change

rng.Columns(1).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=.Range("IV1"), Unique:=True

To

rng.Columns(3).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=.Range("IV1"), Unique:=True


See the VBA help for application.inputbox
If you need more help post back




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


wrote in message s.com...
On Mar 9, 1:30 pm, "Ron de Bruin" wrote:
You can also take a look herehttp://www.rondebruin.nl/copy5.htm

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

wrote in ooglegroups.com...
On Mar 9, 12:10 pm, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
This-.com wrote:
Depending what your source data looks like I would suggest using a pivot
table. By using the show pages feature it will create all of the seperate
sheet that you describe. If you want more help persuing this just reply
back...
--
HTH...

Jim Thomlinson

" wrote:
I need help. I have spreadsheets that are automatically created every
month. They have 9 different columns that include Date, Ticket #,
Customer, Job, Truck ID, Product, Gross, Tare, and Net. All this is
in 1 main worksheet.

How could I create a macro that would Separate the different customers
to different worksheets and automatically sort them by date? Also,
what if I have different jobs for the same customer, could I make the
macro separate the different jobs to different worksheets?

One more thing, when the new worksheet is created, could the macro
name the new worksheet by the customer name?

Any help would be greatly appreciated.

Thanks,
Charles

I will at least give it a try. I don't know that a pivot table is
what I am looking for but I will see. What do I need to do?

Ron,
How can I change which column it uses. My data is in column "C"
rather than A. Also, it doesn't rename the new worksheet tabs. Is
there a way to make it do this manually?