use the advanced filter to extract unique values from column C, so say
column K

then you can create the workbooks by reading down column K and add sheets
easily by reading down column A adding the sheets to the relevent workbooks

coding this is simplistic, if you need help - reply and ask




"ryguy7272" wrote in message
...
Seems like a tall order. Let's start with something relatively easy, and
go
from there. Take a look at this link:
http://www.rondebruin.nl/copy5.htm

The code loops through a range (or your choosing) and copies records with
the same value in a column to a new sheet or workbook. Start with that
and
post back with your progress.

HTH,
Ryan---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"K" wrote:

A B C €¦..col
CC 22 JIM
SS 33 JIM
VV 34 TIM
AA 45 TIM
XX 77 KIM
MM 88 KIM


I have above data in sheet and I need macro which should do things
(see below)
1 - Looking at column C values in above data, macro should create
workbooks according to the numbers of one dublicate value (for above
data it will be 3 workbooks) and name them "JIM" , "TIM" and "KIM".
2 - Then looking at column A values in above data macro should create
2 worksheets in workbook "JIM" and name them "CC" and "SS" as in above
data in column C where the value is "JIM" in same row of column A it
has the value "CC" and "SS".
3 - In cell A1 of sheets "CC" and "SS" put the value which appear in
column B. (which will be 22 for worksheet "CC" and 33 for worksheet
"SS")
4 - Repeat no. 2 and 3 for workbook "TIM" and "KIM".


In other words macro should produce below result
1 - Workbook("JIM") with Worksheets("CC") & Worksheets("SS") and in
Worksheets("CC").Range("A1").Value = 22 and Worksheets("SS").Range
("A1").value = 33
2 - Workbook("TIM") with Worksheets("VV") & Worksheets("AA") and in
Worksheets("VV").Range("A1").Value = 34 and Worksheets("AA").Range
("A1").value = 45
3 - Workbook("KIM") with Worksheets("XX") & Worksheets("MM") and in
Worksheets("XX").Range("A1").Value = 77 and Worksheets("MM").Range
("A1").value = 88

I'll be very greateful if any friend can help.